Lote renombrar múltiples marcadores en el archivo .docx de Word

0

¿Es posible cambiar el nombre de múltiples marcadores en el archivo de documento estándar de Word 97-2003? Acabo de terminar un documento de 400 páginas, en Word 2010, con varios cientos de marcadores que deben ser renombrados y definitivamente no quiero entrar y renombrarlos manualmente. Encontré este complemento de Word para mejorar el cuadro de diálogo de marcadores de Word incorporado, pero parece que no puedo cargarlo correctamente en mi documento, si puedo hacerlo funcionar, resolverá mi problema. Hasta entonces, ¿hay otros métodos directos para lograr esto? Quizás esto se pueda lograr usando macros. En este momento estoy buscando ver si OpenOffice admite el cambio de nombre por lotes de marcadores en un archivo docx. La ayuda es apreciada.


fuente

Respuestas:

1

Puede hacer esto con una macro VBA en Word. La macro a continuación, que se toma de aquí (y se analiza con mayor detalle en la página web), antepondrá "NEW_" a cada nombre de marcador existente, pero se puede adaptar para cambiar el nombre de los marcadores con las convenciones deseadas.

Sub RenameBookmarks()
'  although it does NOT rename them
'  it creates a new one for the same range
'  then deletes the old one

Dim BM_Names()
Dim i As Long
With ActiveDocument
  For i = 1 To .Bookmarks.Count
    ReDim Preserve BM_Names(i)
    BM_Names(i) = .Bookmarks(i).Name
  Next
  For i = 1 To .Bookmarks.Count
    With .Bookmarks(BM_Names(i))
      .Range.Bookmarks.Add Name:="NEW_" & .Name, Range:=.Range
      .Delete
    End With
  Next
End With
End Sub

fuente