Word hujjatingizga bo'limlarni tezda kiritishning 3 usuli

Ushbu maqolada biz Word hujjatiga bo'limlarni tezda kiritishning 3 usulini ko'rsatishga e'tibor qaratamiz.

Bo'lim tanaffuslari hujjatni bo'limlarga, boblarga va hokazolarga bo'lish uchun foydalidir. Bundan tashqari, bo'limlarni qo'shish turli sahifalarda turli sarlavhalar yoki altbilgilarni o'rnatishning ajralmas qismidir.

Odatda, biz sahifaga o'tishimiz va kursorni kerakli joyda topishimiz kerak. Keyin "Sahifa tartibi" va "Tanaffuslar" ni bosing. Keyin ochiladigan menyuda bo'limni ajratish turini tanlang. Bunday jarayon ba'zan zerikarli bo'lishi mumkin. Shuning uchun, biz sizni odatiy tartibdan qutqarib, tez va iflos echimni qabul qilishni xohlaymiz.

1-usul: Muayyan sahifaga bo'lim tanaffusini qo'shing

1. Birinchidan, VBA muharririni chaqirish uchun Word-da "Alt + F11" tugmasini bosing.
2. Keyin chap ustundagi "Oddiy" tugmasini bosib yangi modul yarating.
3. Keyin menyu panelidagi "Qo'shish" yorlig'ini bosing.
4. Va "Qo'shish" ning ochiladigan menyusida "Moduli" ni tanlang.
5. Yangi modulni ochish uchun uni ikki marta bosing.
6. Quyidagi makrosni kodlash maydoniga joylashtiring:

Sub InsertBreakOnSpecificPage()
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  Selection.Collapse wdCollapseEnd
  Selection.InsertBreak Type:=wdSectionBreakContinuous
End Sub

7. Endi kodlarni bajarish uchun "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
8. Keyin, so'rov oynasiga maqsadli sahifaning sahifa raqamini kiriting. Davom etish uchun "OK" tugmasini bosing.

Hozircha siz 2-sahifaning oxiriga boʻlim tanaffusini kiritdingiz.

Eslatma:

Agar siz bir nechta ketma-ket sahifalarni bo'lim tanaffuslaridan foydalangan holda bo'lim sifatida ajratmoqchi bo'lsangiz, bo'lim tanaffusini ikki marta, oldingi bo'limning oxirgi sahifasi oxiriga va yangi bo'limning oxirgi sahifasi oxiriga kiritishingiz kerak. .

Bunday holda, birinchi tanaffusni qo'yish paytida siz oldingi bo'limning oxirgi sahifasining sahifa raqami bo'lgan to'g'ri raqamni kiritishni eslab qolishingiz kerak.

2-usul: Hujjatning har bir sahifasiga bo'limlarni ajratish

1. Birinchidan, yuqoridagi amallarni bajarib, makrosni o'rnating va ishga tushiring.
2. Keyin makroni shu bilan almashtiring:

Sub InsertBreakOnEachPage()
  Dim nTotalPageNumber As Integer
 
  For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Collapse wdCollapseEnd
    Selection.InsertBreak Type:=wdSectionBreakContinuous
  Next
End Sub

Ushbu makros joriy hujjatning har bir sahifasining oxiriga bo'lim tanaffusini qo'shadi.

3-usul: Bir nechta hujjatlarning har bir sahifasiga bo'limlarni ajratish

1. Boshlash uchun barcha maqsadli hujjatlarni bitta papkaga joylashtiring.
2. Keyin xuddi shunday, tegishli ko'rsatmalar bilan makrosni o'rnating va ishga tushiring.
3. Bu safar quyidagi kodlardan foydalaning:

Sub InsertBreaksIntoMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim nTotalPageNumber As Integer
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber
      Application.Browser.Target = wdBrowsePage
      ActiveDocument.Bookmarks("\page").Range.Select
      Selection.Collapse wdCollapseEnd
      Selection.InsertBreak Type:=wdSectionBreakContinuous
    Next
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Makros "Browse" oynasini ishga tushirishi kerak. Hujjatlarni saqlaydigan jildni tanlang va "OK" tugmasini bosing.

Jarayon bir necha soniyadan oshmasligi kerak.

Hujjatlarni buzish uchun qulay vosita

Buzilgan hujjatlar bilan uchrashish asabiylashadi. Bunday stsenariyda yordam berishi mumkin bo'lgan yaxshi va ishonchli vosita Word ta'mirlash Hujjatlar odamning tashvishini ancha yengillashtira oladi. Shuning uchun, ta'mirlash vositasini tanlashda juda ehtiyot bo'lishingiz kerak. Yordamchi dasturning etishmasligi qo'shimcha zarar etkazishi mumkin.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excelni tiklash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com