3 tapaa lisätä sisällysluettelo nopeasti Word-asiakirjaasi

Tässä artikkelissa näytämme kolme tapaa, joilla voit nopeasti lisätä sisällysluettelon Word-asiakirjaasi.

Kun luet asiakirjaa Wordissa, voit käyttää joko sisällysluetteloa tai siirtymisruutua auttaaksesi sinua selaamaan sisältöä nopeasti. Tulostuksen yhteydessä navigointiruutua ei kuitenkaan voida tulostaa asiakirjan kanssa. Mutta entinen tekee. Siksi on välttämätöntä lisätä sisällysluettelo Word-asiakirjaan, erityisesti pitkään. Seuraavassa on 3 vaikuttavaa menetelmää.

Tapa 1: Lisää sisällysluettelo manuaalisesti

1. Aseta ensin kohdistin paikkaan, johon haluat sisällysluettelon. Napsauta "Viitteet" -välilehteä ja sitten "Sisällysluettelo" -komentoa.
2. Valitse seuraavaksi “Lisää sisällysluettelo”.
3. Määritä tarvittavat kokoonpanot avautuvassa valintaikkunassa, kuten "Näytä tasot".
4. Napsauta "OK".

Yleensä sijoitamme sisällysluettelon asiakirjan ensimmäiselle sivulle. Jos olet aiemmin lisännyt sivunumeron, huomaat, että pääasiakirja alkaa nyt sivulta 2. Sitten tilanne on seuraava. Jotkut haluavat, että pääasiakirjan sivu alkaa normaalisti sivulta 1, kun taas sisällysluettelo jätetään sivunumeroinnin ulkopuolelle. Tätä varten tarvitset lisätoimintoja. Lue tämä artikkeli saadaksesi yksityiskohtaiset ohjeet: Sivunumeroinnin aloittaminen tietyltä sivulta Wordissa

Muista päivittää sisällysluettelo kaikkien säätöjen jälkeen.

Tapa 2: Suorita Word-makro

Kuten näette, manuaalinen tapa lisätä sisällysluettelo on hieman väsyttävä, esimerkiksi sivujen numeroiden palauttaminen. Tästä syystä suosittelemme suorittamaan tämän tehtävän makrotavalla. Makron avulla koko prosessi voidaan suorittaa automaattisesti sekunneissa.

1. Ensinnäkin, paina "Ctrl + Home" siirtyäksesi asiakirjan alkuun.
2. Käynnistä sitten VBA-editori painamalla “Alt + F11”.
3. Napsauta sitten “Normal” ja sitten “Insert”.
4. Valitse ”Moduuli” ja kaksoisnapsauta sitä avataksesi muokkausalueen.
5. Liitä sitten seuraavat koodit sinne:

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. Viimeisenä mutta ei vähäisimpänä, napsauta "Suorita".

Makron suorittamisen jälkeen juuri lisätty sisällysluettelo sijoitetaan ensimmäiselle sivulle ja sivunumerointi alkaa toisesta sivusta. Myös sisällysluettelo on jo päivitetty.

Tapa 3: Lisää sisällysluettelot useisiin asiakirjoihin

Jos pidät eräkäsittelyn helppoudesta, hyödynnät paljastavaa makroa:

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

Seuraa vain samoja vaiheita menetelmässä 2 makron asentamiseksi ja suorittamiseksi.

Huomautuksia

1. Sinun on ensin järjestettävä kaikki asiakirjat samaan hakemistoon.
2. Älä koskaan unohda korvata "C: \ Users \ Public \ Documents \ New folder \ Test1 \" todellisella kansiopolulla. Älä unohda viimeistä “\”.

Korjaustyökalu Wordille

Koska Word kaatuu yhtäkkiä, työkalun valmistelu on välttämätöntä korjaa Word ja Word-asiakirjoja. Nopea palautus voi saada mahdollisimman paljon tietoja. Siksi on suositeltavaa hankkia pätevä tuote etukäteen.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com