关于文档视图结构大纲跳转的问题。。。有请专家

yang111 2002-01-16 02:56:11

For i = 1 To ActiveDocument.Paragraphs.Count
If (ActiveDocument.Paragraphs.OutlineLevel <> dOutlineLevelBodyText) Then
MsgBox ActiveDocument.Paragraphs.Range.Text
End If
Next
以上这段话。我可以显示所有的文本大纲。也就是九级大纲我都可以读出来。现在想实现和word->视图->文档结构视图的功能。也就是想按结构视图上面的任一一个大纲,都会实现文档中光标跳到那个大纲的位置。

如果我用selection.find方法查找段落的话。假如有相同级别相同名字的大纲
find方法就可能定位不准确了。请问专家。有什么方法可进行大纲的跳转。
就像实现word内部文档视图结构这样的功能。

...全文
60 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jneu 2002-01-17
  • 打赏
  • 举报
回复
先用 Selection.InsertBreak wdSectionBreakContinuous 插入分节符
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=4
选择第四节点。

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