|
Hallo freundliche Helfer im VBA-Forum,
ich bin absoluter Neuling was VBA angeht und habe auch nie irgendwas tatsächlich gelernt. Alles was ich bisher mache geht nur mit Google und viel ausprobieren. Ich habe also Dinge benutzt, ohne genau zu wissen, was Diese tun.
Zu meinem Problem:
In einem Word-Formular (aktuelles Office365) habe ich einen Button, der diverse Dinge nacheinander abhandeln soll (Kontrollieren, ob das Feld (VA_1) ausgefüllt ist, Speicherordner erstellen, Datei als PDF speichern, etc.). Zwischendurch soll er auch den Inhalt (Text) eines Inhaltsteuerelements (VA_1) in die Zwischenablage kopieren. Die mit Google zusammengestückelte Frankenstein-Gesamt-Version erspare ich euch hier mal lieber. Aber am Ende funktioniert alles, ausser das Kopieren in die Zwischenablage.
Unten nun das, was ich mir aus diversen Quellen zusammengesucht habe:
'< Versuchsauftragsnummer in die Zwischenablage kopieren >
Dim myData As DataObject
Dim strClip As String
strClip = ActiveDocument.SelectContentControlsByTag("VA_1").Item(1).Range.Text
Set myData = New DataObject
myData.SetText strClip
myData.PutInClipboard
'< \Versuchsauftragsnummer in die Zwischenablage kopieren >
Wenn ich den kopierten Inhalt irgendwo einfügen will, werden immer zwei Fragezeichen in kleinen Rauten oder folgendes eingefügt (??). Irgendwas scheint er also zu kopieren.
Schon mal Danke für's helfen.
|