Word sənədinizdəki bütün qeydləri son qeydlərə və əksinə çevirməyin 6 yolu

Bu yazıda biz sizə Word sənədinizdə bütün qeydləri son qeydlərə və əksinə çevirməyin 6 yolunu təqdim edəcəyik.

Hamıya məlumdur ki, standart olaraq qeyd mətnləri ayrı-ayrı səhifələrin aşağı hissəsində, son qeydlər isə sənədin sonunda yerləşir. Bununla belə, bu cür standart parametrlər insanları hər zaman qane edə bilməz. Hətta Word-də istifadəçilər üçün qeydləri son qeydlərə və əksinə çevirmək üçün daxili əmr var. Buna görə də, götürməyiniz üçün 6 üsul yaradırıq.

Metod 1: Bütün Haşiyələri Əllə Bir Sənəddə Son Qeydlərə çevirin

Dipnotlar və son qeydlər adətən burada qalır:

1. Başlamaq üçün “İstinadlar” sekmesine klikləyin, sonra “Haşiyə və Son qeyd” dialoq qutusunu açmaq üçün “Dibilqələr” qrupunda ox düyməsini basın.
2. Sonra "Convert" düyməsini basın.
3. Sonra "Bütün qeydləri son qeydlərə çevir" seçimini seçin.
4. Və "OK" düyməsini basın.
5. Nəhayət, “Haşiyə və Son qeyd” xanasını bağlayın.

Təsiri budur:

Metod 2: Bütün Son Qeydləri Əllə Bir Sənəddə Haşiyələrə çevirin

Son qeydləri dipnotlara çevirmək çox eynidir.

1. 1-ci üsulda 2 və 1-ci addımları təkrarlayın.
2. Bu dəfə əvəzinə “Bütün son qeydləri alt qeydlərə çevir” seçimini seçin.
3. Yenə də 4-ci üsulda 5 və 1-ci addımları təkrarlayın.

Aşağıdakı nəticəni yoxlayın:

Metod 3: Bütün Haşiyələri VBA vasitəsilə Bir Sənəddə Son Qeydlərə çevirin

1. Əvvəlcə Word-də VBA redaktorunu açmaq üçün "Alt + F11" düyməsini basın.
2. Sonra "Normal" düyməsini basın.
3. "Daxil et" sekmesini vurun.
4. Və açılan menyuda "Modul" seçin.
5. Sonra modulu açmaq üçün üzərinə iki dəfə klikləyin.
6. Aşağıdakı kodları oraya yapışdı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. Nəhayət, "Çalıştır" düyməsini basın.

Metod 4: Bütün Son Qeydləri VBA vasitəsilə Bir Sənəddə Haşiyələrə çevirin

Eynilə, makronu quraşdırmaq və işə salmaq üçün 3-cü üsulda eyni addımları yerinə yetirin. Lakin, makronu aşağıdakı ilə əvəz edin:

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

Metod 5: Toplu Bütün Haşiyələri VBA vasitəsilə Çox Sənəddə Son Qeydlərə çevirin

Əgər çoxlu sayda faylınız varsa, əvvəlcə onların hamısını bir qovluqda təşkil edirsiniz. Sonra bu makronu quraşdırın və işə salı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 makronu işə saldıqda, qovluq yolunu daxil etməli olduğunuz bir giriş qutusu açılacaq. Qovluq ünvanının sonunda “\” işarəsinin olması lazım olduğunu unutmayın.

Metod 6: Toplu Bütün Son Qeydləri VBA vasitəsilə Çox Sənəddə Haşiyələrə çevirin

Nəhayət, birdən çox sənədlərdəki son qeydləri avtomatik olaraq alt qeydlərə toplu çevirmək üçün makro:

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

Word problemlərini necə həll etmək olar

Söz heç bir işarə olmadan uğursuz ola bilər. Baxmayaraq ki, belə bir bədbəxtliyin sizi tapması inanılmazdır, düzəltmək üçün ixtisaslı təmir alətinə müraciət etməkdən başqa çarəniz yoxdur. korrupsioner doc.

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 zədələnmiş Excel və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com