Thema Datum  Von Nutzer Rating
Antwort
Rot Durch VBA gespeichertes Dokument nicht zu öffnen
 12.05.2016 13:24:55 Chaostante
Solved
06.06.2016 12:50:13 Gast3220
Solved
06.06.2016 12:51:01 Chaostante
Solved

Ansicht des Beitrags:
Von:
Chaostante		 Datum:
12.05.2016 13:24:55		 Views:
1661		 Rating:
     
Antwort:
 Nein
Thema:
Durch VBA gespeichertes Dokument nicht zu öffnen

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Durch VBA gespeichertes Dokument nicht zu öffnen
 12.05.2016 13:24:55 Chaostante
Solved
06.06.2016 12:50:13 Gast3220
Solved
06.06.2016 12:51:01 Chaostante
Solved