3 načina da brzo umetnete sadržaj u svoj Word dokument

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

Dok čitate dokument u Wordu, možete koristiti sadržaj ili okno za navigaciju da biste sebi pomogli da brzo pregledate sadržaj. Ipak, kada je u pitanju štampanje, okno za navigaciju ne može se štampati zajedno sa dokumentom. Ali, prvo radi. Zbog toga je potrebno u Word dokument umetnuti sadržaj, posebno dugačak. Slijede 3 efikasne metode.

Metoda 1: Ručno umetnite sadržaj

1. Prvo, postavite kursor na mjesto gdje želite da ide sadržaj. Kliknite karticu “Reference”, a zatim naredbu “Table of Contents”.
2. Zatim odaberite "Umetni sadržaj".
3. U dijaloškom okviru koji se otvori, podesite konfiguracije koje su vam potrebne, kao što je "Prikaži nivoe".
4. Kliknite na "OK".

Obično sadržaj postavljamo na prvu stranicu dokumenta. Ako ste ranije ubacili broj stranice, vidjet ćete da glavna stranica dokumenta sada počinje na stranici 2. Evo situacije. Neki ljudi će htjeti da glavna stranica dokumenta počinje na stranici 1 kao i obično, dok sadržaj treba biti isključen iz numeriranja stranica. Da biste to učinili, trebat će vam dodatne operacije. Pročitajte ovaj članak za detaljna uputstva: Kako započeti numeriranje stranica od određene stranice u vašem Wordu

I ne zaboravite da ažurirate svoj sadržaj nakon svih podešavanja.

Metoda 2: Pokrenite Word makro

Kao što vidite, ručni način umetanja tabele sadržaja je pomalo zamoran, sa problemima kao što je resetovanje brojeva stranica. Iz tog razloga, preporučujemo da koristite makro način da ispunite ovaj zadatak. Uz makro, možete automatski izvršiti cijeli proces za nekoliko sekundi.

1. Prvo, pritisnite "Ctrl + Home" da biste se vratili na početak dokumenta.
2. Zatim pritisnite “Alt+ F11” da pokrenete VBA editor.
3. Zatim kliknite na “Normal” i zatim “Insert”.
4. Odaberite “Module” i dvaput kliknite na njega da otvorite 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. Na kraju, ali ne i najmanje važno, kliknite na “Run”.

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

Metod 3: Umetnite sadržaj u više dokumenata

U slučaju da volite jednostavnost grupne obrade, koristite 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 metodi 2 da biste instalirali i pokrenuli makro.

bilješke

1. Prvo morate urediti sve dokumente u istom imeniku.
2. Nikada nemojte zaboraviti zamijeniti “C:\Users\Public\Documents\New folder\Test1\” sa svojom stvarnom putanjom do mape. Ne zaboravite posljednje “\”.

Alat za popravak za Word

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

Uvod za autora:

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