Bölüm Sonlarını Word Belgenize Hızlıca Eklemenin 3 Yolu

Bu makalede, Word belgenize hızlı bir şekilde bölüm sonları eklemenin 3 yolunu göstermeye odaklanacağız.

Bölüm sonları, bir belgeyi bölümlere, bölümlere vb.

Normalde, sayfaya gitmemiz ve imleci uygun konuma getirmemiz gerekir. Ardından, "Sayfa Düzeni" ve "Sonlar" ı tıklayın. Ardından, açılır menüden bir bölüm sonu türü seçin. Böyle bir işlem bazen sıkıcı olabilir. Bu nedenle, sizi olağan rutinden kurtarmak ve hızlı ve kirli bir çözüm benimsemek istiyoruz.

Yöntem 1: Belirli Bir Sayfaya Bölüm Sonu Ekleme

1. Her şeyden önce, VBA düzenleyicisini çağırmak için Word'de "Alt + F11" tuşlarına basın.
2. Ardından, sol sütundaki "Normal" seçeneğine tıklayarak yeni bir modül oluşturun.
3. Ardından menü çubuğundaki “Ekle” sekmesine tıklayın.
4. Ve "Ekle" açılır menüsünden "Modül"ü seçin.
5. Açmak için yeni modüle çift tıklayın.
6. Aşağıdaki makroyu kodlama alanına yapıştı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. Şimdi, kodları çalıştırmak için “Çalıştır”a tıklayın veya “F5”e basın.
8. Ardından, açılan kutucuğa hedef sayfanın sayfa numarasını girin. Devam etmek için "Tamam" düğmesine tıklayın.

Şimdiye kadar, 2. sayfanın sonuna bir bölüm sonu eklediniz.

not:

Ardışık birkaç sayfayı bölüm sonları kullanarak bir bölüm olarak ayırmak istiyorsanız, bölüm sonunu iki kez, bir önceki bölümün son sayfasının sonuna ve bir tane de bu yeni bölümün son sayfasının sonuna eklemeniz gerekir. .

Böyle bir durumda ilk arayı eklerken bir önceki bölümün son sayfasının sayfa numarası olan doğru numarayı girmeyi unutmamalısınız.

Yöntem 2: Belgenin Her Sayfasına Bölüm Sonu Ekleme

1. Öncelikle yukarıdaki adımları aynen uygulayarak bir makro kurun ve çalıştırın.
2. Ardından makroyu bununla değiştirin:

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, geçerli belgenin her sayfasının sonuna bir bölüm sonu ekler.

Yöntem 3: Birden Çok Belgenin Her Sayfasına Bölüm Sonu Ekleme

1. Öncelikle, hedef belgelerin tümünü aynı klasöre koyun.
2. Ardından, benzer şekilde, uygun talimatlarla makroyu kurun ve çalıştırın.
3. Bu sefer şu kodları kullanın:

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özat" penceresini tetikleyecektir. Belgeleri sakladığınız klasörü seçin ve "Tamam" ı tıklayın.

İşlem birkaç saniyeden fazla sürmemelidir.

Belge Bozulması için Kullanışlı Araç

Hasarlı belgelerle karşılaşmak sinir bozucu bir deneyim. Böyle bir senaryoda, yardımcı olabilecek iyi ve güvenilir bir araç tamir kelimesi belgeler kişinin kaygısını büyük ölçüde giderebilecektir. Bu nedenle, bir tamir aleti seçerken son derece dikkatli olmanız gerekir. Yetersiz bir yardımcı program daha fazla hasara neden olabilir.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel kurtarma hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com