Ian tiene muchos, muchos documentos que incluyen enlaces a otros documentos.

(Estos no son hipervínculos; son enlaces de documentos reales en Word). Necesita romper esos enlaces, y sabe que puede cargar los documentos y romper los enlaces uno por uno. Sin embargo, se pregunta si hay una macro disponible que pueda revisar todos los documentos de una carpeta y romper automáticamente todos los enlaces dentro de esos documentos.

Manualmente, puede romper enlaces siguiendo estos pasos:

  1. Haga clic en la pestaña Archivo de la cinta.

  2. Asegúrese de que Información esté seleccionada en el lado izquierdo de la pantalla.

  3. En la parte inferior derecha de la pantalla, en la categoría Documentos relacionados, haga clic en Editar vínculos a archivos. (Si esta opción no está disponible, significa que Word no cree que haya vínculos en el documento actual). Word muestra el cuadro de diálogo Vínculos. (Ver figura 1)

  4. Seleccione el vínculo que desea romper.

  5. Haga clic en Romper enlace. Se le pide que confirme su acción.

  6. Haga clic en Aceptar.

Los pasos son un poco diferentes si utiliza Word 2007:

  1. Haga clic en el botón Office y luego en Preparar.

  2. Haga clic en Editar vínculos a archivos. (Si esta opción no está disponible, significa que Word no cree que haya ningún vínculo en el documento actual).

Word muestra el cuadro de diálogo Vínculos.

  1. Seleccione el vínculo que desea romper.

  2. Haga clic en Romper enlace. Se le pide que confirme su acción.

  3. Haga clic en Aceptar.

Como puede ver, este proceso es bastante laborioso, especialmente si tiene muchos documentos y cada documento tiene varios enlaces. La naturaleza laboriosa del proceso es la razón por la que Ian estaba buscando una forma de romper los vínculos bajo el control de una macro.

Para hacer esto en una macro, la macro necesita abrir cada documento en la carpeta, romper cualquier vínculo que encuentre y luego guardar el documento.

Averiguar cuántos documentos hay en una carpeta, abrirlos y cerrarlos es bastante sencillo. Si desea romper los vínculos, la macro debe examinar cada campo del documento y romper solo aquellos que usan el campo LINK. La siguiente macro muestra cómo se hace esto.

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

Observe el bucle For Each que examina cada campo (fld) de la colección Fields. Verifica para asegurarse de que la propiedad Type del campo sea igual a wdFieldLink, lo que significa que es un campo LINK. Si es así, el código usa el método BreakLink con la propiedad LinkFormat para el campo, eliminando efectivamente el vínculo.

_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 (2357) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.