2 အစီအစဥ် အမြန်နည်းများ XNUMX သင်၏ Word Document တွင် နံပါတ်များကို မှတ်သားရန် စတုရန်းကွင်းခတ်များ ထည့်ပါ။

ဒီနေ့ပို့စ်မှာ သင့်ရဲ့ Word စာရွက်စာတမ်းထဲက မှတ်စုနံပါတ်တွေကို လေးထောင့်ကွင်းစကွင်းပိတ်တွေ အစုလိုက်ထည့်နည်း ၂ ခုကို ပြသပေးလို့ ဝမ်းသာပါတယ်။

စာတမ်းရှည်တစ်ခုရေးဆွဲသည့်အခါတိုင်း၊ ကျွန်ုပ်တို့သည် အောက်ခြေမှတ်စုများနှင့် အဆုံးမှတ်စုများကို ထည့်သွင်းနိုင်ဖွယ်ရှိသည်။ motte နံပါတ်ဖော်မတ်အတွက် ရွေးချယ်စရာများရှိကြောင်း ကျွန်ုပ်တို့သိပါသည်။ သို့သော်၊ စတုရန်းကွင်းများပါရှိသော နံပါတ်ပုံစံ မပါရှိပါ။ လာမည့်စာတိုများတွင် ကျွန်ုပ်တို့ ဆွေးနွေးမည့်အရာမှာ ယင်းပြဿနာကို ဖြေရှင်းရန် နည်းလမ်း ၂ ခုဖြစ်သည်။

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

1. အစပြုရန်အတွက်၊ target document ရှိ “Home” tab ကိုနှိပ်ပါ။
2. ထို့နောက် "Editing" group ရှိ "Replace" command ကိုနှိပ်ပြီး "Find and Replace" dialog box ကိုဖွင့်ပါ။
3. ယခု သင်သည် အောက်ခြေမှတ်စုများဖြင့် လုပ်ဆောင်နေပါက၊ “Find what” စာသားအကွက်တွင် “^f” ကို ရိုက်ထည့်ပါ။
4. “Replace with” စာသားအကွက်တွင် “[^&]” ကို ရိုက်ထည့်ပါ။
5. ထို့နောက် “Replace All” ကိုနှိပ်ပါ။
6. နောက်တစ်ခုက သင်မြင်ရတဲ့အချက်က အောက်ခြေမှတ်စုနံပါတ်တွေ အားလုံးဟာ စတုရန်းကွင်းခတ်ထားတဲ့ ကွက်လပ်တွေပါ။ မက်ဆေ့ချ်ဘောက်စ်ကိုပိတ်ရန် "OK" ကိုနှိပ်ပါ။

ထို့အပြင်၊ အဆုံးမှတ်စုများသို့ စတုရန်းကွင်းစတုရန်းကွင်းများထည့်ရန် စာသားအကွက်များတွင် "^f" နှင့် "^e" ဖြင့် အစားထိုးပါ။

နည်းလမ်း 2: Word Macro ကိုဖွင့်ပါ။

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

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. ယခု ပထမ macro အတွင်း ထည့်သွင်းမှု ညွှန်ပြချက်ကို ထားရှိကာ “Run” ကို နှိပ်ပါ။
7. ထို့နောက် အောက်ခြေမှတ်စု နံပါတ်များအားလုံးသို့ စတုရန်းကွင်းများ ပေါင်းထည့်ထားကြောင်း ပထမဦးစွာ မက်ဆေ့ချ်ဘောက်စ်တစ်ခု ရှိသည်။
8. နောက်တစ်ခုက အဆုံးမှတ်နံပါတ်အားလုံးမှာ ပြောင်းလဲခြင်း ပြီးပြည့်စုံတယ်လို့ ပြောရမယ့် ဒုတိယတစ်ခုပါ။

ဤသည်မှာ ကျွန်ုပ်တို့ရရှိသော ရလဒ်ဖြစ်သည်။

စာရွက်စာတမ်းပျောက်ဆုံးခြင်းမှကာကွယ်ပါ။

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

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

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