Unterbrechen von Links in vielen Dokumenten (Microsoft Word)
Ian hat viele, viele Dokumente, die Links zu anderen Dokumenten enthalten.
(Dies sind keine Hyperlinks; es handelt sich um tatsächliche Dokumentverknüpfungen in Word.) Er muss diese Verknüpfungen unterbrechen, und er weiß, dass er die Dokumente laden und die Verknüpfungen einzeln aufheben kann. Er fragt sich jedoch, ob ein Makro verfügbar ist, das alle Dokumente in einem Ordner durchsuchen und automatisch alle Links in diesen Dokumenten unterbrechen könnte.
Manuell können Sie Links unterbrechen, indem Sie die folgenden Schritte ausführen:
-
Klicken Sie im Menüband auf die Registerkarte Datei.
-
Stellen Sie sicher, dass Info auf der linken Seite des Bildschirms ausgewählt ist.
-
Klicken Sie unten rechts auf dem Bildschirm unter der Kategorie „Verwandte Dokumente“ auf „Links zu Dateien bearbeiten“. (Wenn diese Option nicht verfügbar ist, bedeutet dies, dass Word nicht glaubt, dass das aktuelle Dokument Links enthält.) Word zeigt das Dialogfeld Links an. (Siehe Abbildung 1.)
-
Wählen Sie den Link aus, den Sie unterbrechen möchten.
-
Klicken Sie auf Break Link. Sie werden aufgefordert, Ihre Aktion zu bestätigen.
-
Klicken Sie auf OK.
Die Schritte sind etwas anders, wenn Sie Word 2007 verwenden:
-
Klicken Sie auf die Office-Schaltfläche und dann auf Vorbereiten.
-
Klicken Sie auf Links zu Dateien bearbeiten. (Wenn diese Option nicht verfügbar ist, bedeutet dies, dass Word nicht glaubt, dass das aktuelle Dokument Links enthält.)
Word zeigt das Dialogfeld Links an.
-
Wählen Sie den Link aus, den Sie unterbrechen möchten.
-
Klicken Sie auf Break Link. Sie werden aufgefordert, Ihre Aktion zu bestätigen.
-
Klicken Sie auf OK.
Wie Sie sehen, ist dieser Prozess ziemlich arbeitsintensiv, insbesondere wenn Sie viele Dokumente haben und jedes Dokument mehrere Links hat. Der arbeitsintensive Charakter des Prozesses ist der Grund, warum Ian nach einer Möglichkeit suchte, die Verbindungen unter der Kontrolle eines Makros zu unterbrechen.
Um dies in einem Makro zu tun, muss das Makro jedes Dokument im Ordner öffnen, alle gefundenen Links unterbrechen und das Dokument dann speichern.
Es ist ziemlich einfach herauszufinden, wie viele Dokumente sich in einem Ordner befinden, sie zu öffnen und zu schließen. Wenn Sie die Links unterbrechen möchten, muss das Makro jedes Feld im Dokument durchsuchen und nur diejenigen unterbrechen, die das Feld LINK verwenden. Das folgende Makro zeigt, wie das gemacht wird.
Sub RemoveLinks() Dim fleArray() As String Dim flCount As Long Dim k As Long Dim fle As String Dim fld As Field Dim currentFileName As String Dim docPath As String Dim bDirty As Boolean docPath = ActiveDocument.Path & "\" currentFileName = ActiveDocument.Name fle = Dir(docPath & "doc") flCount = -1 ReDim fleArray(0) Do While fle <> "" flCount = flCount + 1 ReDim Preserve fleArray(flCount) fleArray(flCount) = fle fle = Dir() Loop If MsgBox("There are " & flCount + 1 & " files to be processed." _ & vbCrLf & "Do you want to continue?", vbYesNo, "Break links") _ = vbNo Then Exit Sub For k = 0 To UBound(fleArray) fle = fleArray(k) Options.UpdateLinksAtOpen = False Documents.Open FileName:=docPath & fle Options.UpdateLinksAtOpen = True bDirty = False For Each fld In ActiveDocument.Fields If fld.Type = wdFieldLink Then ' Uncomment the following if link needs to be updated ' before the link is broken ' fld.LinkFormat.Update fld.LinkFormat.BreakLink bDirty = True End If Next fld If bDirty Then ActiveDocument.Save ' Only save if links broken If ActiveDocument.Name <> currentFileName Then ActiveDocument.Close Next k End Sub
Beachten Sie die For Each-Schleife, die jedes Feld (fld) in der Fields-Auflistung betrachtet. Es wird überprüft, ob die Type-Eigenschaft des Felds gleich wdFieldLink ist. Dies bedeutet, dass es sich um ein LINK-Feld handelt. In diesem Fall verwendet der Code die BreakLink-Methode mit der LinkFormat-Eigenschaft für das Feld, wodurch der Link effektiv entfernt wird.
_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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (2357) gilt für Microsoft Word 2007, 2010, 2013 und 2016.