3 veidi, kā ātri ievietot satura rādītāju savā Word dokumentā

Šajā ierakstā mēs parādīsim 3 veidus, kā ātri ievietot satura rādītāju savā Word dokumentā.

Lasot dokumentu programmā Word, varat izmantot satura rādītāju vai navigācijas rūti, lai palīdzētu sev ātri pārskatīt saturu. Tomēr attiecībā uz drukāšanu navigācijas rūti nevar izdrukāt kopā ar dokumentu. Bet pirmais to dara. Tāpēc ir nepieciešams ievietot satura rādītāju Word dokumentā, īpaši garā. Tālāk ir norādītas 3 efektīvas metodes.

1. metode: manuāli ievietojiet satura rādītāju

1. Pirmkārt, ievietojiet kursoru vietā, kur vēlaties satura rādītāju. Noklikšķiniet uz cilnes “Atsauces”, pēc tam uz “Satura rādītājs”.
2. Pēc tam atlasiet “Ievietot satura rādītāju”.
3. Atvērtajā dialoglodziņā iestatiet nepieciešamās konfigurācijas, piemēram, “Rādīt līmeņus”.
4. Noklikšķiniet uz "Labi".

Parasti satura rādītāju ievietojam dokumenta pirmajā lapā. Ja iepriekš esat ievietojis lappuses numuru, tagad galvenais dokuments sākas 2. lappusē. Lūk, situācija. Daži cilvēki vēlēsies, lai galvenā dokumenta lappuse kā parasti sāktos 1. lappusē, bet satura rādītājs tiks izslēgts no lappušu numerācijas. Lai to izdarītu, būs jāveic papildu darbības. Detalizētus norādījumus skatiet šajā rakstā: Kā sākt lappušu numerāciju no konkrētas lapas jūsu Word programmā

Pēc visām korekcijām atcerieties atjaunināt satura rādītāju.

2. metode: palaidiet Word Macro

Kā redzat, manuāls veids, kā ievietot satura rādītāju, ir nedaudz nogurdinošs, piemēram, lapu numuru atiestatīšana. Šī iemesla dēļ iesakām izmantot makro veidu, kā izpildīt šo uzdevumu. Izmantojot makro, visu procesu var automātiski veikt dažu sekunžu laikā.

1. Vispirms nospiediet taustiņu kombināciju “Ctrl+Home”, lai atgrieztos dokumenta sākumā.
2. Pēc tam nospiediet “Alt + F11”, lai aktivizētu VBA redaktoru.
3. Pēc tam noklikšķiniet uz “Normal” un pēc tam uz “Insert”.
4. Izvēlieties “Module” un veiciet dubultklikšķi uz tā, lai atvērtu rediģēšanas apgabalu.
5. Pēc tam ielīmējiet šādus kodus:

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. Visbeidzot, bet ne mazāk svarīgi, noklikšķiniet uz “Palaist”.

Pēc makro palaišanas jaunizveidotais satura rādītājs tiks ievietots pirmajā lapā, un lapu numerācija sāksies otrajā lapā. Turklāt satura rādītājs jau ir atjaunināts.

3. metode: ievietojiet satura rādītājus vairākos dokumentos

Gadījumā, ja jums patīk sērijveida apstrādes vieglums, izmantojiet zvanošo 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

Lai instalētu un palaistu makro, vienkārši veiciet tās pašas darbības 2. metodē.

Piezīmes

1. Visus dokumentus vispirms jāsakārto vienā direktorijā.
2. Nekad neaizmirstiet aizstāt “C: \ Users \ Public \ Documents \ New folder \ Test1 \” ar faktisko mapes ceļu. Neaizmirstiet pēdējo “\”.

Word labošanas rīks

Tā kā Word pēkšņi sabruks, tam ir jāsagatavo rīks labot vārdu un Word dokumentus. Savlaicīga atkopšana var iegūt pēc iespējas vairāk datu. Tāpēc ieteicams iepriekš iegādāties profesionālu produktu.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel labojums un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar