提取已删除书签的名称

罗达

书签名称提取.zip (26.5 KB, 下载次数: 11)

2021-3-2 20:48 上传

点击文件名下载附件

问题：

文档中在编辑时插入了书签，复制到其他电脑后书签全部丢失，刷新后出现错误提示，见上图。

求助：

因该处的域代码切换后能看见原书签名称，能否用VBA通过“错误！”提取出域代码中的书签名称，并替换“错误！”，转化为文本。我只能提取已有书签的名称，这个无能为力，请大神指点！先谢过！

经过今晚的学习和查找，换个思路自己解决了。留个记号

1. Sub test()
   
2. '将丢失书签的域代码更正为对应文本
   
3. Dim doc As Document
   
4. Dim fl As Field
   
5. Dim bm As Bookmark
   
6. Dim x As Range, k As Long, j As String
   
7. 
   
8. 
   
9. For Each fl In ThisDocument.Fields
   
10.     With fl
    
11.         Set x = .Code
    
12.         j = x.Text
    
13.         If InStr(j, "REF ") > 0 And InStr(j, " \h  \* MERGEFORMAT ") > 0 Then
    
14.             k = InStr(j, " ")
    
15.             j = VBA.Mid(j, 6, k - 6)
    
16.             .Select
    
17.             Selection.Text = j
    
18.             On Error Resume Next
    
19.             .Delete
    
20.         End If
    
21.     End With
    
22. Next
    
23. 
    
24. End Sub

复制代码

罗达

版主能否帮忙移到VBA板块儿呀，这里太少人关注呀