Einbetten verknüpfter Dokumente (Microsoft Word)
Jennifer hat ein Word-Dokument, das Links zu Hunderten anderer Dokumente enthält. Jetzt möchte sie jeden dieser Links durch das eigentliche Dokument ersetzen, auf das verwiesen wird. (Mit anderen Worten, sie möchte die Dokumente, auf die verwiesen wird, einbetten.) Sie fragt sich, ob es einen globalen Weg gibt, dies zu tun, anstatt jedes Dokument einzeln ausführen zu müssen.
Die Lösung hängt davon ab, wie genau Sie die anderen Dokumente mit Ihrem aktuellen Dokument verknüpft haben. Wenn Sie den Inhalt einer anderen Datei mit dem Befehl Text aus Datei (Registerkarte Einfügen | Objekt | Text aus Datei) eingefügt und als Link eingefügt haben, wird der Dateiinhalt mithilfe des Felds INCLUDETEXT hinzugefügt. Wie bei jedem anderen Feld können Sie die Verknüpfung des Felds auf folgende Weise aufheben:
-
Wählen Sie das Feld aus. (Wenn Sie viele Felder haben, drücken Sie Strg + A, um das gesamte Dokument auszuwählen.)
-
Drücken Sie Strg + Umschalt + F9. Word hebt die Verknüpfung der Felder auf und belässt den Text, den die Felder darstellen.
Wenn Ihre Dokumente über Hyperlinks verknüpft sind, ist der Vorgang etwas schwieriger. Der Grund ist einfach: Ein Hyperlink ist nur ein Zeiger auf das andere Dokument, nicht auf den tatsächlichen Inhalt dieses anderen Dokuments. Dies bedeutet, dass Sie eine Möglichkeit finden müssen, das andere Dokument zu öffnen, dessen Inhalt abzurufen und es anstelle des Hyperlinks in das aktuelle Dokument einzufügen.
Diese Art von Arbeit ist perfekt für ein Makro. Das folgende Beispiel geht tatsächlich durch jeden Hyperlink zurück und fügt die Dateien ein:
Sub InsertDocs() Dim aRange As Range Dim J As Long Set aRange = ActiveDocument.Range ' Go backwards because hyperlinks are deleted as processed For J = aRange.Hyperlinks.Count to 1 Step -1 With aRange.Hyperlinks(J) ' Process only hyperlinks to documents If InStr(.Address, ".doc") > 0 Then .Range.Select On Error GoTo noFile .Follow On Error GoTo 0 ActiveDocument.Range.Copy ActiveDocument.Close Selection.Paste End If GoTo nextFile noFile: On Error GoTo 0 MsgBox "Cannot open file " & .Address nextFile: End With Next J End Sub
Beachten Sie, dass das Makro den Hyperlink überprüft, um sicherzustellen, dass er die Buchstaben „.doc“ enthält. Dies bedeutet nicht, dass es nur auf die alten .DOC-Dateien beschränkt ist, da der Test auch mit den Buchstaben „.docx“ und „.docm“ übereinstimmen würde.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (6824) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.