Jennifer tiene un documento de Word que tiene enlaces a cientos de otros documentos. Ahora quiere reemplazar cada uno de esos enlaces con el documento real al que se hace referencia. (En otras palabras, quiere incrustar los documentos referenciados). Se pregunta si existe una forma global de hacer esto en lugar de tener que hacer cada documento por separado.

La solución depende de cómo, exactamente, tenga los otros documentos vinculados a su documento actual. Si insertó el contenido de otro archivo usando el comando Texto desde archivo (pestaña Insertar | Objeto | Texto desde archivo) y eligió insertarlo como un vínculo, entonces el contenido del archivo se agrega mediante el uso del campo INCLUDETEXT. Como con cualquier otro campo, puede desvincular el campo de esta manera:

  1. Seleccione el campo. (O, si tiene muchos campos, presione Ctrl + A para seleccionar el documento completo).

  2. Presione Ctrl + Mayús + F9. Word desvincula los campos, dejando el texto que representan los campos.

Si sus documentos están vinculados mediante hipervínculos, entonces el proceso es un poco más difícil. La razón es simple: un hipervínculo es solo un puntero al otro documento, no al contenido real de ese otro documento. Esto significa que debe encontrar una forma de abrir el otro documento, tomar su contenido y guardarlo en el documento actual en lugar del hipervínculo.

Este tipo de trabajo es perfecto para una macro. El siguiente ejemplo realmente retrocede a través de cada hipervínculo e inserta los archivos:

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

Tenga en cuenta que la macro comprueba el hipervínculo para asegurarse de que contiene las letras «.doc». Esto no significa que esté limitado solo a los archivos .DOC antiguos, ya que la prueba también coincidiría con las letras «.docx» y «.docm».

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (6824) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.