4 Word Document တစ်စိတ်တစ်ပိုင်းရှိ စာသားကိုရှာဖွေပြီး အစားထိုးရန် အသုံးဝင်သောနည်းလမ်းများ

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

ပုံမှန်အားဖြင့်၊ ကျွန်ုပ်တို့သည် Word တွင် "Find and Replace" ကိုလုပ်သောအခါ၊ အကျိုးသက်ရောက်မှုသည် ကမ္ဘာနှင့်အဝှမ်းရှိသည်။ ထို့ကြောင့်၊ ယနေ့တွင် ရွေးချယ်မှု၊ စာမျက်နှာတစ်ခုတည်း သို့မဟုတ် သီးခြားကဏ္ဍတစ်ခုကဲ့သို့သော စာရွက်စာတမ်းတစ်ခု၏ တစ်စိတ်တစ်ပိုင်း၌ စာသားကို ရှာဖွေပြီး အစားထိုးရန် နည်းလမ်းများကို သင့်အား ကမ်းလှမ်းလိုပါသည်။

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

1. ပထမဦးစွာ၊ ရွေးချယ်ပါ။ tarစာသားကိုရယူပါ။
2. ဒုတိယအနေဖြင့်၊ “Find and Replace” အကွက်ကိုဖွင့်ရန် “Ctrl+H” ကိုနှိပ်ပါ။
3. ထို့နောက် “Find what” စာသားအကွက်တွင် ရှာတွေ့သည့်စာသားကို ရိုက်ထည့်ကာ “Replace with” အကွက်တွင် စာသားအစားထိုးပါ။
4. ထို့နောက် "Replace All" ခလုတ်ကိုနှိပ်ပါ။
5. ကျန်စာရွက်စာတမ်းတစ်ခုတွင် ရှာဖွေမှုကို ဆက်လက်လုပ်ဆောင်လိုသလားဟု မေးသည့် ဘောက်စ်တစ်ခု ပေါ်လာပါမည်။ "No" ကိုနှိပ်ပြီးသေချာပါစေ။

နည်းလမ်း 2- ရွေးချယ်မှုတစ်ခုတွင် စာသားကိုရှာဖွေပြီး အစားထိုးရန် VBA ကုဒ်များကို လုပ်ဆောင်ပါ။

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

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. ထို့နောက် "F5" ကိုနှိပ်ပါ။
8. Input Box နှစ်ခုပေါ်လာပါလိမ့်မယ်။ အကွက်နှစ်ခုတွင် စာလုံးရှာဖွေခြင်းနှင့် အစားထိုးခြင်းကို အသီးသီးထည့်ပါ။
9. ဆက်လက်ဆောင်ရွက်ရန် "OK" ကိုနှိပ်ပါ။

နည်းလမ်း 1 တွင်ကဲ့သို့တူညီသောအကျိုးသက်ရောက်မှုကိုသင်ရရှိလိမ့်မည်။

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

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

1. ပထမဦးစွာ method 2 တွင် အောက်ပါအဆင့်များအတိုင်း macro တစ်ခုကို install လုပ်ပြီး run ပါ။
2. ထို့နောက် အဆိုပါ macro ကို ဤတစ်ခုနှင့် အစားထိုးပါ။

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. ဤကုဒ်များကိုအသုံးပြုပြီးနောက်၊ ထည့်သွင်းမှုအကွက် ၃ ခုရှိလိမ့်မည်။ ပထမအကွက်တွင် စာမျက်နှာနံပါတ်တစ်ခုကို ရိုက်ထည့်ကာ ဒုတိယတွင် ရှာတွေ့သည့်စာသားကို ရိုက်ထည့်ကာ တတိယတွင် အစားထိုးစာသားကို ရိုက်ထည့်ပါ။
4. ဆက်လက်ဆောင်ရွက်ရန် "OK" ကိုနှိပ်ရန်မမေ့ပါနှင့်။

နည်းလမ်း 4- အပိုင်းတစ်ခုရှိ စာသားကိုရှာဖွေပြီး အစားထိုးရန် Word Macro ကိုဖွင့်ပါ။

1. အလားတူ၊ မက်ခရိုတစ်ခုကို ထည့်သွင်းပြီး လုပ်ဆောင်ရန် နည်းလမ်း 2 တွင် တူညီသောအဆင့်များကို လုပ်ဆောင်ပါ။
2. ဤအချိန်မှသာ ဤ macro ကိုသုံးပါ-

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. ပထမအကွက်တွင် အပိုင်းနံပါတ်ကို ထည့်ရန် မမေ့ပါနှင့်။ ပြီးလျှင် အောက်ပါအကွက်နှစ်ခုတွင် စာသားရှာဖွေခြင်းနှင့် အစားထိုးခြင်းကို ထည့်သွင်းပါ။
4. ဆက်လက်ဆောင်ရွက်ရန်၊ "OK" ကိုနှိပ်ပါ။

စကားလုံးပြဿနာများကို ရင်ဆိုင်ပါ။

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

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

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