如何实现word导航中“选中标题和内容”？

sylun

可借用预定义书签（WPS可能不适用）定位标题段落及其所属内容。可试试如下代码效果

1. Sub test()
   
2.     '依次对每个二级标题及其所属段落范围添加一书签
   
3.     Dim i As Integer, bmkName As String
   
4.    
   
5.     With Selection.Find
   
6.         .Parent.HomeKey wdStory
   
7.         .Style = "标题 2"
   
8.         Do While .Execute = True
   
9.             i = i + 1
   
10.             bmkName = "hd2_" & Format(i, "000")
    
11.             ActiveDocument.Bookmarks.Add bmkName, Bookmarks("\headinglevel").Range
    
12.             Selection.start = ActiveDocument.Bookmarks(bmkName).End
    
13.         Loop
    
14.         ActiveDocument.Bookmarks(bmkName).Select  '选中最后一个书签的内容
    
15.         MsgBox "共插入了" & i & "个书签。"
    
16.     End With
    
17. End Sub

复制代码

snow653124

sylun 发表于 2022-9-14 22:46
可借用预定义书签（WPS可能不适用）定位标题段落及其所属内容。可试试如下代码效果

谢谢 这种还不会 处于盲区
学习了