Hallo,
in einem Excel-Code erzeuge ich einige Textbausteine, die ich in einer string-Variablen zwischenspeichere und dann in in einer word-Vorlage abspeichere.
Dim AppWD, wordDoku As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
Set wordDoku = AppWD.documents.Open(Filename:="C:\Users\User\Downloads\TCW Brief.dotm")
AppWD.ActiveDocument.Shapes.Range(Array("Text Box 41")).Select
AppWD.Selection = strMaster1
AppWD.ActiveDocument.Shapes.Range(Array("Textfeld 2")).Select
AppWD.Selection = strMaster2
AppWD.ActiveDocument.SaveAs "C:\Users\User\Downloads\BegrSchr - " & Cells(iRow, 4) & ", " & Cells(iRow, 5) & ".docx"
oder:
AppWD.documents("C:\Users\User\Downloads\TCW Brief.dotm").SaveAs "C:\Users\User\Downloads\BegrSchr - " & Cells(iRow, 4) & ", " & Cells(iRow, 5) & ".docx"
Der Code läuft fehlerfrei und das word-Dokument wird korrekt erzeugt.
Wenn ich das Dokument später wieder im Word öffnen will, wird mir allerdings nichts mehr angezeigt, obwohl die Datei im Explorer korrekt zufinden ist und in der Explorer-Vorschau auch den richtigen Inhalt hat.
Woran kann das liegen? Das passiert bei jedem Versuch und unterschiedlichen Inhalten.
Hat jemand einen Tipp?
Danke und Gruß
A.