bestehende Worddatei öffnen
30.09.2022 10:57:47
Fuhrmann,
Ich habe im Archiv schon mehrere Einträge/ Codes zu dem Thema "Eine Worddatei auf Excel heraus zu öffnen und Textmarken zu befüllen" gefunden, nur leider öffnet sich bei mir immer eine Kopie des eigentlichen Worddokumentes und nicht die bestehende Datei.
Meine Worddatei ist keine Vorlagendatei und als "docx" gespeichert.
Mit folgendem Code versuche ich krampfhaft das bestehende Dokument zu öffnen und die Textmarke (später sind es mehrere Textmarken) zu setzen.
Wie schon geschrieben, öffnet sich bei mir immer eine Kopie des Dokumentes als Dokument1.
Des Weiteren bräuchte ich in dem Code auch noch eine Überprüfung, ob das Worddokument schon geöffnet ist.
Hier habe ich auch schon mehrere Code aus dem "www" ausprobiert und das geöffnete Dokument wird nicht erkannt obwohl es geöffnet ist.
Ich stehe echt im Wald ?
Sub Textmarke_Standort_Deckblatt_einfuegen_02()
Dim appWord As Object
Dim docTest As Object
Dim letztezeile As Long
Dim PFAD As String
PFAD = ActiveWorkbook.Path & "\" & Worksheets("Hilfstabelle").Range("U2")
Set appWord = GetObject(, "Word.Application")
Set docTest = appWord.Documents.Add(PFAD)
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("OSK_Standort").Range.Text = frm_Dokumentenmanagement.txt_Standort_Deckblatt
Set docTest = Nothing
Set appWord = Nothing
End Sub