Word Belgenizdeki Tüm Dipnotları Son Notlara ve Tam Tersine Dönüştürmenin 6 Yolu

Bu yazıda, Word belgenizdeki tüm dipnotları son notlara ve tersini dönüştürmenin 6 yolunu size sağlayacağız.

Varsayılan olarak, dipnot metinlerinin tek tek sayfaların altında düzenlendiği, son notların ise bir belgenin sonunda bulunduğu herkes tarafından bilinir. Ancak bu tür varsayılan ayarlar insanları her zaman memnun etmeyebilir. Word bile, kullanıcıların dipnotları son notlara ve tersini dönüştürmesi için yerleşik bir komuta sahiptir. Bu nedenle, almanız için 6 yöntem oluşturuyoruz.

Yöntem 1: Tek Bir Belgedeki Tüm Dipnotları Manuel Olarak Son Notlara Dönüştürün

Dipnotların ve son notların genellikle kaldığı yer burasıdır:

1. Başlamak için, “Referanslar” sekmesine tıklayın, ardından “Dipnotlar” grubundaki ok düğmesine tıklayarak “Dipnot ve Sonnot” iletişim kutusunu açın.
2. Sonraki "Dönüştür" düğmesine tıklayın.
3. Ardından “Tüm dipnotları son notlara dönüştür” seçeneğini seçin.
4. Ve "Tamam" ı tıklayın.
5. Son olarak “Dipnot ve Son Not” kutusunu kapatın.

İşte etki:

Yöntem 2: Tek Bir Belgedeki Tüm Son Notları Manuel Olarak Dipnotlara Dönüştürün

Son notları dipnotlara dönüştürmek hemen hemen aynıdır.

1. Yöntem 1'teki 2. ve 1. adımı tekrarlayın.
2. Bu kez bunun yerine “Tüm son notları dipnotlara dönüştür” seçeneğini seçin.
3. Yine de, yöntem 4'deki 5. ve 1. adımları tekrarlayın.

Aşağıdaki sonucu kontrol edin:

Yöntem 3: VBA ile Tüm Dipnotları Tek Bir Belgede Son Notlara Dönüştürün

1. Öncelikle, Word'de VBA düzenleyicisini açmak için “Alt + F11” tuşlarına basın.
2. Ardından "Normal"e tıklayın.
3. "Ekle" sekmesine tıklayın.
4. Ve açılır menüden "Modül"ü seçin.
5. Ardından açmak için modüle çift tıklayın.
6. Aşağıdaki kodları oraya yapıştırın:

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Son olarak, "Çalıştır" ı tıklayın.

Yöntem 4: Tüm Son Notları VBA Aracılığıyla Tek Bir Belgede Dipnotlara Dönüştürün

Benzer şekilde, makro yüklemek ve çalıştırmak için yöntem 3'teki aynı adımları izleyin. Ancak, makroyu aşağıdakiyle değiştirin:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Yöntem 5: VBA aracılığıyla Birden Çok Belgedeki Tüm Dipnotları Toplu Olarak Son Notlara Dönüştürün

Başa çıkmanız gereken çok sayıda dosya olması durumunda, önce hepsini bir klasörde düzenlersiniz. Ardından bu makroyu kurun ve çalıştırın:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Bu makroyu çalıştırmak, klasör yolunu girmeniz gereken bir giriş kutusu açacaktır. Klasör adresinin sonunda “\” olması gerektiğini de unutmayın.

Yöntem 6: Tüm Son Notları VBA aracılığıyla Birden Çok Belgedeki Dipnotlara Toplu Dönüştürme

Son olarak, birden çok belgedeki son notları otomatik olarak dipnotlara dönüştürmek için makro buradadır:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Kelime Sorunları Nasıl Onarılır

Kelime, işaret olmadan başarısız olabilir. Böyle bir talihsizliğin sizi bulması inanılmaz gibi görünse de, sorunu çözmek için kalifiye bir tamir aletine başvurmaktan başka seçeneğiniz yok. bozuk belge.

Yazar Tanıtımı:

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