3 načina za brzo umetanje tablice sadržaja u vaš Word dokument

U ovom postu ćemo vam pokazati 3 načina kako brzo umetnuti sadržaj u Word dokument.

Dok čitate dokument u Wordu, možete koristiti ili tablicu sadržaja ili navigacijsko okno kako biste si pomogli da brzo pregledavate sadržaj. Ipak, kada je u pitanju ispis, navigacijsko okno ne može se ispisati zajedno s dokumentom. Ali, bivši ima. Stoga je potrebno umetnuti sadržaj u Wordov dokument, osobito dugačak. Slijede 3 učinkovite metode.

Metoda 1: Ručno umetanje tablice sadržaja

1. Prvo postavite kursor na mjesto gdje želite da ide sadržaj. Pritisnite karticu "Reference", a zatim naredbu "Sadržaj".
2. Zatim odaberite "Umetni tablicu sadržaja".
3. U otvorenom dijaloškom okviru postavite konfiguracije prema vašim potrebama, kao što je "Prikaži razine".
4. Kliknite "U redu".

Obično sadržaj postavljamo na prvu stranicu dokumenta. Ako ste prije umetnuli broj stranice, vidjet ćete da glavna stranica dokumenta sada počinje na stranici 2. Evo situacije. Neki će ljudi htjeti da glavna stranica dokumenta počinje na stranici 1 kao i obično, dok će sadržaj biti isključen iz numeriranja stranica. Za to će vam trebati dodatne operacije. Pročitajte ovaj članak za detaljne upute: Kako započeti numeriranje stranica od određene stranice u Wordu

I ne zaboravite ažurirati svoju tablicu sadržaja nakon svih prilagodbi.

Metoda 2: Pokrenite Word Macro

Kao što vidite, ručni način umetanja tablice sadržaja pomalo je zamoran, s problemima poput ponovnog postavljanja brojeva stranica. Iz tog razloga, preporučamo da koristite makro način da ispunite ovaj zadatak. Uz makronaredbu, cijeli proces možete automatski izvesti u nekoliko sekundi.

1. Prvo, pritisnite "Ctrl + Home" da biste se vratili na početak dokumenta.
2. Zatim pritisnite “Alt+ F11” za pokretanje VBA editora.
3. Zatim kliknite na "Normalno", a zatim na "Umetni".
4. Odaberite “Modul” i dvaput kliknite na njega da biste otvorili područje za uređivanje.
5. Zatim tamo zalijepite sljedeće kodove:

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. Posljednje, ali ne i najmanje važno, kliknite "Pokreni".

Nakon pokretanja makronaredbe, novo umetnuti sadržaj bit će postavljen na prvu stranicu, a numeriranje stranica počinje od druge. Također, sadržaj je već ažuriran.

Metoda 3: Umetnite tablice sadržaja u više dokumenata

U slučaju da vam se sviđa jednostavnost skupne obrade, upotrijebite sljedeći 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

Samo slijedite iste korake u 2. metodi za instaliranje i pokretanje makronaredbe.

Bilješke

1. Najprije morate posložiti sve dokumente u isti imenik.
2. Nikada ne zaboravite zamijeniti “C:\Users\Public\Documents\New folder\Test1\” stvarnim putem do mape. Ne zaboravite zadnji “\”.

Alat za popravak Worda

Budući da će se Word iznenada srušiti, potrebno je pripremiti alat za to popraviti Word i Word dokumente. Pravovremenim oporavkom može se dobiti što je više moguće podataka. Stoga je preporučljivo unaprijed nabaviti profesionalan proizvod.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com