Ian a de très nombreux documents qui incluent des liens vers d’autres documents.

(Ce ne sont pas des hyperliens; ce sont de véritables liens vers des documents dans Word.) Il a besoin de rompre ces liens et il sait qu’il peut charger les documents et rompre les liens un par un. Il se demande cependant s’il existe une macro disponible qui pourrait parcourir tous les documents d’un dossier et rompre automatiquement tous les liens dans ces documents.

Manuellement, vous pouvez rompre les liens en suivant ces étapes:

  1. Cliquez sur l’onglet Fichier du ruban.

  2. Assurez-vous que Info est sélectionné sur le côté gauche de l’écran.

  3. En bas à droite de l’écran, sous la catégorie Documents connexes, cliquez sur Modifier les liens vers les fichiers. (Si cette option n’est pas disponible, cela signifie que Word ne pense pas qu’il existe des liens dans le document actuel.) Word affiche la boîte de dialogue Liens. (Voir la figure 1.)

  4. Sélectionnez le lien que vous souhaitez rompre.

  5. Cliquez sur Break Link. Vous êtes invité à confirmer votre action.

  6. Cliquez sur OK.

Les étapes sont un peu différentes si vous utilisez Word 2007:

  1. Cliquez sur le bouton Office, puis sur Préparer.

  2. Cliquez sur Modifier les liens vers les fichiers. (Si cette option n’est pas disponible, cela signifie que Word ne pense pas qu’il y a des liens dans le document actuel.)

Word affiche la boîte de dialogue Liens.

  1. Sélectionnez le lien que vous souhaitez rompre.

  2. Cliquez sur Break Link. Vous êtes invité à confirmer votre action.

  3. Cliquez sur OK.

Comme vous pouvez le constater, ce processus demande beaucoup de travail, en particulier si vous avez beaucoup de documents et que chaque document a plusieurs liens. La nature laborieuse du processus explique pourquoi Ian cherchait un moyen de rompre les liens sous le contrôle d’une macro.

Pour ce faire dans une macro, la macro doit ouvrir chaque document du dossier, rompre tous les liens qu’elle trouve, puis enregistrer le document.

Déterminer le nombre de documents contenus dans un dossier, les ouvrir et les fermer est assez simple. Si vous souhaitez rompre les liens, la macro doit parcourir chaque champ du document et ne rompre que ceux qui utilisent le champ LINK. La macro suivante montre comment procéder.

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

Notez la boucle For Each qui examine chaque champ (fld) dans la collection Fields. Il vérifie que la propriété Type du champ est égale à wdFieldLink, ce qui signifie qu’il s’agit d’un champ LINK. Si tel est le cas, le code utilise la méthode BreakLink avec la propriété LinkFormat pour le champ, supprimant efficacement le lien.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (2357) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.