Как перейти к абзацам с уровнем структуры независимо от стиля в Word VBA?

Question

Этот вопрос спрашивает о перемещении между заголовками в Word VBA, и Док Браун любезно указал 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

Вы можете сделать это с помощью Outline View, чтобы показать только уровни Outline, которые вас интересуют, а затем перемещаться между видимыми абзацами:

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