Hallo!
Inzwischen kann ich in einer Excel-Tabelle ausgewählte Textmarken aus einem Word-Dokument in eine Word-Vorlage schreiben.Ich habe allerdings Textmarken in Textmarken.
Sprich ich habe in der Einleitungstextmarke die ISO-Norm XYZ.
Diese ISO-Norm ist in der Vorlage auf alle ISO-Normen mit derselben Bezeichnung verlinkt. Also wenn ich sie am Anfang anpasse, ändert sie sich auch im Folgedokument. Das schimpft sich wohl "Guided by".
Mein Programm kopiert nun die gewünschten Textmarken hintereinander in ein neues Dokument, und sobald ich dieses aktualisiere, was leider unumgänglich ist, bekomme ich den Fehler "Fehler! Verweisquelle konnte nicht gefunden werden."
Gibt es die Möglichkeit, dass ich die Verweise mit kopiere? Oder das ich sie irgendwie wiederherstellen kann ohne diesen Prozess, sprich das Durchsuchen nach ähnlichen Wörtern aufwendig programmiere?
Ich kopiere die Textmarken folgerndermaßen aus dem Ursprungsdokument in die Word-Vorlage:
Ansonsten hätte ich noch die Möglichkeit, dass ich die Vorlage aufrufe, alle nicht gewünschten Textmarken entferne und die Datei unter neuem Namen abspeichere. Wäre allerdings unschön das jetzt komplett neu zu programmieren.
Inzwischen kann ich in einer Excel-Tabelle ausgewählte Textmarken aus einem Word-Dokument in eine Word-Vorlage schreiben.Ich habe allerdings Textmarken in Textmarken.
Sprich ich habe in der Einleitungstextmarke die ISO-Norm XYZ.
Diese ISO-Norm ist in der Vorlage auf alle ISO-Normen mit derselben Bezeichnung verlinkt. Also wenn ich sie am Anfang anpasse, ändert sie sich auch im Folgedokument. Das schimpft sich wohl "Guided by".
Mein Programm kopiert nun die gewünschten Textmarken hintereinander in ein neues Dokument, und sobald ich dieses aktualisiere, was leider unumgänglich ist, bekomme ich den Fehler "Fehler! Verweisquelle konnte nicht gefunden werden."
Gibt es die Möglichkeit, dass ich die Verweise mit kopiere? Oder das ich sie irgendwie wiederherstellen kann ohne diesen Prozess, sprich das Durchsuchen nach ähnlichen Wörtern aufwendig programmiere?
Ich kopiere die Textmarken folgerndermaßen aus dem Ursprungsdokument in die Word-Vorlage:
Quellcode
- Sub TextmarkeSpeichern(ByVal WordApp As Object, ByVal WordQuellDatei As Object, ByVal WordZielDatei As Object, ByVal Zeile As Integer)
- Dim rngBereich As Word.Range
- TextmarkenName = Sheets("Prüferstellung").Range("D" & Zeile).Value
- If WordQuellDatei.Bookmarks.Exists(TextmarkenName) Then
- Set rngBereich = WordQuellDatei.Bookmarks(TextmarkenName).Range
- rngBereich.Copy
- WordZielDatei.Range(Start:=WordZielDatei.Content.End - 1, End:=WordZielDatei.Content.End - 1).Paste
- End If
- End Sub
Ansonsten hätte ich noch die Möglichkeit, dass ich die Vorlage aufrufe, alle nicht gewünschten Textmarken entferne und die Datei unter neuem Namen abspeichere. Wäre allerdings unschön das jetzt komplett neu zu programmieren.