Word Sənədinizə Bölmə Bölmələrini Tez Yerləşdirməyin 3 Yolu

Bu yazıda biz sizə Word sənədinizə bölmə fasilələrini tez daxil etməyin 3 yolunu göstərməyə diqqət edəcəyik.

Bölmə fasilələri sənədi bölmələrə, fəsillərə və s. bölmək üçün faydalıdır. Bundan əlavə, bölmə fasilələri daxil etmək müxtəlif səhifələrdə müxtəlif başlıq və ya altbilgilərin qurulmasının əvəzedilməz hissəsidir.

Normalda biz səhifəyə getməli və kursoru lazımi yerdə tapmalıyıq. Sonra "Səhifə Düzeni" və "Fəsilələr" düyməsini basın. Və sonra açılan menyuda bölmə fasilə növünü seçin. Belə bir prosedur bəzən yorucu ola bilər. Buna görə də, biz sizi adi rejimdən xilas etmək və tez və çirkli bir həll qəbul etmək istəyirik.

Metod 1: Xüsusi Səhifədə Bölmə Sonunu daxil edin

1. İlk növbədə, VBA redaktorunu işə salmaq üçün Word-də “Alt+ F11” düyməsini sıxın.
2. Sonra sol sütunda "Normal" düyməsini basaraq yeni modul yaradın.
3. Sonra menyu çubuğunda "Daxil et" sekmesini vurun.
4. Və "Daxil et" in açılan menyusunda "Modul" seçin.
5. Yeni modulu açmaq üçün üzərinə iki dəfə klikləyin.
6. Kodlaşdırma sahəsinə aşağıdakı makrosunu yapışdırın:

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. İndi kodları yerinə yetirmək üçün "Çalış" düyməsini basın və ya "F5" düyməsini basın.
8. Daha sonra, sorğu qutusuna hədəf səhifənin səhifə nömrəsini daxil edin. Davam etmək üçün "OK" düyməsini basın.

İndiyə qədər 2-ci səhifənin sonuna bölmə sonu daxil etmisiniz.

Qeyd:

Bir neçə ardıcıl səhifəni bölmə fasilələrindən istifadə edərək bölmə kimi ayırmaq istəyirsinizsə, iki dəfə bölmə sonu daxil etməlisiniz, biri əvvəlki bölmənin son səhifəsinin sonunda və biri bu yeni bölmənin son səhifəsinin sonunda .

Belə olan halda, birinci fasilə qoyarkən əvvəlki bölmənin son səhifəsinin səhifə nömrəsi olan düzgün nömrəni daxil etməyi yadda saxlamalısınız.

Metod 2: Sənədin Hər Səhifəsinə Bölmə Sonunu daxil edin

1. Əvvəlcə yuxarıdakı addımları tam olaraq yerinə yetirərək bir makro quraşdırın və işə salın.
2. Sonra makronu bununla əvəz edin:

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

Bu makro cari sənədin hər səhifəsinin sonuna bölmə sonu daxil edir.

Metod 3: Çox Sənədin Hər Səhifəsinə Bölmə Fasili daxil edin

1. Başlamaq üçün bütün hədəf sənədləri eyni qovluğa qoyun.
2. Sonra eyni şəkildə, müvafiq təlimatlarla makronu quraşdırın və işə salın.
3. Bu dəfə bu kodları istifadə edin:

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. Makro "Gözdən keçir" pəncərəsini işə salmalıdır. Sənədləri saxladığınız qovluğu seçin və "OK" düyməsini basın.

Proses bir neçə saniyədən çox çəkməməlidir.

Sənəd Korrupsiyasına Qarşı Lazımlı Alət

Zədələnmiş sənədlərlə qarşılaşmaq sinir bozucu bir təcrübədir. Belə bir ssenaridə kömək edə biləcək yaxşı və etibarlı bir vasitədir Word təmiri sənədlər insanın narahatlığını xeyli aradan qaldıra bilər. Buna görə təmir aləti seçərkən son dərəcə diqqətli olmalısınız. Qeyri-kafi kommunal əlavə zərər verə bilər.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel bərpası və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com