ups, neuer Versuch
17.01.2006 15:57:06
Reinhard
Sub ZwischenablageText_Ausgeben()
Dim Satz, oeffne
Set MeineZwischenablage = New DataObject
MeineZwischenablage.GetFromClipboard
Satz = Replace(MeineZwischenablage.GetText(1), "<BR>", "", 1)
MeineZwischenablage.SetText Satz
MeineZwischenablage.PutInClipboard
End Sub
Gru?
Reinhard
ps:Das Forum lebt auch von R?ckmeldungen.