ဤဆောင်းပါးတွင်၊ သင့် Word document ရှိ သီးခြားဖောင့်တစ်ခုကို အစားထိုးရန် လွယ်ကူပြီး ထိရောက်သော နည်းလမ်း ၃ ခုကို သင့်အား ပြသလိုပါသည်။
Word တွင် စာရွက်စာတမ်းတစ်ခုကို လုပ်ဆောင်ရန် တည်းဖြတ်ခြင်းထက် ပိုလိုအပ်သည်။ ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့သည် စတိုင်၊ စာမျက်နှာ အပြင်အဆင် စသည်တို့ကို ထည့်သွင်းစဉ်းစားရန် လိုအပ်ပါသည်။ အမျိုးအစားအားလုံးထဲမှ တစ်ခုမှာ ဖောင့်အလုပ်အကိုင်ဖြစ်သည်။ ကျွန်ုပ်တို့သည် ဖောင့်တစ်ခုကို အခြားတစ်ခုသို့ မကြာခဏပြောင်းရဖွယ်ရှိသောကြောင့် ဤနေရာတွင် ကျွန်ုပ်တို့၏လုပ်ဆောင်စရာကို လွယ်ကူစွာကိုင်တွယ်ရန် ကူညီပေးမည့်နည်းလမ်း 3 ခုရှိသည်။
နည်းလမ်း 1- "ရှာဖွေပြီး အစားထိုးခြင်း" အင်္ဂါရပ်ကို အသုံးပြုပါ။
- ပထမနှင့်ပုံစံost"Home" tab ကိုနှိပ်ပါ။
- ထို့နောက် "တည်းဖြတ်ခြင်း" အုပ်စုရှိ "အစားထိုး" ကိုနှိပ်ပါ။

- နောက်တစ်ခုကတော့ “Find and Replace” dialog box တွင်၊ သင်သည် “Replace” tab အောက်တွင် ရှိနေကြောင်း သေချာပါစေ။ ထည့်သွင်းညွှန်ပြချက်ကို “ဘာကိုရှာပါ” အကွက်တွင် ထည့်သွင်းပြီး ဗလာဖြစ်ကြောင်း သေချာပါစေ။
- နောက်ထပ်ရွေးချယ်စရာများတိုးချဲ့ရန် ဘယ်ဘက်အောက်ထောင့်ရှိ “နောက်ထပ်” ခလုတ်ကို နှိပ်ပါ။
- ယခု ပထမဦးစွာ "Format" ကိုနှိပ်ပါ။
- ထို့နောက် "ဖောင့်ရှာရန်" အကွက်ကိုဖွင့်ရန် "ဖောင့်" ကိုရွေးချယ်ပါ။

