2 Word Documents များစွာ၏ တိကျသော စာမျက်နှာများကို အတွဲလိုက် ပုံနှိပ်ရန် အမြန်နည်းလမ်း XNUMX ခု

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

Batch Printing ဖိုင်များသည် ကျွန်ုပ်တို့များစွာအတွက် ကောင်းချီးတစ်ခု ကျိန်းသေပါသည်။ ၎င်းသည် ဖိုင်တစ်ခုစီကို ဖွင့်ရန် အချိန်ကုန်သက်သာစေပြီး ကလစ်နှစ်ချက်နှိပ်နိုင်သည်။ ယခု Word စာရွက်စာတမ်းများစွာ၏ သီးခြားစာမျက်နှာများကို အတွဲလိုက်ပုံနှိပ်ခြင်းနှင့်ပတ်သက်၍ကော။ ဥပမာအားဖြင့်၊ ဖိုင်များစွာ၏ ပထမစာမျက်နှာကို တစ်ပြိုင်နက်တည်း ပရင့်ထုတ်ခြင်းသည် အသုံးဝင်လိမ့်မည်။ ထို့အပြင် ဖိုင်များစွာ၏ “အကြောင်းအရာများ” သို့မဟုတ် “ကိုးကားချက်များ” စာမျက်နှာများကို ပုံနှိပ်ထုတ်ဝေရန်လည်း လိုအပ်ပါသည်။ ဒါဆို ငါတို့လုပ်လို့ရမလား။

ဟုတ်ကဲ့၊ အဖြေကတိုပါတယ်။ အကြီးမြတ်ဆုံးအချက်မှာ ကျွန်ုပ်တို့သည် မည်သည့်ပြင်ပမှ add-ins မလိုအပ်ပါ။

နည်းလမ်း 1- စာရွက်စာတမ်းများစွာ၏ ပထမစာမျက်နှာကို အတွဲလိုက် ပရင့်ထုတ်ပါ။

1. အစပြုရန်အတွက်၊ target document အားလုံးကို directory တစ်ခုတည်းအောက်တွင် သိမ်းဆည်းပါ။
2. ထို့နောက် VBA တည်းဖြတ်မှုကိုဖွင့်ရန် "Developer" tab နှင့် "Visual Basic" ကိုနှိပ်ပါ။ သို့မဟုတ် ယင်းအစား “Alt+ F11” ကိုနှိပ်ပါ။
3. ထို့နောက် "Normal" ကိုနှိပ်ပြီး "Insert" ကိုနှိပ်ပါ။
4. drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
5. ယခုတွင် module အသစ်တစ်ခုရှိလိမ့်မည်။ တည်းဖြတ်ခြင်းနေရာကို ထုတ်ယူရန် ၎င်းကို နှစ်ချက်နှိပ်ပါ။
6. မော်ဂျူးပေါ်တွင် မက်ခရိုကို ကူးထည့်ပါ-

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  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\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
  With objWordApplication
    .Documents.Open (strFolder & strFile)
    .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
    .ActiveDocument.Close
  End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

7. ထို့နောက် "Run" ခလုတ်ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။
8. ပေါ်လာသောဘောက်စ်တွင်၊ သင်ဖိုင်များသိမ်းဆည်းထားသည့် ဖိုင်တွဲလမ်းကြောင်းကို ရိုက်ထည့်ပါ၊E:\test word\test\"။ နောက်ဆုံး “\” ကို မမေ့ပါနဲ့. ဆက်လက်ဆောင်ရွက်ရန် "OK" ကိုနှိပ်ပါ။

ပုံနှိပ်ခြင်းကိုသာစောင့်ပါ။

နည်းလမ်း 2- စာရွက်စာတမ်းများစွာ၏ သီးသန့်စာမျက်နှာများကို အတွဲလိုက်ပုံနှိပ်ပါ။

စာရွက်စာတမ်းများစွာ၏ တိကျသောစာမျက်နှာများကို ပုံနှိပ်ထုတ်ရန်အတွက်၊ သင်သည် အောက်ပါ မက်ခရိုကို အသုံးပြုနိုင်သည်။

နည်းလမ်း 1 တွင် တူညီသောအဆင့်များဖြင့် macro ကို ထည့်သွင်းပြီး run သော်လည်း ဤ macro ဖြင့် အစားထိုးပါ။

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String
  Dim strPages As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
  strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
      .ActiveDocument.Close
    End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

အလားတူပင်၊ ပထမအကွက်တွင် ဖိုဒါလမ်းကြောင်းကို ရိုက်ထည့်ပါ။ ထို့နောက် ဒုတိယအကွက်တွင် စာမျက်နှာနံပါတ်ကို ရိုက်ထည့်ပါ။ ဆက်တိုက်စာမျက်နှာများကို ရိုက်နှိပ်ရန်အတွက် “၁-၃” ကဲ့သို့သော အစနှင့်အဆုံးနံပါတ်များကို ခွဲခြားရန် hyphen ကို အသုံးပြုပါ။ အဆက်မပြတ်မဟုတ်သော စာမျက်နှာများကို ရိုက်နှိပ်ရန်အတွက် “၁၊ ၃၊ ၅” ကဲ့သို့သော ကော်မာကို ခွဲခြားရန် အသုံးပြုပါ။ ဥပမာအားဖြင့် “၁၊ ၃-၆” ဆိုသည်မှာ စာမျက်နှာ ၁၊ ၃၊ ၄၊ ၅ နှင့် ၆ ကို ရိုက်နှိပ်ရန် ဆိုလိုသည်။

Repairing Tool ပါရှိရန် လိုအပ်ပါသည်။

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

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

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