কীভাবে ব্যাচ করবেন আপনার ওয়ার্ড ডকুমেন্ট থেকে সমস্ত বুকমার্ক এক্সট্রাক্ট করুন

আজকের নিবন্ধে, আমরা আপনার শব্দ নথি থেকে সমস্ত বুকমার্কগুলি একবারে দেখার জন্য ব্যাচের পদক্ষেপগুলি আপনাকে ভাগ করে নিতে চাই।

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

সর্বদা মত, আমাদের মিশনটি আপনাকে পৌরাণিক কাহিনীটির মধ্য দিয়ে নিয়ে যাওয়া এবং সমস্ত বুকমার্কের পাশাপাশি তাদের পাঠ্যগুলি একটি নতুন ফাঁকা ডকুমেন্টে রফতানি করার ম্যাক্রো উপায় সরবরাহ করা।

ব্যাচ একটি একক দস্তাবেজ থেকে সমস্ত বুকমার্ক নিষ্কাশন করুন

1. শুরু করার জন্য, কাঙ্ক্ষিত ডকুমেন্টটি খুলুন এবং VBA এডিটর চালু করতে “Alt+ F11” চাপুন।
2. এরপরে "সাধারণ" এবং তারপরে "sertোকান" ক্লিক করুন।
3. এবং "সাধারণ" প্রকল্পের আওতায় একটি নতুন তৈরি করতে "মডিউল" নির্বাচন করুন।
4. তারপরে সম্পাদনার স্থানটি বের করতে ডাবল ক্লিক করুন।
5. নিম্নলিখিত ম্যাক্রোটি এখানে আটকে দিন:

Sub ExtractBookmarksInADoc()
  Dim objBookmark As Bookmark
  Dim objTable As Table
  Dim nRow As Integer
  Dim objDoc As Document, objNewDoc As Document
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
 
  If objDoc.Bookmarks.Count = 0 Then
    MsgBox ("There is no bookmark in this document.")
  Else
    Set objNewDoc = Documents.Add
 
    Selection.TypeText Text:="Bookmarks in " & "'" & objDoc.Name & "'"
 
    Set objTable = Selection.Tables.Add(Range:=Selection.Range, numrows:=1, numcolumns:=3)
    objTable.Borders.Enable = True
    nRow = 1
 
    For Each objParagraph In objNewDoc.Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        objParagraph.Range.Delete
      End If
    Next objParagraph
 
    With objTable
      .Cell(1, 1).Range.Text = "Name"
      .Cell(1, 2).Range.Text = "Texts"
      .Cell(1, 3).Range.Text = "Page Number"
 
      For Each objBookmark In objDoc.Bookmarks
        objTable.Rows.Add
        nRow = nRow + 1
        .Cell(nRow, 1).Range.Text = objBookmark.Name
        .Cell(nRow, 2).Range.Text = objBookmark.Range.Text
        .Cell(nRow, 3).Range.Text = objBookmark.Range.Information(wdActiveEndAdjustedPageNumber)
        objDoc.Hyperlinks.Add Anchor:=.Cell(nRow, 3).Range, Address:=objDoc.Name, _
          SubAddress:=objBookmark.Name, TextToDisplay:=.Cell(nRow, 3).Range.Text
      Next objBookmark
    End With
  End If
  objNewDoc.SaveAs2 FileName:=objDoc.Path & "\" & "Bookmarks in " & objDoc.Name
End Sub

6. সর্বশেষে তবে সর্বনিম্ন নয়, "রান" ক্লিক করুন।

বর্তমান নথির সমস্ত বুকমার্কগুলি মূল ফাইলের মতো একই ডিরেক্টরিতে সংরক্ষণ করা নতুন নথিতে একটি টেবিলের মধ্যে রাখা হবে।

আপনি নতুন দস্তাবেজে 3 টি কলামের সারণি দেখতে পারেন। এবং আপনি যদি "Ctrl + ক্লিক" অনুসরণ করেন তবে এটি আপনাকে মূল নথিতে বুকমার্কে নিয়ে আসবে।

একাধিক ডকুমেন্টস থেকে ব্যাচ এক্সট্রাক্ট বুকমার্কগুলি

ম্যাক্রো ইনস্টল করতে এবং চালাতে উপরের একই পদক্ষেপগুলি অনুসরণ করুন। কেবলমাত্র এবারই আপনি কোডগুলি বেলিংয়ের সাথে প্রতিস্থাপন করুন:

Sub ExtractBookmarksInMultiDoc()
  Dim objBookmark As Bookmark
  Dim objTable As Table
  Dim nRow As Integer
  Dim objDoc As Document, objNewDoc As Document
  Dim objParagraph As Paragraph
  Dim strFolder As String, strFile As String
 
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
    Set objNewDoc = Documents.Add
 
    Selection.TypeText Text:="Bookmarks in " & "'" & objDoc.Name & "'"
 
    Set objTable = Selection.Tables.Add(Range:=Selection.Range, numrows:=1, numcolumns:=3)
    objTable.Borders.Enable = True
    nRow = 1
 
    For Each objParagraph In objNewDoc.Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        objParagraph.Range.Delete
      End If
    Next objParagraph
 
    With objTable
      .Cell(1, 1).Range.Text = "Name"
      .Cell(1, 2).Range.Text = "Texts"
      .Cell(1, 3).Range.Text = "Page Number"
 
      For Each objBookmark In objDoc.Bookmarks
        objTable.Rows.Add
        nRow = nRow + 1
        .Cell(nRow, 1).Range.Text = objBookmark.Name
        .Cell(nRow, 2).Range.Text = objBookmark.Range.Text
        .Cell(nRow, 3).Range.Text = objBookmark.Range.Information(wdActiveEndAdjustedPageNumber)
        objDoc.Hyperlinks.Add Anchor:=.Cell(nRow, 3).Range, Address:=objDoc.Name, _
          SubAddress:=objBookmark.Name, TextToDisplay:=.Cell(nRow, 3).Range.Text
      Next objBookmark
    End With
    objNewDoc.SaveAs2 FileName:=objDoc.Path & "\" & "Bookmarks in " & objDoc.Name
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

আপনি একবার ম্যাক্রো চালানোর পরে একটি ইনপুট বাক্স আসবে। আপনি সমস্ত দস্তাবেজ যেখানে স্টোর করেন সেই ফোল্ডারের পাথ প্রবেশ করুন। এবং মনে রাখবেন পথের শেষে "\" যুক্ত করুন আপনি যদি কেবল এটি ফোল্ডার পাঠ্য বাক্স থেকে অনুলিপি করেন। তারপরে "ওকে" ক্লিক করুন।

কীভাবে ডেটা বিপর্যয় থেকে নিজেকে দ্রুত উদ্ধার করবেন

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

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

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