如何在Word VBA中跳转到具有大纲级别的段落而不考虑样式

Question

这个问题询问了在Word VBA中在页眉之间移动的问题，Doc Brown友好地指出了Selection.GoTo What:=wdGoToHeading。当我使用时

ActiveWindow.Selection.GoTo wdGoToHeading, wdGoToNext

或

ActiveWindow.Selection.GoTo wdGoToHeading, wdGoToPrevious

选择在Heading <n>样式之间移动，但不会跳转到我创建的具有级别1、2、…的大纲级别的自定义样式。。。(不是正文(。除了重复调用Next wdParagraph和测试Range.OutlineLevel < wdOutlineLevelBodyText之外，是否有任何方法可以基于大纲级别在段落之间跳转？

Answer 1

您可以使用大纲视图只显示您感兴趣的大纲级别，然后在可见段落之间导航：

ActiveWindow.ActivePane.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading 3
Selection.MoveDown Unit:=wdParagraph