ယနေ့ဆောင်းပါးတွင်၊ သင့် Word document ရှိ စာသားများကို superscript သို့မဟုတ် subscript သို့ batch ပြောင်းရန် နည်းလမ်း 2 ခုကို သင့်အား ပြသလိုပါသည်။
တစ်ခါတစ်ရံတွင် Word စာရွက်စာတမ်းရှိ စာသားအချို့ကို superscripts သို့မဟုတ် subscripts အဖြစ် ပြောင်းလဲရန် လိုအပ်ပါသည်၊ အထူးသဖြင့် စာသားတစ်ခုတည်း၏ ဖြစ်ရပ်များစွာရှိနေသည့်အခါတွင်ဖြစ်သည်။ ထိုကဲ့သို့သောအခြေအနေများတွင်၊ အသုတ်လိုက်အစားထိုးခြင်းသည် ကျွန်ုပ်တို့အလိုအပ်ဆုံးဖြစ်သည်။ ထို့ကြောင့်၊ အလုပ်ကိုပြီးမြောက်စေရန် အမြန်နည်းလမ်း ၂ ခုကို ကျွန်ုပ်တို့ပေးဆောင်ပါသည်။
နည်းလမ်း 1- "ရှာဖွေပြီး အစားထိုးခြင်း" အင်္ဂါရပ်ကို အသုံးပြုပါ။
လာမည့်အကြောင်းအရာများတွင်၊ ကျွန်ုပ်တို့သည်နမူနာကိုအသုံးပြုပါမည် "DataNumen Word Repair v2.5” ကျွန်ုပ်တို့၏သရုပ်ပြအဖြစ်။ ကျွန်ုပ်တို့၏ရည်ရွယ်ချက်မှာ “v2.5” ကို subscript အဖြစ် အစားထိုးရန်ဖြစ်သည်။
- ပထမဦးစွာနှင့်အရေးအကြီးဆုံးအနေဖြင့် "Home" tab ကိုနှိပ်ပါ။
- ထို့နောက် “Find and Replace” dialog box ကိုဖွင့်ရန် “Replace” ကိုနှိပ်ပါ။
- ပထမဦးစွာ "v2.5" ကို "Find what" စာသားအကွက်တွင်ရိုက်ထည့်ပါ။ စာသားမစခင် space တစ်ခုထည့်ဖို့ မမေ့ပါနဲ့။
- ထို့နောက် “Replace with” စာသားအကွက်တွင် “v2.5” ကို ရိုက်ထည့်ပါ။ ဤအချိန်၌ စာသားရှေ့တွင် နေရာလွတ်မရှိပါ။
- နောက်ထပ်ရွေးချယ်စရာများကို ချဲ့ထွင်ရန် “နောက်ထပ်” ခလုတ်ကို နှိပ်ပါ။
- ယခု "Format" ကိုနှိပ်ပြီး "Font" ကိုရွေးချယ်ပါ။
- “ဖောင့်ကိုရှာပါ” ဒိုင်ယာလော့အကွက်တွင်၊ “Superscript” သို့မဟုတ် “Subscript” အကွက်ကို စစ်ဆေးပါ။
- ထို့နောက်“ OK” ကိုနှိပ်ပါ။
- နောက်ဆုံးတွင် "Replace All" ခလုတ်ကိုနှိပ်ပါ။
အကျိုးသက်ရောက်မှုကို ဤနေရာတွင် စစ်ဆေးနိုင်သည်-
နည်းလမ်း 2- Word Macro ကို Run ခြင်းဖြင့် Batch Replace
- စတင်ရန်၊ VBA တည်းဖြတ်မှုကို စတင်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
- ထို့နောက် "Normal" ပရောဂျက်နှင့် "Insert" tab ကိုနှိပ်ပါ။
- drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
- ထို့နောက် coding area ကိုဖွင့်ရန် module အသစ်ပေါ်တွင်နှစ်ချက်နှိပ်ပါ။
- အောက်ဖော်ပြပါ မက်ခရိုကို ထိုနေရာတွင် ကူးထည့်ပါ။
Sub ReplaceTheTextAsSubscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = True
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- “Run” ကိုနှိပ်ပါ။
- ပထမဦးစွာ "စာသားကိုရွေးချယ်ပါ" အကွက်ရှိသည်။ သင်၏ရှာဖွေတွေ့ရှိသောစာသားကိုထည့်သွင်းပြီး "OK" ကိုနှိပ်ပါ။ ဤကိစ္စတွင် “v2.5” ဟု ရိုက်ထည့်ပါ။
- ထို့နောက် "စာသားအစားထိုး" အကွက်ရှိသည်။ အဲဒီနေရာမှာ အစားထိုးထားတဲ့ စာသားကို ရိုက်ထည့်ပြီး “OK” ကိုနှိပ်ပါ။ “v2.5” ဟု ရိုက်ထည့်ပါ။
စာသားများကို superscript အဖြစ်ပြောင်းရန် လိုအပ်ပါက၊ သင်သည် ဤ macro ကို သုံးနိုင်သည်-
Sub ReplaceTheTextAsSuperscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
စာရွက်စာတမ်းအမှားများကိုပြင်ပါ။
စကားလုံးအမှားများသည် ကျွန်ုပ်တို့အများစုအတွက် မစိမ်းပါ။ စကားလုံးပြိုကွဲခြင်းသည် အောက်ပါတို့ကို ဖြစ်ပေါ်စေနိုင်သည်။ အကျင့်ပျက် docx ဖိုင်။ ထိုပြဿနာကို ဖြေရှင်းရန်အတွက် သင်သည် ပျက်စီးနေသောစာရွက်စာတမ်းကို ပြန်လည်ရယူရန် အရည်အချင်းပြည့်မီပြီး ပရော်ဖက်ရှင်နယ်တူးလ်ကို ကိုင်ဆောင်ထားရန် လိုအပ်ပါသည်။
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xlsx ပျက်စီးနေသည်။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com









