Hallo zusammen,

ich habe vor Jahren mal ein Makro geschrieben, das in meinem "Kontrolldokument" die Werte aus ContentControls und Checkboxen ausliest, daraufhin verschiedene Worddokumente öffnet, die Werte der ContentControls in Textmarken in der Kopfzeile einfügt und anschließend die Dokumente druckt und schließt. Jetzt haben zwei Kollegen neue Rechner bekommen und die Werte werden nicht mehr in die Kopfzeile übernommen, gedruckt wird aber weiterhin. Bei mir (Office 2016) funktioniert es noch.

Hier ein Ausschnitt aus dem Code, der meiner Meinung nach das Problem enthält:

    Set objWDApp = New Word.Application
            If Err.Number = 0 Then   
       
            Set objWDDoc = objWDApp.Documents.Open(FileName:=strFileName)

           If objWDDoc.Bookmarks.Exists("Kunde") Then objWDDoc.Bookmarks("Kunde").Range.Text = ArrayDatenKopfzeile(1, 1)

Das Array enthält den richtigen Wert, das habe ich schon am Rechner eines der Kollegen mit einem Breakpoint überprüft. Der Code hinter dem then wird auch erreicht, allerdings bleiben die Textmarken halt leer.

Hoffe mir kann da jemand helfen. Bin nicht so der Experte in VBA, also bitte nicht zu kompliziert antworten.

Danke im Vorraus.