ဤဆောင်းပါးတွင်၊ သင်၏ Word document ရှိ မီးမောင်းထိုးပြသောအရောင်ကို အစားထိုးရန် အသုံးဝင်သော နည်းလမ်း ၂ ခုကို သင့်အား ပြသလိုသည်မှာ ဝမ်းမြောက်မိပါသည်။
တခါတရံတွင် မတူညီသော အကြောင်းအရာများကို အရောင်အမျိုးမျိုးဖြင့် မီးမောင်းထိုးပြနိုင်သည်။ သို့သော် ဖောင့်အရောင်နှင့် မတူဘဲ၊ သတ်သတ်မှတ်မှတ် အသားပေးအရောင်ရှိ စာသားများကို ရှာဖွေရန်နှင့် ၎င်းကို အခြားတစ်ခုနှင့် အစားထိုးရန် "Find and Replace" ကို အသုံးမပြုနိုင်ပါ။
ထို့ကြောင့် ကျွန်ုပ်တို့သည် ဖြေရှင်းနည်းအချို့ လိုအပ်မည်ဖြစ်သည်။ အောက်ပါတို့သည် မတူညီသောကိစ္စများအတွက် ရနိုင်သော နည်းလမ်း ၂ ခုဖြစ်သည်။
နည်းလမ်း 1- Highlight အရောင်များအားလုံးကို တူညီသောတစ်ခုတည်းဖြင့် အစားထိုးပါ။
“Find and Replace” ဒိုင်ယာလော့ဂ်ဘောက်စ်နှင့် ဆက်စပ်နေသည့် မီးမောင်းထိုးပြအရောင်သည် ထင်ရှားသော အိုင်ကွန်တွင် လက်ရှိရွေးချယ်ထားသော အရာဖြစ်သည်။
- ပထမဦးစွာ၊ "Home" tab နှင့် "Font" အုပ်စုအောက်တွင်၊ "Text Highlight Color" command ရှိ drop-down ခလုတ်ကိုနှိပ်ပါ။ မီးမောင်းထိုးထားသည့် အရောင်အားလုံးကို ပြောင်းလိုသောအရောင်ကို ရွေးပါ။ ဥပမာအားဖြင့်၊ ဤနေရာတွင် "တောက်ပသောအစိမ်းရောင်" ကိုရွေးချယ်ပါ။
- ထို့နောက် "Find and Replace" dialog box ကိုစတင်ရန် "Ctrl+ H" ကိုနှိပ်ပါ။
- “Find what” စာသားအကွက်အတွင်း ကာဆာကို ထည့်ပါ။
- နောက်ထပ် ရွေးချယ်စရာများ ထွက်လာစေရန် “ပို” ကို နှိပ်ပြီး “ဖော်မတ်” ကို နှိပ်ပါ။
- ပြီးလျှင် "Highlight" ကိုရွေးချယ်ပါ။
- ထို့နောက် “Replace with” အကွက်အတွင်း ကာဆာကို ထည့်ပြီး အဆင့် 4 နှင့် 5 ကို ပြန်လုပ်ပါ။
- နောက်ဆုံးအနေနဲ့ “Replace All” ကိုနှိပ်ပါ။
ယခု သင်သည် မီးမောင်းထိုးပြသည့် အရောင်အားလုံးကို တောက်ပသော အစိမ်းရောင်ဖြင့် အစားထိုးလိုက်ပါပြီ။
နည်းလမ်း 2- သီးခြားမီးမောင်းထိုးပြသည့်အရောင်ကို အခြားတစ်ခုနှင့် အစားထိုးပါ။
ဤတာဝန်ကို ပြီးမြောက်ရန်၊ မက်ခရိုတစ်ခု လိုအပ်သည်။
- VBA editor ကိုဖွင့်ဖို့ ပထမဆုံး Alt+F11 ကိုနှိပ်လိုက်ပါ။
- ထို့နောက် ဘယ်ဘက်ကော်လံရှိ “Normal” ပရောဂျက်ကို နှိပ်ပါ။
- ထို့နောက် မီနူးဘားရှိ “Insert” tab ကိုနှိပ်ပါ။
- ထို့နောက် အဆိုပါ drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
- နှစ်ချက်ကလစ်ဖြင့် module အသစ်ကိုဖွင့်ပါ။
- ယခု အောက်ပါကုဒ်များကို ကူးထည့်ပါ
Sub ReplaceOneHighlightColorToAnother()
Dim strFindColor As String
Dim strReplaceColor As String
Dim objDoc As Document
Dim objRange As Range
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Highlight = True
Do While .Execute
If Selection.Range.HighlightColorIndex = strFindColor Then
Set objRange = Selection.Range
objRange.HighlightColorIndex = strReplaceColor
Selection.Collapse wdCollapseEnd
End If
Loop
End With
End With
Application.ScreenUpdating = True
End Sub
- ထို့နောက် "Run" ခလုတ်ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
- ထို့နောက် “Specify Highlight Color” အကွက်တွင်၊ အစားထိုးရမည့်အရောင်ကို ကိုယ်စားပြုသည့်တန်ဖိုးကို ရိုက်ထည့်ပါ။ သတ်မှတ်ထားသော အရောင်တစ်ခု၏ ဆက်စပ်တန်ဖိုးကို ရယူရန် ဤလင့်ခ်ကို သင်ဝင်ရောက်ကြည့်ရှုနိုင်သည်- https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
- ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့သည် အဝါရောင်ကို တောက်ပသောအစိမ်းရောင်ဖြင့် အစားထိုးလိုပါက၊ “Specify Highlight Color” အကွက်တွင် “7” ကိုရိုက်ထည့်ပြီး “OK” ကိုနှိပ်ပါ။
- ထို့နောက် “New Highlight Color” အကွက်တွင် အရောင်အသစ်၏တန်ဖိုးကို ရိုက်ထည့်ကာ “OK” ကိုနှိပ်ပါ။
ဤသည်မှာ အဝါရောင်ကို တောက်ပသော အစိမ်းရောင်ဖြင့် အစားထိုးခြင်း၏ ဖြစ်နိုင်ခြေရလဒ်ဖြစ်သည်။
ဒေတာဆုံးရှုံးမှုဘေးအန္တရာယ်ကို ရှောင်ကြဉ်ပါ။
နှုတ်ကပတ်တော်သည် ကျွန်ုပ်တို့၏နေ့စဉ်လုပ်ငန်းဆောင်တာတွင် ကြီးမားသောအကူအညီဖြစ်သည်။ ထို့ကြောင့် ပြိုကျသည့်အခါ ဖြစ်ပေါ်လာနိုင်သည့် ကပ်ဆိုးကို စိတ်ကူးကြည့်ရန် မခက်ပေ။ အရေးကြီးသောဒေတာဆုံးရှုံးခြင်းမှရှောင်ရှားရန်, သင်တစ်ဦးကိုကိုင်ထားနိုင်ပါတယ်။ စကားလုံးပြင်တယ်။ tool ကိုကြိုတင်ပြောပါ။ ထိုကဲ့သို့သော utility ကိုလက်တွင်ရှိသောကြောင့်၊ သင်သည်ဒေတာဆုံးရှုံးမှုအတွက်စိုးရိမ်နေရန်မလိုအပ်ပါ။
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ အကျင့်ပျက် xlsx နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com







