3 sposoby szybkiego wstawienia spisu treści do dokumentu programu Word

W tym poście pokażemy Ci 3 sposoby, jak szybko wstawić spis treści do dokumentu Word.

Czytając dokument w programie Word, możesz użyć spisu treści lub okienka nawigacji, aby szybko przejrzeć zawartość. Jednak jeśli chodzi o drukowanie, okienka nawigacji nie można drukować razem z dokumentem. Ale ten pierwszy tak. Dlatego konieczne jest wstawienie spisu treści do dokumentu Worda, zwłaszcza długiego. Oto 3 skuteczne metody.

Metoda 1: Ręczne wstawianie spisu treści

1. Po pierwsze, umieść kursor w miejscu, w którym chcesz umieścić spis treści. Kliknij zakładkę „Referencje”, a następnie polecenie „Spis treści”.
2. Następnie wybierz „Wstaw spis treści”.
3. W otwartym oknie dialogowym ustaw konfiguracje według potrzeb, na przykład „Pokaż poziomy”.
4. Kliknij OK".

Zazwyczaj umieszczamy spis treści na pierwszej stronie dokumentu. Jeśli numer strony został już wcześniej wstawiony, dokument główny zaczyna się teraz na stronie 2. Oto sytuacja. Niektórzy chcą, aby strona główna dokumentu zaczynała się na stronie 1, jak zwykle, a spis treści został wyłączony z numeracji stron. Aby to zrobić, potrzebne będą dodatkowe operacje. Szczegółowe instrukcje znajdziesz w tym artykule: Jak rozpocząć numerację stron od konkretnej strony w programie Word

I pamiętaj, aby zaktualizować spis treści po wszystkich dostosowaniach.

Metoda 2: Uruchom makro programu Word

Jak widać, ręczne wstawianie spisu treści jest nieco męczące, z takimi problemami, jak resetowanie numerów stron. Z tego powodu zalecamy użycie metody makro do wykonania tego zadania. Za pomocą makra cały proces można wykonać automatycznie w ciągu kilku sekund.

1. Najpierw naciśnij „Ctrl+Home”, aby przejść na początek dokumentu.
2. Następnie naciśnij „Alt + F11”, aby uruchomić edytor VBA.
3. Następnie kliknij „Normalne”, a następnie „Wstaw”.
4. Wybierz „Moduł” i kliknij go dwukrotnie, aby otworzyć obszar edycji.
5. Następnie wklej tam następujące kody:

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. Na koniec kliknij „Uruchom”.

Po uruchomieniu makra nowo wstawiony spis treści zostanie umieszczony na pierwszej stronie, a numeracja stron rozpocznie się od drugiej. Ponadto spis treści jest już zaktualizowany.

Metoda 3: Wstaw spis treści do wielu dokumentów

Jeśli podoba ci się łatwość przetwarzania wsadowego, możesz użyć ryczącego makra:

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

Po prostu wykonaj te same kroki w metodzie 2, aby zainstalować i uruchomić makro.

Komentarz

1. Najpierw musisz umieścić wszystkie dokumenty w tym samym katalogu.
2. Nigdy nie zapomnij zastąpić „C: \ Users \ Public \ Documents \ New folder \ Test1 \” rzeczywistą ścieżką do folderu. Nie zapomnij o ostatnim „\”.

Narzędzie do naprawy programu Word

Ponieważ program Word nagle się zawiesi, należy przygotować odpowiednie narzędzie naprawa programu Word i dokumenty Word. Szybkie odzyskiwanie danych pozwala odzyskać jak najwięcej danych. Dlatego zaleca się wcześniejsze nabycie profesjonalnego produktu.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Poprawka programu Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com