Hallo liebe Community,

ich hab folgendes Problem:

Ich habe ein Formular-Dokument in Word, bei dem die Bearbeitung eingeschränkt ist (Nur Formular ausfüllen und Auswahl treffen möglich). Mit einem Button am unteren Ende der ersten Seite wird ein Makro gestartet:

Dieses Makro liest aus dem Dokument Formularfelder und je nach Auswahl Textmarken aus, speichert diese in Variabeln, macht aus mehreren Variabeln neuen Text. Der neue Text wird auf der nächsten Seite eingefügt, wo auch eine Textmarke platziert ist. Danach wird die erste Seite (mit dem Formular) gelöscht und das Dokument enhält nur noch den neuen Text. Das Dokument wird unter neuem Namen und als .docx (also ohne Makros) gespeichert.

Das funktioniert auch soweit ganz gut. In Word 2013 sogar sehr gut. Wenn ich die Datei auf einem Rechner mit Word 2010 öffne, läuft das Makro auch durch, aber die gespeicherte neue Datei kann ich nicht mehr öffnen. Folgender Fehler tsucht auf: "Dia datei kann nicht geöffnet werden, da ihr Inhalt Probleme verursacht."

Ich hab mal den Code mal in abgespeckter Form geschrieben. Der Fehler tritt auch hier auf:

Sub Testmakro()

ActiveDocument.Unprotect ("passwort") 'Bearbeitungsschutz aufheben

'Definition der Variabeln:
Dim Text1 As String
Dim Text2 As String
Dim Text_neu As String

Application.ScreenUpdating = False

Text1 = ActiveDocument.Bookmarks("Textmarke_1").Range.Text 'Textmarke_1 auslesen
Text2 = ActiveDocument.Bookmarks("Textmarke_3").Range.Text 'Textmarke_2 auslesen

Text_neu = Text1 & " " & Text2 'neuen Text definieren

If Word.ActiveDocument.Bookmarks.Exists("Textmarke_neu") Then 'Textmarke auf nächster Seite mit neuem Text füllen
        Word.Selection.GoTo What:=wdGoToBookmark, Name:="Textmarke_neu"
        Word.Selection.TypeText Text:=Text_neu
    End If
    
Selection.GoTo wdGoToPage, wdGoToAbsolute, 1 'Seite 1 löschen
Selection.Bookmarks("\Page").Range.Delete

Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\Dateiname.docx" 'Datei speichern
Application.DisplayAlerts = True

End Sub

Ich würde mich über Hilfe freuen! :)

Viele Grüße