3 способи швидкого вставлення змісту в документ Word

У цьому сost, ми показали б вам 3 способи того, як швидко вставити зміст у ваш документ Word.

Під час читання документа у програмі Word ви можете використовувати або зміст, або навігаційну панель, щоб допомогти собі швидко переглянути вміст. Однак, що стосується друку, навігаційну панель неможливо надрукувати разом із документом. Але, перший робить. Тому необхідно вставити зміст у документ Word, особливо довгий. Нижче наведено 3 ефективні методи.

Спосіб 1: Вставте зміст вручну

1. По-перше, поставте курсор туди, куди ви хочете, щоб пройшов зміст. Клацніть на вкладку “Посилання”, а потім на команду “Зміст”.
2. Далі виберіть “Вставити зміст”.
3. У відкритому діалоговому вікні налаштуйте потрібні конфігурації, наприклад, «Показати рівні».
4. Натисніть "OK".

Зазвичай ми розміщуємо зміст на першій сторінці документа. Якщо ви раніше вставляли номер сторінки, то зараз ви знайдете основний документ starts на сторінці 2. Тоді ось ситуація. Деякі люди хочуть головну сторінку документаtarts на сторінці 1, як зазвичай, тоді як зміст буде виключено з нумерації сторінок. Для цього вам знадобляться додаткові операції. Прочитайте цю статтю, щоб отримати докладні інструкції: Як Start Нумерація сторінок із певної сторінки у вашому Word

І не забудьте оновити зміст після всіх коригувань.

Спосіб 2: Запустіть макрос Word

Як бачите, ручний спосіб вставки змісту є дещо виснажливим із такими проблемами, як скидання номерів сторінок. З цієї причини радимо використовувати макрос для виконання цього завдання. За допомогою макросу ви можете автоматично виконати весь процес за лічені секунди.

1. Спочатку натисніть «Ctrl + Home», щоб перейти до starт документа.
2. Потім натисніть “Alt + F11”, щоб запустити редактор VBA.
3. Потім натисніть «Звичайний», а потім «Вставити».
4. Виберіть “Модуль” і двічі клацніть на ньому, щоб відкрити область редагування.
5. Потім вставте туди такі коди:

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. І останнє, але не менш важливе, натисніть «Виконати».

Після запуску макросу, щойно вставлений зміст буде розміщено на першій сторінці та нумерації сторінок starц на другому. Також зміст уже оновлено.

Спосіб 3: Вставте зміст у кілька документів

Якщо вам подобається простота пакетної обробки, ви використовуєте наведений нижче макрос:

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

Просто виконайте ті самі дії у способі 2, щоб встановити та запустити макрос.

примітки

1. Спочатку потрібно впорядкувати всі документи в одному каталозі.
2. Ніколи не забувайте замінювати “C: \ Users \ Public \ Documents \ New folder \ Test1 \” на дійсний шлях до папки. Не забудьте останнє “\”.

Інструмент відновлення для Word

Оскільки Word несподівано вийде з ладу, необхідно підготувати інструмент ремонт Word та документи Word. Своєчасне відновлення може отримати мost дані, наскільки це можливо. Тому бажано заздалегідь отримати кваліфікований продукт.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі Виправлення в Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com