3 způsoby, jak rychle vložit obsah do dokumentu aplikace Word

V tomto příspěvku vám ukážeme 3 způsoby, jak rychle vložit obsah do dokumentu Word.

Při čtení dokumentu ve Wordu můžete použít obsah nebo navigační podokno, abyste si rychle prohlédli obsah. Pokud jde o tisk, navigační panel nelze vytisknout spolu s dokumentem. Ale první ano. Proto je nutné do dokumentu aplikace Word vložit obsah, zejména dlouhý. Následují 3 účinné metody.

Metoda 1: Ruční vložení obsahu

1. Nejprve umístěte kurzor na místo, kam chcete obsah umístit. Klikněte na kartu „Odkazy“ a poté na příkaz „Obsah“.
2. Dále vyberte „Vložit obsah“.
3. V otevřeném dialogovém okně nastavte požadované konfigurace, například „Zobrazit úrovně“.
4. Klikněte na tlačítko OK.

Obsah obvykle umisťujeme na první stránku dokumentu. Pokud jste již dříve vložili číslo stránky, zjistíte, že hlavní dokument nyní začíná na straně 2. Pak je situace taková. Někteří lidé budou chtít, aby hlavní stránka dokumentu začínala jako obvykle na straně 1, zatímco obsah by měl být z číslování stránek vyloučen. K tomu budete potřebovat další operace. Podrobné pokyny si přečtěte v tomto článku: Jak začít číslovat stránky od určité stránky ve Wordu

A nezapomeňte aktualizovat obsah po všech úpravách.

Metoda 2: Spusťte makro aplikace Word

Jak vidíte, ruční způsob vložení obsahu je trochu únavný, s takovými problémy, jako je resetování čísel stránek. Z tohoto důvodu doporučujeme ke splnění tohoto úkolu použít makro způsob. Pomocí makra můžete nechat celý proces automaticky provést během několika sekund.

1. Nejprve stiskněte klávesy „Ctrl + Home“ pro přechod na začátek dokumentu.
2. Poté stiskněte „Alt+ F11“ pro spuštění editoru VBA.
3. Dále klikněte na „Normální“ a poté na „Vložit“.
4. Vyberte „Modul“ a dvojitým kliknutím na něj otevřete oblast úprav.
5. Pak tam vložte následující 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 neposlední řadě klikněte na „Spustit“.

Po spuštění makra se nově vložený obsah umístí na první stránku a číslování stránek začne od druhé. Obsah je také již aktualizován.

Metoda 3: Vložení obsahu do více dokumentů

V případě, že máte rádi jednoduchost dávkového zpracování, využijete následující 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

Pro instalaci a spuštění makra postupujte podle stejných kroků v metodě 2.

Poznámky

1. Nejprve musíte uspořádat všechny dokumenty do stejného adresáře.
2. Nikdy nezapomeňte nahradit „C:\Users\Public\Documents\New folder\Test1\“ vaší skutečnou cestou ke složce. Nezapomeňte na poslední „\“.

Nástroj pro opravu aplikace Word

Vzhledem k tomu, že Word náhle spadne, je nutné připravit nástroj opravit Word a dokumenty Wordu. Včasná obnova může získat co nejvíce dat. Proto je vhodné si předem pořídit kvalitní produkt.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava aplikace Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com