အောက်ခြေမှတ်စုများအားလုံးကို အဆုံးမှတ်စုများအဖြစ်သို့ ပြောင်းရန် နည်းလမ်း 6 ခုနှင့် သင့် Word Document တွင် အပြန်အလှန်ပြောင်းပါ။

ဤဆောင်းပါးတွင်၊ သင်၏ Word document ရှိ အောက်ခြေမှတ်စုများအားလုံးကို အဆုံးမှတ်များအဖြစ်သို့ ပြောင်းရန် နည်းလမ်း 6 ခုကို ပေးပါမည်။

မူရင်းအားဖြင့်၊ စာမျက်နှာတစ်ခုချင်းစီ၏အောက်ခြေတွင် အောက်ခြေမှတ်စုများကို စီစဥ်ထားသည်ဟု အားလုံးသိကြပြီး၊ သို့သော်၊ ထိုကဲ့သို့သော ပုံသေဆက်တင်များသည် လူများကို တစ်ချိန်လုံး စိတ်ကျေနပ်မှုမပေးနိုင်ပါ။ Word သည် သုံးစွဲသူများအတွက် အောက်ခြေမှတ်စုများကို နောက်ဆုံးမှတ်စုများအဖြစ် ပြောင်းရန်နှင့် အပြန်အလှန်ပြောင်းရန် built-in command ရှိသည်။ ထို့ကြောင့် ကျွန်ုပ်တို့သည် သင့်အတွက် နည်းလမ်း 6 ခုကို ထုတ်ပေးပါသည်။

နည်းလမ်း 1- အောက်ခြေမှတ်စုများအားလုံးကို စာရွက်စာတမ်းတစ်ခုတည်းတွင် အဆုံးမှတ်အဖြစ်သို့ ကိုယ်တိုင်ပြောင်းပါ။

ဤနေရာတွင် အောက်ခြေမှတ်စုများနှင့် အဆုံးမှတ်စုများ ထားရှိလေ့ရှိသည်-

1. စတင်ရန်၊ “ကိုးကားချက်များ” တက်ဘ်ကို နှိပ်ပြီး “အောက်ခြေမှတ်စုများ” အုပ်စုရှိ မြှားခလုတ်ကို နှိပ်ပြီး “အောက်ခြေမှတ်ချက်နှင့် အဆုံးမှတ်” ဒိုင်ယာလော့ဂ်အကွက်ကို ဖွင့်ပါ။
2. ထို့နောက် "Convert" ခလုတ်ကိုနှိပ်ပါ။
3. ထို့နောက် “အောက်ခြေမှတ်စုများအားလုံးကို အဆုံးမှတ်စုအဖြစ်သို့ ပြောင်းရန်” ရွေးချယ်မှုကို ရွေးချယ်ပါ။
4. ပြီးလျှင် “OK” ကိုနှိပ်ပါ။
5. နောက်ဆုံးအနေနဲ့ “အောက်ခြေမှတ်စုနှင့် အဆုံးမှတ်” အကွက်ကို ပိတ်လိုက်ပါ။

အကျိုးသက်ရောက်မှုမှာ

နည်းလမ်း 2- စာရွက်စာတမ်းတစ်ခုတည်းတွင် အောက်ခြေမှတ်စုများအားလုံးကို ကိုယ်တိုင်ပြောင်းပါ။

အဆုံးမှတ်စုများကို အောက်ခြေမှတ်စုအဖြစ်သို့ ပြောင်းရန်မှာ အလွန်တူပါသည်။

1. နည်းလမ်း 1 တွင် အဆင့် 2 နှင့် 1 ကို ပြန်လုပ်ပါ။
2. ဤတစ်ကြိမ်တွင် “အောက်ခြေမှတ်စုများအားလုံးကို အောက်ခြေမှတ်စုအဖြစ်သို့ ပြောင်းရန်” ရွေးချယ်မှုကို ရွေးချယ်ပါ။
3. သို့သော် နည်းလမ်း 4 တွင် အဆင့် 5 နှင့် 1 ကို ပြန်လုပ်ပါ။

