Aumentando todos os níveis em uma lista em 1 em um documento do word

Question

Eu tenho um documento do Word que foi dividido em partes diferentes usando uma lista de vários níveis. O problema é que preciso copiar todo o documento para outro documento de nível superior. Então, existe uma maneira de aumentar automaticamente a lista de vários níveis um nível a mais?

EDIT 01: O estilo atual é assim:

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

Eu quero mudar para ser assim:

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

    

Answer 1

Com base na sua descrição, você tem sua lista de vários níveis vinculada a estilos de título. Se sim, a maneira mais fácil é provavelmente usar uma macro, como esta:

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

Nota: modifique o código se o seu estilo não tiver o nome "Cabeçalho x".

    

Answer 2

Simplesmente destaque as linhas que você quer mover para fora (não é necessário selecionar tudo, apenas as linhas que deseja mover), e pressione a tecla Tab ou Shift-Tab . Cada vez que pressionar a guia, você recuará / esgotará toda a seleção, além de alterar os níveis dessas linhas na lista.