请教高手：如何批量修改书签中文本内容？

gemj

daibao88 发表于 2019-7-16 21:46
Sub test()
    Dim d As Object, nm As String, rg As Range, bkm As Bookmark, str As String, adr As S ...

有求必应，真心太感谢了！认真学习中！

sylun

昨晚跟帖后想修改DM，结果修改后从添加的行之后的内容都没了，还要前后两次审核，真有点不适应。现再修改DM试试如何（针对第一个附件）

1. Sub test()
   
2.     Const conNum As String = "①②③④⑤⑥⑦⑧⑨⑩"
   
3.     Dim i As Byte
   
4.     Dim aBookmark As Bookmark
   
5.     Dim myFont As Font
   
6.    
   
7.     Application.ScreenUpdating = False
   
8.     ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
   
9.     For Each aBookmark In ActiveDocument.Bookmarks
   
10.         With aBookmark.Range
    
11.             i = InStr(conNum, .Text)
    
12.             Set myFont = .Font.Duplicate
    
13.             If i > 0 Then
    
14.                 .InsertBefore "[" & i & "]"
    
15.                 .Font = myFont
    
16.                 ActiveDocument.Range(.Start + Len(CStr(i)) + 2, .Start + Len(CStr(i)) + 3) = Empty
    
17.             End If
    
18.         End With
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21. End Sub

复制代码

daibao88

妙，大师出手果然不凡，学习了。

gemj

sylun 发表于 2019-7-17 20:10
昨晚跟帖后想修改DM，结果修改后从添加的行之后的内容都没了，还要前后两次审核，真有点不适应。现再修改DM ...

感谢多年的帮助和指导！衷心感谢大师，热泪盈眶中~