3 გზა, რათა სწრაფად ჩაწეროთ სარჩევი თქვენს Word დოკუმენტში

ამ გვost, ჩვენ გაჩვენებთ 3 გზას, თუ როგორ სწრაფად ჩადოთ სარჩევი თქვენს Word დოკუმენტში.

Word-ში დოკუმენტის კითხვისას შეგიძლიათ გამოიყენოთ სარჩევი ან ნავიგაციის პანელი, რათა დაეხმაროთ საკუთარ თავს სწრაფად დაათვალიეროთ შინაარსი. მაგრამ რაც შეეხება ბეჭდვას, სანავიგაციო პანელის დაბეჭდვა შეუძლებელია დოკუმენტთან ერთად. მაგრამ, პირველი აკეთებს. ამიტომ, აუცილებელია Word დოკუმენტში სარჩევის ჩასმა, განსაკუთრებით გრძელ. ქვემოთ მოცემულია 3 ეფექტური მეთოდი.

მეთოდი 1: ხელით ჩადეთ სარჩევი

1. პირველ რიგში, დააყენეთ კურსორი იმ ადგილას, სადაც გსურთ სარჩევი. დააწკაპუნეთ ჩანართზე "ცნობები" შემდეგ ბრძანება "სარჩევი".
2. შემდეგ აირჩიეთ "შიგთავსის ჩასმა".
3. გახსნილ დიალოგურ ფანჯარაში დააყენეთ საჭირო კონფიგურაციები, როგორიცაა "დონეების ჩვენება".
4. დააჭირეთ "OK".

ჩვეულებრივ, ჩვენ ვათავსებთ სარჩევს დოკუმენტის პირველ გვერდზე. თუ ადრე ჩადეთ გვერდის ნომერი, ახლა ნახავთ მთავარ დოკუმენტს starts გვერდზე 2. მაშინ აქ არის სიტუაცია. ზოგიერთ ადამიანს სურს მთავარი დოკუმენტის გვერდი starts 1 გვერდზე, როგორც ყოველთვის, ხოლო სარჩევი გამოირიცხება გვერდის ნუმერაციისგან. ამისათვის დაგჭირდებათ დამატებითი ოპერაციები. წაიკითხეთ ეს სტატია დეტალური ინსტრუქციებისთვის: როგორ უნდა სtart გვერდის ნუმერაცია კონკრეტული გვერდიდან თქვენს სიტყვაში

და გახსოვდეთ, რომ განაახლეთ თქვენი სარჩევი ყველა კორექტირების შემდეგ.

მეთოდი 2: გაუშვით Word მაკრო

როგორც ხედავთ, სარჩევის ჩასმის ხელით მეთოდი ცოტა დამღლელია, ისეთი საკითხებით, როგორიცაა გვერდის ნომრების გადატვირთვა. ამ მიზეზით, ჩვენ გირჩევთ გამოიყენოთ მაკრო გზა ამ ამოცანის შესასრულებლად. მაკრო საშუალებით, შეგიძლიათ მთელი პროცესი ავტომატურად შესრულდეს წამებში.

1. პირველ რიგში, დააჭირეთ "Ctrl+ Home" სtarტ დოკუმენტი.
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. დაბოლოს, მაგრამ არანაკლებ მნიშვნელოვანია, დააჭირეთ "Run".

მაკროს გაშვების შემდეგ, ახლად ჩასმული სარჩევი განთავსდება პირველ გვერდზე და გვერდის ნუმერაცია s.tarც მეორეზე. ასევე, სარჩევი უკვე განახლებულია.

მეთოდი 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. ერთად