3 sätt att snabbt infoga en innehållsförteckning i ditt Word-dokument

I det här inlägget visar vi dig tre sätt att snabbt infoga en innehållsförteckning i ditt Word-dokument.

När du läser ett dokument i Word kan du använda antingen innehållsförteckningen eller navigeringsfönstret för att hjälpa dig att snabbt titta igenom innehållet. Men när det gäller utskrift kan navigeringsfönstret inte skrivas ut tillsammans med dokument. Men det gör den förra. Därför är det nödvändigt att infoga en innehållsförteckning i ett Word-dokument, särskilt en lång. Följande är tre effektiva metoder.

Metod 1: Infoga en innehållsförteckning manuellt

1. För det första, placera markören på den plats där du vill att innehållsförteckningen ska gå. Klicka på fliken "Referenser" och sedan på kommandot "Innehållsförteckning".
2. Välj sedan ”Infoga innehållsförteckning”.
3. I dialogrutan öppen ställer du in konfigurationerna efter behov, till exempel ”Visa nivåer”.
4. Klicka på "OK".

Vanligtvis placerar vi innehållsförteckningen på dokumentets första sida. Om du har angett sidnummer tidigare, kommer du att se att huvuddokumentet nu börjar på sidan 2. Då är situationen den här. Vissa vill att huvuddokumentets sida ska börja på sidan 1 som vanligt medan innehållsförteckningen ska exkluderas från sidnumreringen. För att göra detta behöver du extra åtgärder. Läs den här artikeln för detaljerade instruktioner: Så här startar du sidnumrering från en specifik sida i ditt Word

Och kom ihåg att uppdatera din innehållsförteckning efter alla justeringar.

Metod 2: Kör Word Macro

Som du ser är det manuella sättet att infoga en innehållsförteckning lite tröttsamt med problem som att återställa sidnummer. Av denna anledning rekommenderar vi att du använder makrovägen för att utföra denna uppgift. Med ett makro kan du få hela processen automatiskt på några sekunder.

1. Först, tryck "Ctrl + Home" för att gå till början av dokumentet.
2. Tryck sedan på “Alt + F11” för att utlösa VBA-redigeraren.
3. Klicka sedan på “Normal” och sedan “Infoga”.
4. Välj ”Modul” och dubbelklicka på den för att öppna redigeringsområdet.
5. Klistra sedan in följande koder där:

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 inte minst, klicka på "Kör".

Efter att ha kört makrot kommer den nyligen infogade innehållsförteckningen att placeras på första sidan och sidnumreringen börjar på den andra. Dessutom är innehållsförteckningen redan uppdaterad.

Metod 3: Infoga innehållsförteckningar i flera dokument

Om du gillar det enkla med batchbearbetning använder du det böljande makrot:

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ölj bara samma steg i metod 2 för att installera och köra makrot.

Anmärkningar

1. Du måste ordna alla dokument under samma katalog först.
2. Glöm aldrig att ersätta "C: \ Users \ Public \ Documents \ New folder \ Test1 \" med din faktiska mappsökväg. Glöm inte det sista “\”.

Reparationsverktyg för Word

Eftersom Word plötsligt kraschar är det ett måste att förbereda ett verktyg för reparera Word och Word-dokument. En snabb återställning kan få så mycket data som möjligt. Därför är det lämpligt att skaffa en professionell produkt i förväg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-fix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com