VBA မှတစ်ဆင့် သင့် Word Document ရှိ စာမျက်နှာများစွာကို အမြန်ဖျက်နည်း

ဤဆောင်းပါးတွင်၊ VBA မှတစ်ဆင့် သင့် Word စာရွက်စာတမ်းရှိ စာမျက်နှာများစွာကို ဖျက်နည်းကို သင်သရုပ်ပြမည်ကို အာရုံစိုက်ပါမည်။

စာရွက်စာတမ်းတစ်ခု ရေးဆွဲခြင်းသည် အမြဲတမ်း ချိန်ညှိမှုများ လိုအပ်ပါသည်။ အကြောင်းအရာစာမျက်နှာများကို ဖျက်ခြင်းသည် အခြားပြုပြင်မွမ်းမံမှုများကဲ့သို့ပင် လိုအပ်ပါသည်။ အသုံးမဝင်သော စာသားများကို ဖယ်ရှားရန်မှာ လွယ်ကူပါသည်။ လူအများစုသည် ရွေးချယ်မှုတစ်ခု ပြုလုပ်ပြီးနောက် “Delete” သို့မဟုတ် “Backspace” ကို နှိပ်ခြင်းဖြင့် လုပ်ဆောင်နိုင်ပါသည်။

ဒါက မင်းလိုချင်တာကို သေချာပေါက်ရလိမ့်မယ်။ ဒါပေမယ့် အဲဒါကို လုပ်ဖို့ ပိုမြန်တယ်။ ထို့အပြင် သင်သည် ရွေးချယ်မှုအဆင့်ကို ကျော်သွားကာ စာမျက်နှာများစွာကို တစ်ပြိုင်နက် ဖျက်ပစ်ပါ။ ဆွဲဆောင်မှုရှိသောနည်းလမ်းမှာ Word macro ကို run ရန်ဖြစ်သည်။

လက်ရှိစာမျက်နှာကို ဖျက်ပါ။

စာသားအမျိုးမျိုးကို ရွေးချယ်ရတာကို မုန်းတီးသူတွေအတွက်တော့ ဒါဟာ သင့်ကောင်းချီးတစ်ခုပါပဲ။ ပထမဦးစွာ VBA မှတစ်ဆင့် လက်ရှိစာမျက်နှာကို ဖျက်နည်းကို သင့်အား ပြသကြပါစို့။

1. စတင်ရန်၊ သင်ဖျက်လိုသော စာမျက်နှာပေါ်တွင် ကာဆာထည့်ပါ။
2. "Developer" tab ကိုနှိပ်ပြီး "Visual Basic" ကိုနှိပ်ခြင်းဖြင့် Word တွင် VBA တည်းဖြတ်ခြင်းကိုဖွင့်ပါ။ Ribbon တွင် “Developer” တက်ဘ်ကို မရရှိနိုင်သေးပါက၊ ထိုအစား “Alt+ F11” ကိုနှိပ်ပါ။
3. ဒုတိယအနေနဲ့ "Normal" ကိုနှိပ်ပါ။
4. ထို့နောက် "Insert" ကိုနှိပ်ပြီး ထိုမီနူးရှိ "Module" ကိုရွေးချယ်ပါ။
5. နှစ်ချက်ကလစ်ဖြင့် module အသစ်ကိုဖွင့်ပါ။
6. ပြီးလျှင် အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. နောက်ဆုံးအနေနဲ့ "Run" ခလုတ်ကိုနှိပ်ပါ သို့မဟုတ် "F5" ကိုနှိပ်ပါ။

စာမျက်နှာများစွာကို ဖျက်ပါ။

1. မက်ခရိုကို ထည့်သွင်းပြီး လုပ်ဆောင်ရန် အထက်ဖော်ပြပါ အဆင့်များကို လိုက်နာပါ။
2. မက်ခရိုကို ဤတစ်ခုဖြင့် အစားထိုးပါ-

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

3. မက်ခရိုကို လုပ်ဆောင်ခြင်းသည် အဝင်အကွက်တစ်ခု စတင်လိမ့်မည်။ ဖျက်ပစ်မည့် စာမျက်နှာများ၏ စာမျက်နှာနံပါတ်ကို ထည့်သွင်းပြီး ၎င်းတို့ကို ခွဲခြားရန် ကော်မာကို အသုံးပြုပါ။ ကော်မာပြီးနောက် နေရာလွတ်တစ်ခု မထည့်ပါနှင့်။
4. ထို့နောက် ဆက်လက်ဆောင်ရွက်ရန် "OK" ကိုနှိပ်ပါ။

ဟုတ်ပါတယ်၊ သင်သည် လက်ရှိစာမျက်နှာကိုဖျက်ရန် ဤ macro ကိုသုံးနိုင်သည်။ စာမျက်နှာနံပါတ်ကို ရိုးရှင်းစွာထည့်ပါ။

အကျင့်ပျက်ခြစားမှုကို မရပ်တန့်ပါစေနှင့်

ဒေတာ ဘေးအန္တရာယ်တစ်ခု ကြုံတွေ့ရပါက သင့်နေ့စဉ်လုပ်ငန်းဆောင်တာများကို နှေးကွေးစေမည်မှာ သေချာပြီး အပိုကုန်ကျစရိတ်ကိုလည်း သင်ကျခံရမည်ဖြစ်သည်။ သင့်ဒေတာ လုံခြုံစိတ်ချရစေရန်အတွက် ဆော့ဖ်ဝဲတစ်ခုကို ရယူထားသင့်သည်။ doc ပျက်စီးခြင်း။ ပြုပြင်ရေးကိရိယာ။

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

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