|
Quadratisch sind sie nicht, aber praktisch sind sie. Und ob Sie
die folgenden Funktionen auch gut finden, überlasse ich Ihnen.
Die Hilfs-Funktion ClipboardAppendText fügt an einen in der
Zwischenablage vorhandenen einfachen ANSI-Text-String einen weiteren
Text-String an und fügt einen gegebenenfalls im optionalen
Parameter Separator übergebenen Trenn-String dazwischen ein. Ihr
Rückgabewert ist der zuvor in der Zwischenablage enthaltene, noch
unveränderte Text-String.
Public Function ClipboardAppendText(Text As String, _
Optional Separator As String) As String
Dim nOldText As String
With Clipboard
If .GetFormat(vbCFText) Then
nOldText = .GetText(vbCFText)
ClipboardAppendText = nOldText
.SetText nOldText & Separator & Text, vbCFText
End If
End With
End Function
Die Hilfs-Funktion ClipboardAppendRTF bietet die gleiche
Funktionalität für RTF-Texte.
Public Function ClipboardAppendRTF(RTF As String, _
Optional Separator As String) As String
Dim nOldRTF As String
With Clipboard
If .GetFormat(vbCFRTF) Then
nOldRTF = .GetText(vbCFRTF)
ClipboardAppendRTF = nOldRTF
.SetText nOldRTF & Separator & RTF, vbCFRTF
End If
End With
End Function
|