如何跳到具有大纲级别的段落，而不管Word VBA中的样式如何？

Question

This question询问Word VBA中头部之间的移动情况，而布朗博士则询问如何在Word VBA中移动pointed out 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