3 måter å raskt sette inn en innholdsfortegnelse i Word-dokumentet ditt

I dette innlegget viser vi deg tre måter å raskt sette inn en innholdsfortegnelse i Word-dokumentet ditt.

Mens du leser et dokument i Word, kan du bruke enten innholdsfortegnelse eller navigasjonsrute for å hjelpe deg selv å se gjennom innholdet raskt. Men når det kommer til utskrift, kan navigasjonsruten ikke skrives ut sammen med dokumentet. Men det gjør førstnevnte. Derfor er det nødvendig å sette inn en innholdsfortegnelse i et Word-dokument, spesielt et langt. Følgende er 3 effektive metoder.

Metode 1: Sett inn en innholdsfortegnelse manuelt

1. Sett først markøren på stedet der du vil at innholdsfortegnelsen skal. Klikk på "Referanser"-fanen og deretter "Innholdsfortegnelse"-kommandoen.
2. Velg deretter "Sett inn innholdsfortegnelse".
3. I den åpne dialogboksen setter du opp konfigurasjonene som du trenger, for eksempel "Vis nivåer".
4. Klikk på "OK".

Vanligvis plasserer vi innholdsfortegnelsen på den første siden i dokumentet. Hvis du har satt inn sidetall før, vil du se at hoveddokumentet nå starter på side 2. Da er situasjonen slik: Noen vil at hoveddokumentsiden skal starte på side 1 som vanlig, mens innholdsfortegnelsen skal utelates fra sidenummereringen. For å gjøre dette trenger du ekstra operasjoner. Les denne artikkelen for detaljerte instruksjoner: Slik starter du sidenummerering fra en bestemt side i Word

Og husk å oppdatere innholdsfortegnelsen etter alle justeringene.

Metode 2: Kjør Word Macro

Som du ser, er den manuelle måten å sette inn en innholdsfortegnelse på litt slitsom, med slike problemer som tilbakestilling av sidetall. Av denne grunn anbefaler vi at du bruker makrometoden for å utføre denne oppgaven. Med en makro kan du få hele prosessen automatisk utført på sekunder.

1. Først trykker du «Ctrl+Home» for å gå til starten av dokumentet.
2. Trykk deretter "Alt+ F11" for å utløse VBA-editor.
3. Klikk deretter på "Normal" og deretter "Sett inn".
4. Velg "Modul" og dobbeltklikk på den for å åpne redigeringsområdet.
5. Deretter limer du inn 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. Sist men ikke minst, klikk "Kjør".

Etter at makroen er kjørt, vil den nylig innsatte innholdsfortegnelsen bli plassert på den første siden, og sidenummereringen starter på den andre. Innholdsfortegnelsen er også allerede oppdatert.

Metode 3: Sett inn innholdsfortegnelser i flere dokumenter

Hvis du liker den enkle batchbehandlingen, bruker du makroen nedenfor:

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

Bare følg de samme trinnene i metode 2 for å installere og kjøre makroen.

Merknader

1. Du må først ordne alle dokumenter i samme katalog.
2. Glem aldri å erstatte "C:\Users\Public\Documents\New folder\Test1\" med den faktiske mappebanen. Ikke glem den siste "\".

Reparasjonsverktøy for Word

Siden Word plutselig krasjer, er det et must å forberede et verktøy til reparere Word og Word-dokumenter. En rask gjenoppretting kan få tak i så mange data som mulig. Derfor er det lurt å skaffe seg et profesjonelt produkt på forhånd.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-fiks og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med