Увеличение всех уровней в списке на 1 в текстовом документе

Question

У меня есть документ Word, который был разделен на несколько частей с использованием многоуровневого списка. Дело в том, что мне нужно скопировать весь документ в другой документ более высокого уровня. Так есть ли способ автоматически увеличить весь многоуровневый список на один уровень дальше?

РЕДАКТИРОВАТЬ 01: текущий стиль выглядит так:

1- OldLevel1
  1-1- OldLevel2
    1-1-1- OldLevel3
2- OldLevel1
  2-1- OldLevel2

Я хочу изменить это так:

1- NewLevel1
  1-1- OldLevel1
      1-1-1- OldLevel2
        1-1-1-1- OldLevel3
    1-2- OldLevel1
      1-2-1- OldLevel2

Answer 1

На основании вашего описания у вас есть многоуровневый список, связанный со стилями заголовков. Если да, то, возможно, самый простой способ - использовать макрос, например так:

Sub test()
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        If Left(p.Style, 7) = "Heading" Then p.Style = Left(p.Style, 8) & CInt(Right(p.Style, 1)) + 1
    Next p
End Sub

Примечание: измените код, если ваш стиль не назван как "Заголовок х".

Answer 2

Просто выделите линии, которые вы хотите переместить или в которых (нет необходимости выделять все, только линии, которые вы хотите переместить), и нажмите клавишу Tab или Shift-Tab. Каждое нажатие на вкладку будет отступать / отступать весь выбор, а также изменять уровни этих строк в списке.