Zwischenablage abändern / liquidieren
Reinhard
in einem anderen forum haben die Deppen eingeführt daß bei jedwedem was man dort mit Strg+c
herauskopiert hinten angefügt wird:
... mehr [Link]
[Link] bedeutet, dort steht der Link auf den Beitrag wo man rauskopierte.
Ich, wie viele (alle) anderen dort wollen den Mist nicht, ist ja lästig wie ein Kropf :-(
Egal wo man das dann einfügt mit Strg+v, dieser blöde Anhang klebt dran.
Abhilfe wäre sehr einfach wenn jmd. in "Windows" programmieren könnte und dann Strg+c
bei dieser einen Webseite manipuliert bzw. einen neuen tastenkürzel anlegt der wie
Strg+c funktioniert aber gleich den Anhang eliminiert.
Für MS-Office Besitzer habe ich mir jetzt einen workaround überlegt.
Als workaround würde es ja reichen, irgendein Officeprogramm am Laufen zu haben, dort,
nachdem man aus der Webseite mit Strg+c herauskopiert hat, auf einen Button zu klicken,
der die Zwischenablage bereinigt.
Und genau das kriege ich leider nicht hin :-(((((
Nachstehender Code, jetzt für Word, aber egal, in Excel ist es das gleiche Dilemma,
funktioniert insoweit schon ein Stück sodaß beide befehle
MsgBox myData.GetText(1)
Selection.TypeText Text:=myData.GetText(1)
schon wie geplant den Inhalt der Zwischenablage ohne das Anhängsel anzeigen bzw. ins Dokument
schreiben.
ABER bei anschließendem Strg+v ist das Mistding wieder sichtbar *fluch*
Ich als Laie mutmaße es liegt irgendwie am Unterschied der Zwischenablage von Win zu der von Office.
Option Explicit
Declare Function EmptyClipboard Lib "user32" () As Long
Sub Mehr_Entfernen()
Dim ret, myData As New DataObject 'Verweis auf MS Forms2.0 oder Userform einfügen
myData.GetFromClipboard
myData.SetText Split(myData.GetText(1), " ... mehr")(0)
ret = EmptyClipboard()
myData.PutInClipboard
myData.GetFromClipboard
MsgBox myData.GetText(1)
Selection.TypeText Text:=myData.GetText(1)
End Sub
Gruß ^ Danke
Reinhard
