2 သင့် Word Document တွင် Bookmarks များစွာကို တွဲဖျက်ရန် အမြန်နည်းလမ်း XNUMX ခု

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

ပုံမှန်အားဖြင့် သင်သည် Word document တွင် စာညှပ်တစ်ခုတည်းကို အတားအဆီးမရှိဘဲ ထည့်နိုင်သည် သို့မဟုတ် ဖျက်နိုင်သည်။ သို့သော်၊ စာညှပ်အများအပြားနှင့် ပတ်သက်လာလျှင် သင့်လက်များကို ချည်နှောင်ထားသည်ဟု ခံစားရပေမည်။

ကံကောင်းထောက်မစွာ၊ VBA တည်းဖြတ်သူဖြစ်သည့် Word တွင် အစွမ်းထက်သောကိရိယာတစ်ခုရှိသည်။ ထို့ကြောင့်၊ စာရွက်စာတမ်းတစ်ခုရှိ bookmarks အများအပြားကို သင့်အား အစုလိုက်ဖယ်ရှားရာတွင် ကူညီရန် ကျွန်ုပ်တို့သည် မက်ခရိုကို အသုံးပြုပါမည်။

နည်းလမ်း 1- စာရွက်စာတမ်းတစ်ခုရှိ Bookmarks အားလုံးကို အစုလိုက် ဖျက်ပါ။

1. အရင်ဆုံး Word မှာ “Alt+ F11” ကိုနှိပ်ပြီး VBA editor ကိုခေါ်ပါ။
2. ဘယ်ဘက် “Project” panel မှ နောက်တစ်ခု၊ “Normal” ကိုနှိပ်ပါ။
3. ထို့နောက် "Insert" tab ကိုနှိပ်ပြီး၎င်း၏မီနူးရှိ "Module" ကိုရွေးချယ်ပါ။
4. မော်ဂျူးကိုဖွင့်ရန် နှစ်ချက်နှိပ်ပါ။
5. ယခု အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. ထို့နောက် "Run" ခလုတ်ကိုနှိပ်ပါ။
7. နောက်တစ်ခု မေးပုံးတစ်ခုရလာမယ်။ ထို့အပြင် လက်ရှိစာရွက်စာတမ်းရှိ စာညှပ်အရေအတွက် စုစုပေါင်းကို သင်တွေ့နိုင်သည်။ ၎င်းတို့အားလုံးကိုဖျက်ရန် "Yes" ကိုနှိပ်ပါ သို့မဟုတ် macro မှထွက်ရန် "No" ကိုနှိပ်ပါ။
8. "Yes" ကိုရွေးချယ်ပါက အောက်ပါကဲ့သို့ မက်ဆေ့ချ်ကို လက်ခံရရှိမည်ဖြစ်ပါသည်။

နည်းလမ်း 2- ရွေးချယ်မှုတစ်ခုရှိ Bookmarks အားလုံးကို အစုလိုက် ဖျက်ပါ။

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

1. စတင်ရန်အတွက်၊ macro တစ်ခုကို install လုပ်ပြီး run ရန် အထက်ပါအဆင့်များကို ပြန်လုပ်ပါ။
2. ဤအရာဖြင့် မက်ခရိုကို အစားထိုးရန် မမေ့ပါနှင့်။

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. မက်ခရိုကို မလည်ပတ်မီ၊ အကြောင်းအရာများစွာကို ရွေးချယ်မှုတစ်ခု ပြုလုပ်ရမည်။
4. ကုဒ်များကို လုပ်ဆောင်သည့် လုပ်ငန်းစဉ်တွင်၊ နည်းလမ်း 2 တွင် ပြသထားသည့် တူညီသော မက်ဆေ့ခ်ျဘောက်စ် 1 ခုကို သင်ရရှိမည်ဖြစ်သည်။

ရလဒ်မှာ သင်သည် ရွေးချယ်မှုတွင် စာညှပ်များသာ ဖယ်ရှားခံရမည်ဖြစ်သည်။

Document Corruption အတွက် ပြင်ဆင်ပါ။

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

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

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