В тази публикация ще ви покажем 3 начина как бързо да вмъкнете съдържание във вашия Word документ.
Докато четете документ в Word, можете да използвате или съдържанието, или навигационния екран, за да си помогнете да разгледате бързо съдържанието. И все пак, когато става въпрос за печат, навигационният прозорец не може да бъде отпечатан заедно с документ. Но първият го прави. Ето защо е необходимо да вмъкнете съдържание в документ на Word, особено дълъг. Следват 3 ефективни метода.
Метод 1: Поставете съдържанието ръчно
- Първо, поставете курсора на мястото, където искате да отиде съдържанието. Щракнете върху раздела „Референции“, след това върху командата „Съдържание“.
- След това изберете „Вмъкване на съдържание“.

- В отворения диалогов прозорец настройте необходимите конфигурации, като например „Показване на нива“.
- Кликнете върху "OK".
Обикновено поставяме съдържанието на първата страница на документа. Ако сте въвели номер на страница преди, ще видите, че основният документ сега започва от страница 2. Ето каква е ситуацията. Някои хора ще искат основната страница на документа да започва от страница 1, както обикновено, докато съдържанието да бъде изключено от номерирането на страниците. За да направите това, ще са ви необходими допълнителни операции. Прочетете тази статия за подробни инструкции: Как да започнете номерирането на страници от определена страница във вашия Word
И не забравяйте да актуализирате съдържанието си след всички корекции.
Метод 2: Стартирайте Word Macro
Както виждате, ръчният начин за вмъкване на съдържание е малко досаден, с такива проблеми като нулиране на номера на страници. Поради тази причина ви препоръчваме да използвате макроса за изпълнение на тази задача. С макрос можете да накарате целия процес да се изпълнява автоматично за секунди.
- Първо, натиснете „Ctrl + Home“, за да отидете в началото на документа.
- След това натиснете „Alt + F11“, за да задействате редактора на VBA.
- След това кликнете върху „Normal“ и след това „Insert“.
- Изберете „Модул“ и щракнете двукратно върху него, за да отворите областта за редактиране.
- След това поставете следните кодове там:
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
- Не на последно място, щракнете върху „Run“.
След изпълнение на макроса, нововмъкнатото съдържание ще бъде поставено на първата страница, а номерирането на страниците ще започне от втората. Също така, съдържанието вече е актуализирано.
Метод 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, за да инсталирате и стартирате макроса.
бележки
- Първо трябва да подредите всички документи в една и съща директория.
- Не забравяйте да замените „C: \ Users \ Public \ Documents \ New folder \ Test1 \“ с вашия действителен път до папката. Не забравяйте последното „\“.
Инструмент за поправяне на Word
Тъй като Word внезапно ще се срине, трябва да подготвите инструмент ремонт Word и Word документи. Навременното възстановяване може да извлече възможно най-много данни. Затова е препоръчително предварително да се сдобиете с качествен продукт.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Поправка в Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com



