3 spôsoby, ako rýchlo vložiť obsah do dokumentu Word

V tomto príspevku vám ukážeme 3 spôsoby, ako rýchlo vložiť obsah do dokumentu programu Word.

Pri čítaní dokumentu v programe Word môžete na rýchle prezeranie obsahu použiť buď obsah, alebo navigačnú tablu. Pokiaľ ide o tlač, navigačný panel sa nedá vytlačiť spolu s dokumentom. Ale to prvé robí. Preto je potrebné vložiť obsah do dokumentu Word, najmä do dlhého. Nasledujú 3 účinné metódy.

Metóda 1: Ručné vloženie obsahu

1. Najskôr umiestnite kurzor na miesto, kam chcete umiestniť obsah. Kliknite na kartu „Odkazy“ a potom na príkaz „Obsah“.
2. Ďalej zvoľte „Vložiť obsah“.
3. V otvorenom dialógovom okne nastavte potrebné konfigurácie, napríklad „Zobraziť úrovne“.
4. Kliknite na tlačidlo "OK".

Obsah zvyčajne umiestňujeme na prvú stranu dokumentu. Ak ste už predtým vložili číslo strany, zistíte, že hlavný dokument teraz začína na strane 2. Potom je situácia takáto. Niektorí ľudia budú chcieť, aby hlavná strana dokumentu začínala na strane 1 ako zvyčajne, zatiaľ čo obsah by mal byť vylúčený z číslovania strán. Na to budete potrebovať ďalšie operácie. Prečítajte si tento článok s podrobnými pokynmi: Ako začať číslovanie stránok od konkrétnej stránky vo vašom programe Word

Po všetkých úpravách nezabudnite aktualizovať svoj obsah.

Metóda 2: Spustenie makra programu Word

Ako vidíte, manuálny spôsob vkladania obsahu je trochu namáhavý, napríklad pri resetovaní čísel stránok. Z tohto dôvodu vám odporúčame na splnenie tejto úlohy použiť makro cestu. Pomocou makra môžete mať celý proces automaticky vykonaný za pár sekúnd.

1. Najprv stlačte klávesy „Ctrl + Home“, čím sa presuniete na začiatok dokumentu.
2. Potom stlačte „Alt + F11“, aby ste spustili editor VBA.
3. Ďalej kliknite na „Normálny“ a potom na „Vložiť“.
4. Vyberte „Modul“ a dvojitým kliknutím naň otvorte oblasť úprav.
5. Potom tam vložte nasledujúce kódy:

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. V neposlednom rade kliknite na „Spustiť“.

Po spustení makra sa novo vložený obsah umiestni na prvú stranu a číslovanie strán začne na druhej. Obsah je už aktualizovaný.

Metóda 3: Vkladanie obsahu do viacerých dokumentov

Ak sa vám páči ľahké dávkové spracovanie, využite nasledujúce 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

Postupujte podľa rovnakých krokov v metóde 2 a nainštalujte a spustite makro.

Poznámky

1. Najprv musíte usporiadať všetky dokumenty v rovnakom adresári.
2. Nikdy nezabudnite nahradiť priečinok „C: \ Users \ Public \ Documents \ New folder \ Test1 \“ skutočnou cestou k priečinku. Nezabudnite na posledný znak „\“.

Oprava Nástroj pre Word

Pretože Word zlyhá zrazu, je potrebné pripraviť si nástroj opraviť Word a dokumenty programu Word. Včasná obnova dokáže získať čo najviac údajov. Preto je vhodné si vopred zaobstarať kvalitný produkt.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Oprava programu Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S