3 võimalust sisukorra kiireks lisamiseks oma Wordi dokumenti

Selles postituses näitame teile kolme viisi, kuidas sisukorda Wordi dokumenti kiiresti lisada.

Wordis dokumenti lugedes saate sisu kiireks vaatamiseks kasutada kas sisukorda või navigeerimispaani. Kui aga rääkida printimisest, ei saa navigeerimispaani koos dokumendiga printida. Kuid endine teeb. Seetõttu on vaja Wordi dokumenti, eriti pikka, sisestada sisukord. Järgnevalt on toodud 3 tõhusat meetodit.

1. meetod: sisestage sisukord käsitsi

1. Esiteks asetage kursor kohta, kuhu soovite sisukorra suunata. Klõpsake vahekaarti "Viited" ja seejärel käsku "Sisukord".
2. Järgmisena valige "Sisesta sisukord".
3. Avanevas dialoogiboksis seadistage vajalikud konfiguratsioonid, näiteks "Kuva tasemed".
4. Klõpsake nuppu OK.

Tavaliselt paigutame sisukorra dokumendi esimesele lehele. Kui olete varem leheküljenumbri lisanud, algab põhidokument nüüd leheküljelt 2. Siis on olukord järgmine. Mõned inimesed soovivad, et põhidokumendi lehekülg algaks nagu tavaliselt leheküljelt 1, samas kui sisukord leheküljenumbritest välja jäetakse. Selleks vajate lisatoiminguid. Üksikasjalike juhiste saamiseks lugege seda artiklit: Kuidas alustada lehekülgede nummerdamist oma Wordi konkreetselt lehelt

Ja ärge unustage pärast kõiki kohandusi oma sisukorda värskendada.

2. meetod: käivitage Wordi makro

Nagu näete, on sisukorra käsitsi sisestamine pisut tüütu, näiteks leheküljenumbrite lähtestamine. Sel põhjusel soovitame selle ülesande täitmiseks kasutada makromeetodit. Makro abil saate kogu protsessi sekunditega automaatselt läbi viia.

1. Esiteks vajutage dokumendi algusesse minemiseks klahvikombinatsiooni „Ctrl + Home”.
2. Seejärel vajutage VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
3. Järgmisena klõpsake nuppu "Tavaline" ja seejärel "Insert".
4. Valige "Moodul" ja topeltklõpsake seda redigeerimisala avamiseks.
5. Seejärel kleepige sinna järgmised koodid:

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. Viimane, kuid mitte vähem oluline, klõpsake nuppu "Käivita".

Pärast makro käivitamist paigutatakse äsja lisatud sisukord esimesele lehele ja lehekülgede nummerdamine algab teisest. Samuti on sisukord juba uuendatud.

3. meetod: sisestage sisukorrad mitmesse dokumenti

Kui teile meeldib partiitöötluse lihtsus, kasutage järgmist 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

Makro installimiseks ja käivitamiseks järgige lihtsalt 2. meetodi samu samme.

märkused

1. Kõigepealt peate kõik dokumendid ühte kataloogi korraldama.
2. Ärge kunagi unustage asendada kausta "C:\Users\Public\Documents\New folder\Test1\" oma tegeliku kausta teega. Ärge unustage viimast "\".

Wordi parandustööriist

Kuna Word jookseb ootamatult kokku, tuleb selleks tööriist ette valmistada paranda Word ja Wordi dokumente. Õigeaegne taastamine võimaldab saada kätte nii palju andmeid kui võimalik. Seetõttu on soovitatav eelnevalt hankida professionaalne toode.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli parandus ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom