3 načini za hitro vstavljanje vsebine v dokument Word

V tej objavi vam bomo pokazali 3 načine, kako hitro vstaviti kazalo vsebine v Wordov dokument.

Med branjem dokumenta v Wordu si lahko z vsebino ali podoknom za krmarjenje pomagate hitro pogledati vsebino. Pri tiskanju pa podokna za krmarjenje ni mogoče natisniti skupaj z dokumentom. Ampak, prvi to počne. Zato je treba v Wordov dokument, še posebej dolg, vstaviti kazalo. Sledijo 3 učinkovite metode.

1. način: Ročno vstavite kazalo

1. Najprej postavite kazalko na mesto, kamor želite kazalo. Kliknite jeziček »Reference« in nato ukaz »Kazalo«.
2. Nato izberite »Vstavi kazalo«.
3. V odprtem pogovornem oknu nastavite želene konfiguracije, na primer »Prikaži ravni«.
4. Kliknite »V redu«.

Običajno kazalo vsebine postavimo na prvo stran dokumenta. Če ste že prej vstavili številko strani, boste ugotovili, da se glavna stran dokumenta zdaj začne na strani 2. Potem je situacija takšna. Nekateri ljudje želijo, da se glavna stran dokumenta začne na strani 1 kot običajno, medtem ko kazalo vsebine ni vključeno v oštevilčenje strani. Za to boste potrebovali dodatne operacije. Za podrobna navodila preberite ta članek: Kako začeti oštevilčevanje strani z določene strani v Wordu

In ne pozabite posodobiti kazala po vseh prilagoditvah.

2. način: zaženite Wordov makro

Kot vidite, je ročni način vstavljanja kazala nekoliko dolgočasen, s takšnimi težavami, kot je ponastavitev številk strani. Zato vam priporočamo, da za izpolnitev te naloge uporabite makro način. Z makrom lahko celoten postopek samodejno izvedete v nekaj sekundah.

1. Najprej pritisnite »Ctrl + Home«, da se premaknete na začetek dokumenta.
2. Nato pritisnite “Alt + F11”, da sprožite urejevalnik VBA.
3. Nato kliknite »Običajno« in nato »Vstavi«.
4. Izberite »Modul« in dvokliknite nanj, da odprete območje za urejanje.
5. Nato prilepite naslednje kode:

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. Nenazadnje kliknite »Zaženi«.

Po zagonu makra se bo novo vstavljeno kazalo vsebine postavilo na prvo stran, oštevilčenje strani pa se bo začelo na drugi. Kazalo vsebine je tudi že posodobljeno.

3. način: Vstavite kazalo vsebine v več dokumentov

Če vam je všeč enostavnost serijske obdelave, uporabite spodnji 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

Za namestitev in zagon makra sledite istim korakom v 2. metodi.

Opombe

1. Najprej morate vse dokumente razvrstiti v isti imenik.
2. Nikoli ne pozabite zamenjati “C: \ Users \ Public \ Documents \ New folder \ Test1 \” z vašo dejansko potjo do mape. Ne pozabite zadnjega "\".

Popravilo orodja za Word

Ker se bo Word naenkrat zrušil, je treba pripraviti orodje za popravilo Word in Wordove dokumente. Pravočasna obnovitev lahko pridobi čim več podatkov. Zato je priporočljivo, da si predhodno priskrbite ustrezen izdelek.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravek v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com