Hallo Wissende,
seit Wochen hat der nette Support in den w-w-w Code ein von Ihnen
aus gesehen superklasse Feature einbauen lassen.
Naja, wer aufmerksam die Beiträge im brett Bugs und Anregungen/
Lob/Kritik liest sieht sehr schnell daß hiesige Forumsuser
das nicht als Feature sondern als schwachsinnigen Bug.
Es äußerst sich so daß wenn man hier in W-w-w aus Beiträgen etwas
beliebiges herauskopiert, z.B. Code aber auch egal was, dann hängt w-w-w
… mehr [Link]
Der „Link“ ist dann der Pfad zu dem Beitrag woraus man kopierte.
Als Notwehr habe ich mir mit Vba Code gebastelt den man in
Word oder Excel auf einen Button legen kann.
Ablauf ist dann, hier in w-w-w mit Strg+c herauskopieren, dann dort
ins Word- oder Excelfenster gehen und den Button klicken.
Dann ist die Zwischenablage von Müll befreit.
Seht ihr Möglichkeit mit einer .exe aus .Net-Code beim Start
von Win einer beliebigen Tastenkombination in Windows diese
.exe zuzuweisen die auch den Zwischenspeicher cleant oder
gleich anders rauskopiert?
Wunsch von mir, ich markiere in w-w-w was ich kopieren will,
dann nicht Strg+c sondern k.A. Strg+k und im Zwischenspeicher
ist nur das was ich auch kopieren will.
Nachfolgend ist der Vba-Code den ich habe mit Bemerkungen.
Entschuldigung, kurz fassen kann ich mich schwer, mea culpa 
Danke ^ Gruß
Reinhard
In Vba gibt es putinclipboard und getfromclipboard.
Ich kam mit meinem Wissen an meine Grenzen denn ich habe mit
getfromclipboard die Daten in Der Zwischenablage eingelesen,
dann mit Split() bei "… mehr " gesplittet und dann mit
putinclipboard nur den ersten Teil wieder reingeschrieben.
Blieb leider wirkungslos Bei Strg+v war der Mist noch brav drinne.
Deshalb bat ich um Hilfe und Stefan war so nett mir da diesen
Code mit regexp zu basteln 
Der klappt gut.
Ich vermute mal, in .Net habt ihr dieses Problem nicht weil
.Net wohl nicht wie Vb da die Office-Zwischenablage nutzt die sich
wohl von der Zwischenablage unterscheidet.
Sub clibBrd\_clearText()
' by Stefan
Dim oClipBoard As Object, Regex As Object
Dim myString As String
Set oClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set Regex = CreateObject("Vbscript.Regexp")
'entfernt wird der Bereich ab einem oder keinem Leerzeichen
'gefolgt von min einem Punkt und einem od keinem Leerzeichen und dem Wort 'mehr'
Regex.Pattern = "(.\*?)\s\*\.+\s\*mehr.\*?$"
With oClipBoard
.GetFromClipboard
myString = Regex.Replace(.GetText, "$1")
.Clear
.SetText myString
.PutInClipboard
End With
End Sub