3 būdai, kaip greitai įterpti turinį į savo „Word“ dokumentą

Šiame įraše parodysime 3 būdus, kaip greitai įterpti turinį į „Word“ dokumentą.

Skaitydami dokumentą programoje Word, galite naudoti turinį arba naršymo sritį, kad galėtumėte greitai peržiūrėti turinį. Tačiau kalbant apie spausdinimą, naršymo srities negalima spausdinti kartu su dokumentu. Tačiau tai daro buvęs. Todėl į Word dokumentą, ypač ilgą, būtina įterpti turinį. Toliau pateikiami 3 veiksmingi metodai.

1 būdas: rankiniu būdu įterpkite turinį

1. Pirmiausia užveskite žymeklį toje vietoje, kur norite patekti į turinį. Spustelėkite skirtuką „Nuorodos“, tada komandą „Turinys“.
2. Tada pasirinkite „Įterpti turinį“.
3. Atsidariusiame dialogo lange nustatykite reikiamas konfigūracijas, pvz., „Rodyti lygius“.
4. Spustelėkite "Gerai".

Paprastai turinį dedame pirmame dokumento puslapyje. Jei anksčiau įterpėte puslapio numerį, dabar pamatysite, kad pagrindinis dokumentas prasideda nuo 2 puslapio. Tuomet susidaro tokia situacija. Kai kurie žmonės norės, kad pagrindinis dokumento puslapis, kaip įprasta, prasidėtų nuo 1 puslapio, o turinys nebus numeruojamas. Norėdami tai padaryti, turėsite atlikti papildomus veiksmus. Išsamias instrukcijas rasite šiame straipsnyje: Kaip pradėti puslapių numeravimą nuo konkretaus puslapio „Word“ programoje

Ir nepamirškite atnaujinti savo turinį po visų koregavimų.

2 būdas: paleiskite Word makrokomandą

Kaip matote, rankinis turinio įterpimo būdas yra šiek tiek varginantis, nes kyla tokių problemų kaip puslapių numerių nustatymas iš naujo. Dėl šios priežasties šiai užduočiai atlikti rekomenduojame naudoti makrokomandos būdą. Naudodami makrokomandą visą procesą galite automatiškai atlikti per kelias sekundes.

1. Pirmiausia paspauskite „Ctrl“ + „Home“, kad grįžtumėte į dokumento pradžią.
2. Tada paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių.
3. Tada spustelėkite „Įprastas“, tada „Įterpti“.
4. Pasirinkite „Modulis“ ir dukart spustelėkite jį, kad atidarytumėte redagavimo sritį.
5. Tada įklijuokite šiuos kodus:

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. Paskutinis, bet ne mažiau svarbus dalykas, spustelėkite „Vykdyti“.

Paleidus makrokomandą, naujai įterptas turinys bus patalpintas pirmame puslapyje, o puslapių numeracija prasidės nuo antrojo. Be to, turinys jau bus atnaujintas.

3 būdas: įterpkite turinį į kelis dokumentus

Jei jums patinka paketinio apdorojimo paprastumas, naudokite toliau pateiktą makrokomandą:

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

Tiesiog atlikite tuos pačius 2 metodo veiksmus, kad įdiegtumėte ir paleistumėte makrokomandą.

Pastaba

1. Pirmiausia turite sutvarkyti visus dokumentus tame pačiame kataloge.
2. Niekada nepamirškite pakeisti „C:\Users\Public\Documents\New folder\Test1\“ tikruoju aplanko keliu. Nepamirškite paskutinio „\“.

„Word“ taisymo įrankis

Kadangi „Word“ staiga sugenda, būtina paruošti įrankį taisyti Word ir „Word“ dokumentus. Laiku atkūrus duomenis galima atkurti kuo daugiau duomenų. Todėl patartina iš anksto įsigyti patikimą produktą.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel taisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com