- သင်အစားထိုးလိုသော “ဖောင့်” အမျိုးအစားကို ရွေးပါ။
- ထို့နောက် “OK” ကိုနှိပ်ပါ။
- ထို့နောက် ထည့်သွင်းမှုညွှန်ပြချက်ကို “အစားထိုးခြင်းဖြင့်” စာသားအကွက်တွင် ထားရှိကာ စာလုံးတစ်လုံးတည်းမရှိကြောင်း သေချာပါစေ။
- အဆင့် 5 နှင့် 6 ကိုပြန်လုပ်ပါ။ ဤအကြိမ်တွင် "ဖောင့်ရှာရန်" အကွက်တွင်သာ၊ သင်အစားထိုးလိုသောဖောင့်ကို ရွေးချယ်သင့်သည်။ ထို့နောက် "OK" ကိုနှိပ်ပါ။
- နောက်ဆုံးအနေဖြင့်၊ "ရှာဖွေပြီး အစားထိုးရန်" အကွက်တွင် "အားလုံးကို အစားထိုးရန်" ကိုနှိပ်ပါ။
နည်းလမ်း 2- စာရွက်စာတမ်းတစ်ခုတွင် ဖောင့်အစားထိုးရန် Macro ကိုသုံးပါ။
- ပထမဦးစွာ Word VBA တည်းဖြတ်မှုကို စတင်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
- ထို့နောက် "Normal" ကိုနှိပ်ပြီး "Insert" ကိုနှိပ်ပါ။
- "Normal" ပရောဂျက်အောက်တွင် မော်ဂျူးအသစ်တစ်ခုကို ထည့်သွင်းရန် "Module" ကိုရွေးချယ်ပါ။
- တည်းဖြတ်နေရာကိုဖွင့်ရန် ၎င်းကိုနှစ်ချက်နှိပ်ပါ။
- အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။
Sub ReplaceFontForOneDocument()
Dim objSingleWord As Range
Dim objDoc As Document
Set objDoc = ActiveDocument
With objDoc
For Each objSingleWord In .Words
If objSingleWord.Font.Name = "Calibri" Then
objSingleWord.Font.Name = "Times New Roman"
End If
Next
End With
End Sub
- နောက်ဆုံးအနေနဲ့ "Run" ခလုတ်ကိုနှိပ်ဖို့မမေ့ပါနဲ့။
မှတ်စုများ:
- ကုဒ်လိုင်းမှာ "အကယ်၍ objSingleWord.Font.Name = “Calibri” ထို့နောက်"၊ အစားထိုး"calibri” စာရွက်စာတမ်းရှိ ဖောင့်အမျိုးအစားဖြင့် သင်မလိုအပ်တော့ပါ။
- ကုဒ်လိုင်းမှာ "Font.Name = “Times New Roman”"ပြောင်းပါ"Times New Roman” ဖိုင်အတွက် သင်လျှောက်ထားလိုသော ဖောင့်ဖြင့်။
နည်းလမ်း 3- စာရွက်စာတမ်းများစွာတွင် ဖောင့်အစားထိုးရန် Macro ကိုဖွင့်ပါ။
အထက်ဖော်ပြပါ နည်းလမ်း ၂ ခုသည် စာရွက်စာတမ်းတစ်ခုတွင် ဖောင့်အစားထိုးရန် ညွှန်ကြားချက်များအကြောင်း ဆွေးနွေးသည်။ ယခု စာရွက်စာတမ်းများစွာတွင် ဖောင့်အစားထိုးနည်းကို လေ့လာကြည့်ရအောင်။ ဤနေရာတွင် ဖြေရှင်းချက်မှာ Word macro ကို လုပ်ဆောင်နေပါသည်။
- အစကတော့ အားလုံးစီစဉ်ပါ။ tarဖိုင်တွဲတစ်ခုတွင် စာရွက်စာတမ်းများကို ရယူပါ။
- ထို့နောက် Word ကိုဖွင့်ပြီး VBA တည်းဖြတ်သူကို အစပျိုးကာ နည်းလမ်း 2 ရှိ အဆင့်များကို အသုံးပြုကာ ကုဒ်တည်းဖြတ်ခြင်းနေရာအား လုပ်ဆောင်ပါ။
- ထို့နောက် အောက်ပါကုဒ်များကို ကူးထည့်ပါ-
Sub BatchReplaceFont()
Dim objDoc As Document
Dim objSingleWord As Range
Dim strFile As String, strFolder As String
'Initialization
strFolder = "C:\Users\Test\Desktop\test files\"
strFile = Dir(strFolder & "*.docx", vbNormal)
'Replace a specific font with another in all files under the same folder.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
For Each objSingleWord In objDoc.Words
If objSingleWord.Font.Name = "Calibri" Then
objSingleWord.Font.Name = "Time New Roman"
End If
Next objSingleWord
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- နောက်ဆုံးတွင် "Run" ခလုတ်ကိုနှိပ်ပါ။
မှတ်စုများ:
- “Calibri” သည် သင်မလိုအပ်သောဖောင့်ဖြစ်ပြီး “Time New Roman” သည် သင်လိုချင်သည့်ပုံစံဖြစ်သည်။
- ကုဒ်လိုင်းမှာ "strFolder = “C:\Users\Test\Desktop\test files\”"the"C:\Users\Test\Desktop\test files\” သည် folder လမ်းကြောင်းကိုကိုယ်စားပြုသည်။ နောက်ဆုံးကို မမေ့နဲ့"\"လမ်းကို လိုက်ခဲ့။
အံ့သြစရာစကားလုံးအမှားများကိုပြင်ပါ။
အမှားများသည် Word တွင် မကြာခဏဆိုသလို ပေါ်လာနိုင်သည်။ ပြီးတော့ အကျိုးဆက်က ကျွန်ုပ်တို့ရဲ့ Word ဖိုင်တွေကို သေစေနိုင်ပါတယ်။ Word တွင် အံ့အားသင့်စရာ ပြိုကျမှုများကို ကိုင်တွယ်ဖြေရှင်းရန် နည်းလမ်းတစ်ခုမှာ မကြာခဏ အရန်သိမ်းခြင်း ဖြစ်သည်။ ဒါဆိုရင်တော့ ဘာမှကြောက်စရာမရှိပါဘူး။ နောက်တနည်းကတော့ ဖိုင်တွေ ယိုယွင်းပျက်စီးသွားပြီးနောက် ပြန်လည်ကူယူတာ ဖြစ်ပါတယ်။ Word docx error ပြုပြင်ခြင်း ထုတ်ကုန်.
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်စီးနေသော xls ပြန်လည်ရယူရေးကိရိယာ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com




