3 måder at hurtigt indsætte en indholdsfortegnelse i dit Word-dokument

I dette indlæg viser vi dig 3 måder, hvorpå du hurtigt kan indsætte en indholdsfortegnelse i dit Word-dokument.

Mens du læser et dokument i Word, kan du bruge enten indholdsfortegnelsen eller navigationsruden til at hjælpe dig selv med at gennemse indholdet hurtigt. Men når det kommer til udskrivning, kan navigationsruden ikke udskrives sammen med dokument. Men det gør førstnævnte. Derfor er det nødvendigt at indsætte en indholdsfortegnelse i et Word-dokument, især en lang. Følgende er 3 effektive metoder.

Metode 1: Indsæt en indholdsfortegnelse manuelt

1. For det første skal du placere markøren på det sted, hvor du vil have, at indholdsfortegnelsen skal hen. Klik på fanen "Referencer" og derefter kommandoen "Indholdsfortegnelse".
2. Vælg derefter "Indsæt indholdsfortegnelse".
3. I dialogboksen åben skal du konfigurere konfigurationerne, som du har brug for, f.eks. “Vis niveauer”.
4. Klik på "OK".

Normalt placerer vi indholdsfortegnelsen på den første side i dokumentet. Hvis du har indsat sidetal før, vil du se, at hoveddokumentet nu starter på side 2. Så er situationen sådan her. Nogle vil have, at hoveddokumentets side starter på side 1 som sædvanligt, mens indholdsfortegnelsen skal udelades fra sidenummereringen. For at gøre dette skal du bruge ekstra handlinger. Læs denne artikel for detaljerede instruktioner: Sådan starter du sidenummerering fra en bestemt side i dit Word

Og husk at opdatere din indholdsfortegnelse efter alle justeringerne.

Metode 2: Kør Word Macro

Som du ser, er den manuelle måde at indsætte en indholdsfortegnelse lidt trættende på med problemer som nulstilling af sidetal. Af denne grund anbefaler vi, at du bruger makrovejen til at udføre denne opgave. Med en makro kan du få hele processen udført automatisk på få sekunder.

1. Først skal du trykke på "Ctrl + Home" for at gå til starten af ​​dokumentet.
2. Tryk derefter på "Alt + F11" for at udløse VBA-editor.
3. Klik derefter på “Normal” og derefter “Indsæt”.
4. Vælg “Module” og dobbeltklik på det for at åbne redigeringsområdet.
5. Indsæt derefter følgende koder der:

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. Sidst men ikke mindst, klik på "Kør".

Efter at have kørt makroen, vil den nyligt indsatte indholdsfortegnelse blive placeret på den første side, og sidenummereringen starter på den anden. Indholdsfortegnelsen er desuden allerede opdateret.

Metode 3: Indsæt indholdsfortegnelser i flere dokumenter

Hvis du kan lide den enkle batchbearbejdning, bruger du den bølgende makro:

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

Følg de samme trin i metode 2 for at installere og køre makroen.

Noter

1. Du skal først arrangere alle dokumenter under samme bibliotek.
2. Glem aldrig at erstatte "C: \ Brugere \ Offentlige \ Dokumenter \ Ny mappe \ Test1 \" med din aktuelle mappesti. Glem ikke det sidste "\".

Reparationsværktøj til Word

Da Word pludselig går ned, er det et must at forberede et værktøj til reparere Word og Word-dokumenter. En rettidig gendannelse kan få så mange data som muligt. Derfor er det tilrådeligt at anskaffe et effektivt produkt på forhånd.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel-rettelse og pdf produkter til reparation af software. For mere information besøg www.datanumen.com