কীভাবে ভিবিএর মাধ্যমে আপনার ওয়ার্ড ডকুমেন্টের একাধিক পৃষ্ঠাগুলি দ্রুত মুছবেন

এই নিবন্ধে, আমরা কীভাবে ভিবিএর মাধ্যমে আপনার ওয়ার্ড ডকুমেন্টের একাধিক পৃষ্ঠাগুলি মুছতে হয় তা আপনাকে প্রদর্শনের দিকে মনোনিবেশ করব।

একটি নথি খসড়া করার সময় সব সময়ই সমন্বয়ের প্রয়োজন হয়। এবং অন্যান্য পরিবর্তনের মতোই এর বিষয়বস্তুর পৃষ্ঠা মুছে ফেলাও ঠিক ততটাই জরুরি। অপ্রয়োজনীয় লেখা মুছে ফেলা সহজ। বেশিরভাগ মানুষ কোনো অংশ নির্বাচন করে তারপর “ডিলিট” বা “ব্যাকস্পেস” চাপলেই কাজটি হয়ে যায়।

এটি অবশ্যই আপনি যা চান তা পাবেন। তবে এটি করার জন্য আরও দ্রুত কাজ রয়েছে। আরও কী, আপনি নির্বাচনের পদক্ষেপটি এড়িয়ে একবারে একাধিক পৃষ্ঠাগুলি মুছুন। আবেদনমূলক দৃষ্টিভঙ্গি একটি ওয়ার্ড ম্যাক্রো চালানো।

বর্তমান পৃষ্ঠা মুছুন

যারা বিভিন্ন পাঠ্যের উপর নির্বাচন করতে ঘৃণা করেন তাদের পক্ষে এটি আপনার আশীর্বাদ হতে পারে। প্রথমে আপনাকে ভিবিএর মাধ্যমে কীভাবে বর্তমান পৃষ্ঠা মুছতে হয় তা দেখান show

1. শুরু করতে, আপনি মুছে ফেলতে চান পৃষ্ঠায় কার্সার রাখুন।
2. "বিকাশকারী" ট্যাব এবং তারপরে "ভিজ্যুয়াল বেসিক" ক্লিক করে ওয়ার্ডে ভিবিএ সম্পাদক খুলুন। যদি "বিকাশকারী" ট্যাবটি এখনও রিবনে উপলব্ধ না হয় তবে তার পরিবর্তে "Alt + F11" টিপুন।
3. দ্বিতীয়ত, "সাধারণ" ক্লিক করুন।
4. তারপরে "sertোকান" ক্লিক করুন এবং সেই মেনুতে "মডিউল" নির্বাচন করুন।
5. ডাবল ক্লিক করে নতুন মডিউলটি খুলুন।
6. এবং সেখানে নিম্নলিখিত কোডগুলি পেস্ট করুন:

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

7. অবশেষে, "রান" বোতামটি ক্লিক করুন বা "এফ 5" টিপুন।

একাধিক পৃষ্ঠা মুছুন

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. তারপরে এগিয়ে যেতে "ঠিক আছে" ক্লিক করুন।

অবশ্যই, আপনি বর্তমান পৃষ্ঠা মুছতে এই ম্যাক্রোটি ব্যবহার করতে পারেন। কেবল পৃষ্ঠা নম্বর লিখুন।

দুর্নীতি আপনাকে থামাতে দেবেন না

একবার ডেটা বিপর্যয় ঘটলে, তা নিশ্চিতভাবেই আপনার দৈনন্দিন কাজের গতি কমিয়ে দেবে এবং আপনাকে এর অতিরিক্ত খরচও বহন করতে হবে। আপনার ডেটা নিরাপদ ও সুরক্ষিত আছে তা নিশ্চিত করতে, আপনার একটি নির্ভরযোগ্য সমাধান খুঁজে নেওয়া উচিত। ডক ক্ষতি মেরামত সরঞ্জাম

লেখকের ভূমিকা:

ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল ঠিক করুন এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com