如何在 Word VBA 中不考虑样式而跳转到具有大纲级别的段落?
How to jump to paragraphs with an outline level regardless of style in Word VBA?
This question asks about moving between headers in Word VBA, and Doc Brown kindly pointed outSelection.GoTo What:=wdGoToHeading
。当我使用
ActiveWindow.Selection.GoTo wdGoToHeading, wdGoToNext
或
ActiveWindow.Selection.GoTo wdGoToHeading, wdGoToPrevious
选择在 Heading <n>
样式之间移动,但不会跳转到我创建的自定义样式,这些样式的大纲级别为级别 1、2...(不是正文)。除了重复调用 Next wdParagraph
和测试 Range.OutlineLevel < wdOutlineLevelBodyText
之外,还有什么方法可以根据 大纲级别 在段落之间跳转吗?
您可以通过使用大纲视图仅显示您感兴趣的大纲级别,然后在可见段落之间导航来执行此操作:
ActiveWindow.ActivePane.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading 3
Selection.MoveDown Unit:=wdParagraph
This question asks about moving between headers in Word VBA, and Doc Brown kindly pointed outSelection.GoTo What:=wdGoToHeading
。当我使用
ActiveWindow.Selection.GoTo wdGoToHeading, wdGoToNext
或
ActiveWindow.Selection.GoTo wdGoToHeading, wdGoToPrevious
选择在 Heading <n>
样式之间移动,但不会跳转到我创建的自定义样式,这些样式的大纲级别为级别 1、2...(不是正文)。除了重复调用 Next wdParagraph
和测试 Range.OutlineLevel < wdOutlineLevelBodyText
之外,还有什么方法可以根据 大纲级别 在段落之间跳转吗?
您可以通过使用大纲视图仅显示您感兴趣的大纲级别,然后在可见段落之间导航来执行此操作:
ActiveWindow.ActivePane.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading 3
Selection.MoveDown Unit:=wdParagraph