Jennifer a un document Word qui contient des liens vers des centaines d’autres documents. Elle souhaite maintenant remplacer chacun de ces liens par le document réel référencé. (En d’autres termes, elle souhaite intégrer les documents référencés.) Elle se demande s’il existe un moyen global de le faire au lieu d’avoir à faire chaque document séparément.

La solution dépend de la manière exacte dont vous avez les autres documents liés à votre document actuel. Si vous avez inséré le contenu d’un autre fichier à l’aide de la commande Texte à partir du fichier (onglet Insérer | Objet | Texte à partir du fichier) et que vous avez choisi d’insérer comme lien, le contenu du fichier est en fait ajouté via l’utilisation du champ INCLUDETEXT. Comme pour tout autre champ, vous pouvez dissocier le champ de cette manière:

  1. Sélectionnez le champ. (Ou, si vous avez beaucoup de champs, appuyez sur Ctrl + A pour sélectionner tout le document.)

  2. Appuyez sur Ctrl + Maj + F9. Word dissocie les champs, laissant le texte représenté par les champs.

Si vos documents sont liés à l’aide d’hyperliens, le processus est un peu plus difficile. La raison est simple: un lien hypertexte n’est qu’un pointeur vers l’autre document, pas le contenu réel de cet autre document. Cela signifie que vous devez trouver un moyen d’ouvrir l’autre document, de saisir son contenu et de le placer dans le document actuel à la place du lien hypertexte.

Ce type de travail est parfait pour une macro à faire. L’exemple suivant revient en arrière sur chaque hyperlien et insère les fichiers:

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

Notez que la macro vérifie le lien hypertexte pour s’assurer qu’il contient les lettres «.doc». Cela ne veut pas dire qu’il est limité uniquement aux anciens fichiers .DOC, car le test correspondrait également aux lettres « .docx » et « .docm ».

_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 (6824) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.