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:

  1. Klicken Sie im Menüband auf die Registerkarte Datei.

  2. Stellen Sie sicher, dass Info auf der linken Seite des Bildschirms ausgewählt ist.

  3. 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.)

  4. Wählen Sie den Link aus, den Sie unterbrechen möchten.

  5. Klicken Sie auf Break Link. Sie werden aufgefordert, Ihre Aktion zu bestätigen.

  6. Klicken Sie auf OK.

Die Schritte sind etwas anders, wenn Sie Word 2007 verwenden:

  1. Klicken Sie auf die Office-Schaltfläche und dann auf Vorbereiten.

  2. 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.

  1. Wählen Sie den Link aus, den Sie unterbrechen möchten.

  2. Klicken Sie auf Break Link. Sie werden aufgefordert, Ihre Aktion zu bestätigen.

  3. 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.