AutoText aus Excel in Word
10.01.2018 17:53:57
mstr
ich versuche gerade, folgendes zu tun.
- Liste mit AutoText-Kürzeln in Excel
- Diese Kürzel nach Word übertragen
- Diese Kürzel dort ausführen, sodass sie durch den hinterlegten AutoText ersetzt werden.
Folgende Fehlermeldung erhalte ich:
Laufzeitfehler 5906
Der Bereich gibt keinen bekannten AutoText-Eintrag an.
Ich vermute, dass VBA hier nach AutoText-Kürzeln in Excel sucht und nicht in Word, wo es suchen soll.
Diesen VBA-Code habe ich in Excel in Verwendung:
Sub BlockInWord()
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
WordDoc.Activate
WordApp.Selection.TypeText Text:="AutoText-Code"
WordApp.Selection.Range.InsertAutoText
WordApp.Selection.TypeParagraph
End Sub
Ich bin für jede Hilfe dankbar!
Viele Grüße
mstr