Toplu Word .docx dosyasındaki birden fazla yer işaretini yeniden adlandırın

Birden çok yer imini standart Word 97-2003 doc dosyasında yeniden adlandırmak mümkün müdür? Word 2010'da 400 sayfalık bir belgeyi yeni yeniden adlandırmam gereken yüzlerce yer imi ile yeni bitirdim ve kesinlikle girip elle yeniden adlandırmak istemiyorum. buldum bu Yerleşik Word Yer İşareti İletişim Kutusu'nu geliştirmek için Word eklentisi, ancak belgeme düzgün yüklenmesini sağlayamıyor gibi görünüyor, eğer çalışabilirsem sorunumu çözecektir. O zamana kadar bunu başarmak için başka basit yöntemler var mı? Belki bu makrolar kullanılarak yapılabilir. Şu anda OpenOffice'in bir docx dosyasındaki yer imlerinin toplu olarak yeniden adlandırılmasını destekleyip desteklemediğini görmek istiyorum. Yardım takdir edilir.

Bunu Word'deki bir VBA makrosu ile yapabilirsiniz. Alınan aşağıdaki makro İşte (ve Web sayfasında daha ayrıntılı olarak tartışılmıştır), mevcut her yer imi adına "YENİ_" eklenir, ancak istenen yer işaretleriyle istenen adları yeniden adlandırmak için uyarlanabilir.

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