အောက်ပါရလဒ်ကို စစ်ဆေးပါ-

နည်းလမ်း 3- VBA မှတစ်ဆင့် အောက်ခြေမှတ်စုများအားလုံးကို စာရွက်စာတမ်းတစ်ခုတွင် အဆုံးမှတ်အဖြစ်သို့ ပြောင်းပါ။

1. ပထမဦးစွာ၊ Word တွင် VBA တည်းဖြတ်သူကိုဖွင့်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
2. ထို့နောက် "Normal" ကိုနှိပ်ပါ။
3. "Insert" tab ကိုနှိပ်ပါ။
4. ပြီးလျှင် drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
5. ထို့နောက်ဖွင့်ရန် module ပေါ်တွင်နှစ်ချက်နှိပ်ပါ။
6. အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

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. နောက်ဆုံး Run ကိုနှိပ်ပါ။

နည်းလမ်း 4- VBA မှတစ်ဆင့် စာရွက်စာတမ်းတစ်ခုတွင် အောက်ခြေမှတ်စုများအားလုံးကို အောက်ခြေမှတ်စုအဖြစ် ပြောင်းပါ။

အလားတူ၊ macro ကိုထည့်သွင်းရန်နှင့် run ရန် method 3 တွင်တူညီသောအဆင့်များကိုလိုက်နာပါ။ သို့သော်၊ macro ကို အောက်ပါပုံဖြင့် အစားထိုးပါ။

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

နည်းလမ်း 5- VBA မှတစ်ဆင့် စာရွက်စာတမ်းအများအပြားရှိ အောက်ခြေမှတ်စုအားလုံးကို အောက်ခြေမှတ်စုများအဖြစ်သို့ ပြောင်းပါ။

သင်ကိုင်တွယ်ဖြေရှင်းရမည့် ဖိုင်အများအပြားရှိပါက၊ ၎င်းတို့အားလုံးကို ဖိုင်တွဲတစ်ခုတွင် ဦးစွာစီစဉ်ပါ။ ထို့နောက် ဤ macro ကို install လုပ်ပြီး run ပါ။

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

ဤမက်ခရိုကို လုပ်ဆောင်ခြင်းဖြင့် သင်သည် ဖိုင်တွဲလမ်းကြောင်းကို ထည့်သွင်းသင့်သည့် အကွက်တစ်ခု ပေါ်လာလိမ့်မည်။ ဖိုင်တွဲလိပ်စာ၏အဆုံးတွင် “\” ရှိရမည်ကို မမေ့ပါနှင့်။

နည်းလမ်း 6- VBA မှတစ်ဆင့် စာရွက်စာတမ်းများစွာရှိ အဆုံးမှတ်စုအားလုံးကို အောက်ခြေမှတ်စုများအဖြစ်သို့ ပြောင်းလဲပါ။

နောက်ဆုံးတွင်၊ ဤသည်မှာ စာရွက်စာတမ်းများစွာရှိ အဆုံးမှတ်များကို အောက်ခြေမှတ်စုများအဖြစ် အလိုအလျောက် အစုအဝေးပြုလုပ်ရန် မက်ခရိုဖြစ်သည်။

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 Problems တွေကို ဘယ်လိုဖြေရှင်းမလဲ။

နှုတ်ကပတ်တော်သည် နိမိတ်မရှိဘဲ ပျက်နိုင်သည်။ ထိုသို့သော ကံကြမ္မာဆိုးသည် သင့်အား တွေ့ရှိမည်ကို မယုံနိုင်လောက်အောင် ခံစားရသော်လည်း၊ ပြုပြင်ရန် အရည်အချင်းပြည့်မီသော ပြုပြင်ရေးကိရိယာကို သင်ရွေးချယ်ရန်မှတပါး ရွေးချယ်စရာမရှိပေ။ အကျင့်ပျက် ဒေါ့.

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ Excel ပျက်စီးသွားတယ်။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com