ယနေ့ဆောင်းပါးတွင်၊ စာမျက်နှာအရေအတွက်အလိုက် Word စာရွက်စာတမ်းများကို ရှာဖွေရန် အမြန်နည်းလမ်း ၂ ခုကို တင်ပြလိုပါသည်။
ယေဘုယျအားဖြင့်၊ လမ်းညွှန်တစ်ခုအောက်တွင် သိမ်းဆည်းထားသော ဖိုင်အများအပြားရှိသည်။ ထို့အပြင်၊ ဖိုင်အမျိုးအစားအမျိုးမျိုးရှိနိုင်သည်။ ထို့ကြောင့် စာမျက်နှာအရေအတွက် အတိအကျရှိသော Word စာရွက်စာတမ်းများကို ရှာဖွေရန် လိုအပ်ပါက အဘယ်နည်း။ သို့မဟုတ် သင်သည် စာရွက်စာတမ်းအမည်ကို မေ့သွားသော်လည်း ၎င်း၏ စုစုပေါင်းစာမျက်နှာအရေအတွက်ကို မှတ်သားထားပါ။
အောက်ဖော်ပြပါ ကျွန်ုပ်တို့၏ ဖြေရှင်းချက်များသည် သင့်အား သတ်မှတ်ထားသော စာမျက်နှာအရေအတွက်ဖြင့် ပစ်မှတ်ထားသော Word စာရွက်စာတမ်းများကို ရှာဖွေရန် လမ်းညွှန်ပေးပါလိမ့်မည်။
နည်းလမ်း 1- Window Explorer တွင် ရှာဖွေပါ။
- ပထမဦးစွာ "စတင်ရန်" ကိုနှိပ်ပါ။
- ထို့နောက် windows explorer ကိုဖွင့်ရန် "ကွန်ပျူတာ" ကိုနှိပ်ပါ။ သို့မဟုတ် ဖိုင်ရှာဖွေသူ အိုင်ကွန်သည် သင့် Taskbar ပေါ်တွင် ရှိနေပါက၊ ၎င်းကို နှိပ်ပါ။
- ထို့နောက် သင်ဖိုင်အားလုံးကိုသိမ်းဆည်းထားသည့် disk နှင့် သီးခြားတည်နေရာကိုသွားပါ။
- ယခု ပထမတန်းရှိ လွတ်နေသောနေရာကို right click နှိပ်ပါ။
- "အမျိုးအစား" နှင့် "စာမျက်နှာများ" ကိုစစ်ဆေးပါ။ ၎င်းတို့ကို ထိုနေရာတွင် မမြင်နိုင်ပါက မီနူး၏အောက်ခြေရှိ “နောက်ထပ်” ကိုနှိပ်ပါ။
- "Choose Details" အကွက်ဖွင့်ပြီး "စာမျက်နှာများ" နှင့် "ရိုက်ထည့်ပါ" အကွက်များကို စစ်ဆေးပြီး "OK" ကိုနှိပ်ပါ။
- ထို့နောက် drop-down ခလုတ်ကိုပြသသည်အထိ "အမျိုးအစား" ကော်လံပေါ်တွင် cursor ကိုရွှေ့ပါ။ အဲဒါကိုနှိပ်ပါ။
- “Microsoft Word Document” အကွက်ကို စစ်ဆေးပါ။ Word စာရွက်စာတမ်းများသာ ကျန်ရှိတော့သည်ကို သင်မြင်နိုင်သည်။ ထို့နောက် သတ်မှတ်ထားသော စာမျက်နှာအရေအတွက်ရှိသော စာရွက်စာတမ်းကို ရှာဖွေရန် "စာမျက်နှာများ" ကော်လံကို ကြည့်ပါ။
နည်းလမ်း 2: Word Macro ကိုဖွင့်ပါ။
- Word မှာ VBA editor ကိုခေါ်ဖို့ ပထမဆုံး Alt+ F11 ကိုနှိပ်လိုက်ပါ။
- ထို့နောက် "Normal" ကိုနှိပ်ပြီး toolbar မှ "Insert" ကိုနှိပ်ပါ။
- အသစ်တစ်ခုဖန်တီးရန် "Module" ကိုရွေးချယ်ပါ။
- ထို့နောက် ညာဖက်ရှိ coding space ကိုဖွင့်ရန် နှစ်ချက်နှိပ်ပါ။
- အောက်ဖော်ပြပါ မက်ခရိုကို ထိုနေရာတွင် ကူးထည့်ပါ။
Sub FindWordDocumentWithSpecificPageNumber()
Dim lPageNumber As Long
Dim lSpecificPageNumber As Long
Dim strDocList As String
Dim strDocName As String
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)
If lPageNumber = lSpecificPageNumber Then
strDocName = .ActiveDocument.FullName
strDocList = strDocList & strDocName & vbCr
End If
.ActiveDocument.Close
End With
strFile = Dir()
wend
Set objWordApplication = Nothing
If strDocList <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strDocList
Else
MsgBox ("There is no match document.")
End If
End Sub
- ထို့နောက် "Run" ခလုတ်ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
- အခု Input Box တစ်ခုပေါ်လာပါပြီ။ စာသားအကွက်တွင် ဖိုင်တွဲလိပ်စာကို ထည့်သွင်းပြီး စာကြောင်းအဆုံးတွင် “\” ကို ထည့်ရန် မမေ့ပါနှင့်။
- နောက်တစ်ဆင့်သို့ရွှေ့ရန် "OK" ကိုနှိပ်ပါ။
- ဒုတိယအကွက်တွင်၊ ၎င်း၏စာသားအကွက်တွင် နံပါတ်တစ်ခုထည့်ပါ။ နံပါတ်သည် ပစ်မှတ်စာရွက်စာတမ်း၏ စာမျက်နှာစုစုပေါင်းကို ညွှန်ပြသည်။ အလားတူပင်၊ “OK” ကိုနှိပ်ပါ။
Word မှာ လိုချင်တဲ့ စာရွက်စာတမ်းရဲ့ နာမည်အပြည့်အစုံပါတဲ့ စာရွက်စာတမ်းတစ်ခု ပွင့်နေပါလိမ့်မယ်။
စကားလုံးပြိုကျမှု၏အခက်အခဲကိုဖြေရှင်းပါ။
ယေဘူယျအားဖြင့်၊ Word သည် နေ့စဉ်လုပ်ငန်းဆောင်တာများကို လုပ်ဆောင်ရန် အားကောင်းသောကိရိယာတစ်ခုဖြစ်သည်။ သို့သော် ယခုအချိန်အခါတွင် ပြဿနာများနှင့် ခက်ခဲသောပြဿနာများ ဖြစ်ပေါ်လာနိုင်သည်။ တခါတရံမှာ အခြေအနေက နည်းနည်းလေး ပြင်းထန်ပြီး သင်အဆုံးသတ်နိုင်ပါတယ်။ ပျက်စီးသောစကားလုံး. ထိုသို့သောအခြေအနေမျိုးတွင် သင့်အလုပ်အား ပြန်လည်ရယူရန် အဆင့်မြင့်ပြုပြင်ရေးကိရိယာတစ်ခု လိုအပ်မည်ဖြစ်သည်။
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xls ပြုပြင်ခြင်း။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com







