3 maneiras de inserir rapidamente um sumário em seu documento do Word

Neste post, mostraremos 3 maneiras de inserir rapidamente um sumário em seu documento do Word.

Ao ler um documento no Word, você pode usar o sumário ou o painel de navegação para ajudá-lo a examinar o conteúdo rapidamente. No entanto, quando se trata de impressão, o painel de navegação não pode ser impresso junto com o documento. Mas, o primeiro sim. Portanto, é necessário inserir um sumário em um documento do Word, especialmente um longo. A seguir estão 3 métodos eficazes.

Método 1: Inserir um sumário manualmente

1. Em primeiro lugar, coloque o cursor no local onde deseja que o sumário fique. Clique na guia “Referências” e depois no comando “Índice”.
2. Em seguida, selecione “Inserir índice”.
3. Na caixa de diálogo aberta, defina as configurações necessárias, como “Mostrar níveis”.
4. Clique OK".

Normalmente, o sumário é colocado na primeira página do documento. Se você já inseriu números de página, o documento principal agora começa na página 2. Mas eis a situação: algumas pessoas preferem que o documento principal comece na página 1, como de costume, e que o sumário não seja incluído na numeração de páginas. Para isso, você precisará realizar algumas operações adicionais. Leia este artigo para obter instruções detalhadas: Como iniciar a numeração de páginas a partir de uma página específica no seu Word.

E lembre-se de atualizar seu sumário após todos os ajustes.

Método 2: Executar Macro do Word

Como você pode ver, a maneira manual de inserir um sumário é um pouco cansativa, com problemas como redefinir os números das páginas. Por esta razão, recomendamos que você use a forma macro para realizar esta tarefa. Com uma macro, você pode ter todo o processo executado automaticamente em segundos.

1. Primeiramente, pressione “Ctrl + Home” para ir ao início do documento.
2. Em seguida, pressione “Alt+F11” para acionar o editor VBA.
3. Em seguida, clique em “Normal” e depois em “Inserir”.
4. Escolha “Módulo” e clique duas vezes sobre ele para abrir a área de edição.
5. Em seguida, cole os seguintes códigos lá:

Sub InsertTOC()
  Selection.InsertBreak Type:=wdSectionBreakNextPage
  Selection.HomeKey Unit:=wdStory
  With ActiveDocument
    .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
      True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
      LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
      UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _True
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
  End With
  ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
  With ActiveDocument.Sections(2)
    .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    .Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
    .Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
  End With
  ActiveDocument.TablesOfContents(1).Update
End Sub

6. Por último, mas não menos importante, clique em “Executar”.

Após a execução da macro, o sumário recém-inserido será colocado na primeira página e a numeração das páginas começará na segunda. Além disso, o sumário já estará atualizado.

Método 3: inserir sumários em vários documentos

Caso você goste da facilidade do processamento em lote, utilize a seguinte macro:

Sub InsertTOCForMultiDoc()
  Dim objDoc As Document
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\Test1\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Precess each document in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    Selection.HomeKey Unit:=wdStory
    With ActiveDocument
      .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True.TablesOfContents(1).TabLeader = wdTabLeaderDots
      .TablesOfContents.Format = wdIndexIndent
    End With
    ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
    With ActiveDocument.Sections(2)
      .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
      .Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
      .Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
    End With
    ActiveDocument.TablesOfContents(1).Update
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Basta seguir as mesmas etapas do método 2 para instalar e executar a macro.

Notas

1. Você deve primeiro organizar todos os documentos no mesmo diretório.
2. Nunca se esqueça de substituir “C:\Users\Public\Documents\New folder\Test1\” pelo caminho da pasta atual. Não se esqueça do último “\”.

Ferramenta de Reparação do Word

Como o Word trava repentinamente, é necessário preparar uma ferramenta para palavra de reparação e documentos do Word. Uma recuperação rápida pode preservar o máximo de dados possível. Portanto, é recomendável obter um produto eficiente com antecedência.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Correção do Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com