Textbox auslesen und wieder einfügen
22.06.2019 22:25:19
Andreas
ich habe Tool, in dem ich Inhalte in eine Textbox schreiben. Mit einem Button kann ich den Inhalt aus der Textbox kopieren, um dann den Inhalt in ein anderes Programm wieder einzufügen. Bisher hat dies super funktioniert. Nun habe ich Office 2019 und ich erhalte beim Einfügen, zum Beispiel in Word, nicht den Text, sondern 2 Fragezeichen.
Folgenden Code habe ich bisher genutzt:
Private Sub ZielAusschneiden_Click()
Dim Hugo As DataObject, T1 As String
T1 = TBZielsetzung.Text
If T1 = "" Then Exit Sub
Set Hugo = New DataObject
Hugo.SetText T1
Hugo.PutInClipboard
TBZielsetzung.BackColor = &HE0E0E0
TBZiel = T1
End Sub
Wo ist der Fehler.
Vielen Dank im Voraus.
Andreas
Anzeige