এই নিবন্ধে, আমরা আপনাকে আপনার ওয়ার্ড ডকুমেন্টে একাধিক বুকমার্ক ব্যাচ ডিলিট করার দুটি দ্রুত উপায় প্রদান করতে চাই।
সাধারণত আপনি কোন বাধা ছাড়াই ওয়ার্ড ডকুমেন্টে একটি একক বুকমার্ক যোগ বা মুছে ফেলতে পারেন। যাইহোক, যখন একাধিক বুকমার্কের কথা আসে, আপনি অনুভব করতে পারেন আপনার হাত বাঁধা।
ভাগ্যক্রমে, ওয়ার্ডে একটি শক্তিশালী সরঞ্জাম রয়েছে যা হল ভিবিএ সম্পাদক। অতএব, আমরা আপনাকে একটি নথিতে একাধিক বুকমার্ক অপসারণ করতে সাহায্য করতে ম্যাক্রো ব্যবহার করব।
পদ্ধতি 1: একটি দলিলের সমস্ত বুকমার্ক ব্যাচ মুছে ফেলুন
- সর্বপ্রথম, “Alt+ F11” চেপে Word-এ VBA এডিটরটি চালু করুন।
- বাম "প্রকল্প" প্যানেলে পরবর্তী, "সাধারণ" এ ক্লিক করুন।
- তারপরে "সন্নিবেশ" ট্যাবে ক্লিক করুন এবং এর মেনুতে "মডিউল" নির্বাচন করুন।
- মডিউল খুলতে ডাবল ক্লিক করুন।
- এখন সেখানে নিম্নলিখিত কোডগুলি পেস্ট করুন:
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
- তারপরে "রান" বোতামটি ক্লিক করুন।
- পরবর্তী আপনি একটি জিজ্ঞাসা বাক্স পাবেন। এবং আপনি বর্তমান নথিতে মোট বুকমার্কের সংখ্যা দেখতে পারেন। তাদের সবাইকে মুছে ফেলার জন্য "হ্যাঁ" বা ম্যাক্রো থেকে বেরিয়ে আসার জন্য "না" ক্লিক করুন।
- আপনি যদি "হ্যাঁ" নির্বাচন করেন, তাহলে আপনি নীচের মত একটি বার্তা পাবেন:
পদ্ধতি 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
- ম্যাক্রো চালানোর আগে, আপনি বিভিন্ন বিষয়বস্তুর উপর একটি নির্বাচন করুন।
- এবং কোডগুলি কার্যকর করার প্রক্রিয়াতে, আপনি পদ্ধতি 2 এ দেখানো একই 1 টি বার্তা বাক্স পাবেন।
ফলাফল হল আপনি শুধুমাত্র নির্বাচিত বুকমার্কগুলি সরিয়ে ফেলবেন।
দস্তাবেজ দুর্নীতির জন্য প্রস্তুত হোন
যে কোন সময় যে কারো কাছে ডেটা লস হতে পারে। এবং এর অনির্দেশ্যতা আমাদের দুর্ভাগ্যের দিকে না ছুটে যাওয়ার সুযোগ করে দেয়। বিষয়ে কথা বলছি মেরামতের ডক্স, আপনি কখনই একটি দক্ষ মেরামতের সরঞ্জাম বাছাই মিস করতে পারবেন না।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xls মেরামত এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com