Multiple Word Documents တွင် အကြောင်းအရာများကို ရှာဖွေပြီး အစားထိုးနည်း

ယနေ့ဆောင်းပါးတွင်၊ Word စာရွက်စာတမ်းများစွာရှိ အကြောင်းအရာများကို ရှာဖွေပြီး အစားထိုးရန် နည်းလမ်းအကြောင်း သင့်အား အသိပေးလိုသည်မှာ ကျွန်ုပ်တို့ ဝမ်းမြောက်မိပါသည်။

ယေဘုယျအားဖြင့် Word အသုံးပြုသူအများစုဟာ ဆော့ဖ်ဝဲလ်ထဲက “Find and Replace” လုပ်ဆောင်ချက်နဲ့ အတော်လေး ရင်းနှီးကြပါတယ်။ ဒါက စာရွက်စာတမ်းတစ်ခုလုံးကို batch process လုပ်ရာမှာ ကျွန်တော်တို့ကို ကူညီပေးပြီး အချိန်အများကြီး သက်သာစေပါတယ်။ ဒါဆိုရင် သတ်မှတ်ထားတဲ့ folder တစ်ခုအောက်က ဖိုင်အားလုံးကို multi-document မှာ ဒီ option ကို အသုံးပြုဖို့ စဉ်းစားဖူးလား။

ဖိုင်အသုတ်တစ်ခုတွင် အကြောင်းအရာများကို ရှာဖွေပြီး အစားထိုးရန် အမြဲတမ်းလိုအပ်နေသောကြောင့်၊ လုပ်ဆောင်ချက်ကို နားလည်သဘောပေါက်ထားရန် ကောင်းပါတယ်။ ကျွန်ုပ်တို့၏နည်းလမ်းမှာ Macro ကိုအသုံးပြုရန်ဖြစ်သည်။ နောက်ထပ်အသေးစိတ်အချက်အလက်များကို သိရှိရန် ကျေးဇူးပြု၍ ဖတ်ရှုပါ။

Macro ကို Install လုပ်ပြီး Run ရန် အဆင့်များ

1. အရင်ဆုံး ဖိုင်အားလုံးကို folder တစ်ခုတည်းမှာထည့်ပြီး Word ကိုဖွင့်ပါ။
2. ထို့နောက် "Developer" tab ကိုနှိပ်ပါ။
3. ထို့နောက် “Visual Basic” ကိုနှိပ်ပါ။ သို့မဟုတ် VBA တည်းဖြတ်မှုကို စတင်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
4. ထို့နောက် "ပုံမှန်" ပရောဂျက်ကိုနှိပ်ပါ။
5. ထို့နောက် "Insert" tab ကိုနှိပ်ပြီး "Module" ကိုရွေးချယ်ပါ။
6. ယခုသင်သည် မော်ဂျူးအသစ်တစ်ခုကို အောင်မြင်စွာ ထည့်သွင်းလိုက်ပါပြီ။ coding space ကိုဖွင့်ရန် ၎င်းကို နှစ်ချက်နှိပ်ပါ။
7. အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. နောက်ဆုံးအနေနဲ့ "Run" ကိုနှိပ်ပါ။
9. ယခုတွင် input box တစ်ခုပေါ်လာလိမ့်မည်။ သင်စာရွက်စာတမ်းများသိမ်းဆည်းသည့် ဖိုင်တွဲလမ်းကြောင်းကို ထည့်သွင်းပါ။
10. ထို့နောက် “OK” ကိုနှိပ်ပြီး ဒုတိယအကွက်ပေါ်လာသည်။ သင်ရှာလိုသော စာသားများကို ရိုက်ထည့်ပါ။
11. အစားထိုး စာသားများကို ရိုက်ထည့်ကာ ထိုနေရာတွင် “OK” ခလုတ်ကို နှိပ်သည့် တတိယအကွက်ကို ဖွင့်ရန် “OK” ကို ဆက်လက်နှိပ်ပါ။ မက်ခရိုသည် အကြောင်းအရာအားလုံးကို အလိုအလျောက် အစားထိုးပြီး အပြောင်းအလဲကို သိမ်းဆည်းမည်ဖြစ်သည်။

သင်မြင်သည့်အတိုင်း၊ ဤ macro သည် သင့်အား ဖိုင်တွဲလမ်းကြောင်း၊ စာသားများကို ရှာဖွေခြင်းနှင့် အစားထိုးနိုင်သည့် အကွက် ၃ ကွက်ကို ပေးပါသည်။ ထို့ကြောင့် သင်သည် ဤ macro အတွက် ခလုတ်တစ်ခုကို သတ်မှတ်ပြီး ပြန်သုံးရန်အတွက် "အမြန် Access Toolbar" သို့ ထည့်နိုင်သည်။

မက်ခရိုတစ်ခုသို့ ခလုတ်တစ်ခုအား မည်ကဲ့သို့သတ်မှတ်ရမည်ကို ဤဆောင်းပါးတွင် သင်ဖတ်ရှုနိုင်သည်- သင့် Word တွင် Macro နှင့် VBA ဖြင့် Pasted Text ၏ Formatting ကိုမည်သို့ဖယ်ရှားနည်း

အဖိုးတန်ဒေတာကို ကာကွယ်ပါ။

Word တွင် အမှားများနှင့် ပြဿနာများ ဖြစ်ပွားနိုင်သည်။ အကျိုးဆက်အနေဖြင့် အဖိုးတန်စာရွက်စာတမ်းများ ပျက်စီးသွားနိုင်သည်။ နှင့် ကြုံတွေ့ရစဉ် doc ပျက်စီးခြင်း။ဒေတာပြန်လည်ရယူရန်အတွက် ပရော်ဖက်ရှင်နယ်ပြန်လည်ရယူရေးကိရိယာကို ကိုင်ထားရန် အကြံပြုလိုပါသည်။

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

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