Werte aus Excel in Textmarke von Word (Mac)
14.05.2019 12:47:36
Word
ich habe den unten angegebenen Code. Dieser lädt sich eine bestimmte Word-Datei und befüllt die darin enthaltenen Textmarken mit Werten aus Excel. Unter Windows funktioniert dieser Code auch einwandfrei.
Jetzt brauche ich die Datei für einen Mac.
Leider funktioniert der Code unter Mac nicht.
Er meckert: Laufzeitfehler 91 - Objektvariable oder With-Blockvariable ist nicht festgelegt.
Beim Debuggen markiert er mir die Zeilen in denen ich die Textmarke anspreche und befüllen möchte
Hat jemand eine Idee oder Erfahrung?
Private Sub CommandButton4_Click()
'Deklaration der Objekt-Variablen
Dim appWord As Object
Dim wrdDocument As Object
Dim pfad As String
pfad = ActiveWorkbook.Path
'Word-Instanz übernehmen oder starten
On Error Resume Next
Set appWord = GetObject(, "Word.Application")
If Err = 429 Then
Err.Clear
Set appWord = CreateObject("Word.Application")
If Err > 0 Then
MsgBox "Fehler beim Starten von Word!"
Exit Sub
End If
End If
Err.Clear
'Dokument öffnen
Set wrdDocument = appWord.Documents.Open(pfad + "\Daten\Anmeldebestätigung_DE.docx")
If Err = 1004 Then
MsgBox "Dokument 'Anmeldebestätigung_DE.docx' nicht vorhanden!"
appWord.Quit
Set appWord = Nothing
Exit Sub
End If
On Error GoTo 0
appWord.Visible = True
'Textmarken ansprechen und Text eintragen
wrdDocument.Bookmarks("Kundennummer").Select
appWord.Selection.TypeText Label7.Caption
'Textmarken ansprechen und Text eintragen
wrdDocument.Bookmarks("Unternehmen").Select
appWord.Selection.TypeText Label8.Caption
End Sub