VBA ব্যবহার করে

Mia Chevalier

বুধবার, ২০ নভেম্বর, ২০২৪ ৯:৫৬:৫৭ PM

মাইক্রোসফ্ট ওয়ার্ডের জন্য ভিবিএ-তে অনুচ্ছেদ ব্যবস্থাপনা আয়ত্ত করা

VBA স্ক্রিপ্টিংয়ের মাধ্যমে মাইক্রোসফ্ট ওয়ার্ডে টেবিলের সাথে কাজ করা একটি জটিল ধাঁধা সমাধানের মতো অনুভব করতে পারে। 📄 আপনার লেখা প্রতিটি ফাংশন আপনাকে সমাধানের কাছাকাছি নিয়ে আসে, কিন্তু কখনও কখনও, ছোট ছোট বাধাগুলি-যেমন একটি একগুঁয়ে অনুচ্ছেদ সরানো-এর ট্র্যাকের অগ্রগতি বন্ধ করতে পারে।

আপনি যখন টেবিলের সারিতে বহু-স্তরের তালিকা আইটেমগুলিকে এলোমেলো করার চেষ্টা করেন তখন এই ধরনের একটি চ্যালেঞ্জ দেখা দেয়। আপনি আইটেমগুলি পুনঃক্রম করতে সফল হতে পারেন তবে সারির শেষে একটি অবাঞ্ছিত, অতিরিক্ত অনুচ্ছেদ দীর্ঘায়িত করতে পারেন। এই সমস্যাটি আপনার টেবিলের ঝরঝরে কাঠামোকে ব্যাহত করতে পারে, আপনাকে উত্তরের জন্য অনুসন্ধান করতে রেখে।

Office 365-এর জন্য একটি স্ক্রিপ্টে কাজ করার সময় আমি এই সঠিক পরিস্থিতির সম্মুখীন হয়েছিলাম। স্ক্রিপ্টটি উদ্দেশ্য হিসাবে কাজ করেছিল যতক্ষণ না শেষ লাইনটি সহযোগিতা করতে অস্বীকার করে, আমি যেভাবেই এটি সরানোর চেষ্টা করি না কেন। অনুচ্ছেদ পাঠ সাফ করা থেকে মুছে ফেলার পদ্ধতি প্রয়োগ করা পর্যন্ত, সমস্যাটি রয়ে গেছে। এটি ঠিক করার জন্য আমার প্রথম প্রচেষ্টাগুলি একটি জেদী কফির দাগ অপসারণের চেষ্টা করার মতো মনে হয়েছিল - নিরর্থক৷ ☕

এই নির্দেশিকাতে, আমি আপনাকে দেখাব কিভাবে কার্যকরভাবে VBA ব্যবহার করে মাইক্রোসফ্ট ওয়ার্ড টেবিলের সারিতে শেষ অনুচ্ছেদটি মুছে ফেলা যায়। সঠিক পদ্ধতির সাথে, এই সাধারণ সমস্যাটি সমাধান করা হবে, আপনার স্ক্রিপ্ট কার্যকরী রেখে এবং আপনার টেবিলটি পুরোপুরি ফর্ম্যাট করা হবে। এর মধ্যে ডুব দেওয়া যাক!

আদেশ	ব্যবহারের উদাহরণ
Range.ListFormat.ListLevelNumber	এটি একটি অনুচ্ছেদের তালিকা স্তর পুনরুদ্ধার করে, স্ক্রিপ্টটিকে বহু-স্তরের তালিকার অংশ হিসাবে বিন্যাসিত অনুচ্ছেদগুলি সনাক্ত করতে দেয়।
curRow.Range.Paragraphs	একটি টেবিলের একটি নির্দিষ্ট সারির মধ্যে সমস্ত অনুচ্ছেদ অ্যাক্সেস করুন। সারি সারি বিষয়বস্তু উপর পুনরাবৃত্তির জন্য দরকারী.
ReDim	গতিশীলভাবে একটি অ্যারের আকার পরিবর্তন করতে ব্যবহৃত হয়। এই স্ক্রিপ্টে, এটি অ্যারেকে সংগৃহীত তালিকা আইটেমগুলির সংখ্যার সাথে মেলানোর অনুমতি দেয়।
Randomize	এলোমেলো সংখ্যার বিভিন্ন ক্রম তৈরি করতে র্যান্ডম সংখ্যা জেনারেটর শুরু করে, প্রতিবার এলোমেলো আউটপুটগুলি পরিবর্তিত হয় তা নিশ্চিত করে।
Int((upper - lower + 1) * Rnd + lower)	একটি নির্দিষ্ট পরিসরে র্যান্ডম পূর্ণসংখ্যা তৈরি করার জন্য একটি সূত্র। এটি এলোমেলোভাবে তালিকা আইটেমগুলি এলোমেলো করতে ব্যবহৃত হয়।
curRow.Range.InsertAfter	একটি টেবিলের সারিতে বর্তমান পরিসরের পরে সরাসরি পাঠ্য বা বিষয়বস্তু সন্নিবেশ করায়, এলোমেলো তালিকা আইটেমগুলির পুনরায় সংযোজন সক্ষম করে৷
para.Range.Delete	নির্দিষ্ট পরিসর বস্তু মুছে দেয়, যা এই স্ক্রিপ্টে সারি থেকে শেষ অনুচ্ছেদ অপসারণ নিশ্চিত করে।
MsgBox	প্রতিক্রিয়া প্রদান বা ব্যবহারকারীকে অনুরোধ জানাতে একটি বার্তা বাক্স প্রদর্শন করে। এখানে, এটি ব্যবহারকারীকে কার্সার সঠিকভাবে অবস্থান করার জন্য সতর্ক করে।
Selection.Tables.Count	বর্তমান নির্বাচনে টেবিলের সংখ্যা গণনা করে। ব্যবহারকারীর কার্সার টেবিলের ভিতরে আছে কিনা তা যাচাই করতে ব্যবহৃত হয়।
Set tbl = Selection.Tables(1)	বর্তমান নির্বাচনের প্রথম টেবিলটি পরিবর্তনশীল tbl-এ বরাদ্দ করে, সেই টেবিলের আরও হেরফের করার অনুমতি দেয়।

প্রক্রিয়াটি আনপ্যাক করা: শব্দ টেবিল সারি পরিচালনার জন্য VBA

VBA স্ক্রিপ্টগুলি মাইক্রোসফ্ট ওয়ার্ডে টেবিল পরিচালনার ক্ষেত্রে একটি সাধারণ সমস্যা মোকাবেলা করে: কীভাবে একগুঁয়ে অপসারণ করা যায় শেষ অনুচ্ছেদ লেভেল 2 মাল্টি-লিস্ট আইটেম রিসাফলিং করার সময় এক সারিতে। মূল যুক্তি একটি টেবিলের সারির মধ্যে অনুচ্ছেদের মাধ্যমে পুনরাবৃত্তি করা, সঠিক তালিকা স্তরে অনুচ্ছেদগুলিকে চিহ্নিত করা এবং মুছে ফেলা, পুনর্গঠন এবং পুনঃপ্রবেশের মতো ক্রিয়াকলাপগুলিকে ঘিরে। স্ক্রিপ্টটি ব্যবহারকারীর কার্সার একটি টেবিলের ভিতরে রয়েছে তা নিশ্চিত করে এবং ম্যানিপুলেশনের জন্য লক্ষ্য টেবিল এবং সারি শুরু করে শুরু হয়। এই পদক্ষেপটি স্ক্রিপ্টটি যে প্রেক্ষাপটে কাজ করে তা যাচাই করে ত্রুটিগুলি এড়ায়। 📄

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

সংগৃহীত তালিকা আইটেমগুলির ক্রম এলোমেলো করার জন্য, স্ক্রিপ্টটি এর সংমিশ্রণকে নিয়োগ করে এলোমেলো করুন বিবৃতি এবং এলোমেলো সূচক তৈরি করার জন্য একটি কাস্টম সূত্র। এটি তালিকার আইটেমগুলিকে গতিশীলভাবে এলোমেলো করার অনুমতি দেয়, প্রতিটি এক্সিকিউশন অনন্য ফলাফল দেয় তা নিশ্চিত করে। একবার এলোমেলো হয়ে গেলে, আইটেমগুলি ব্যবহার করে টেবিলের সারিতে পুনরায় প্রবেশ করানো হয় curRow.Range.InsertAfter. এই ফাংশনটি সারিতে বিষয়বস্তু যুক্ত করে, এটি প্রদর্শন করে যে কীভাবে ভিবিএ সরাসরি নথির কাঠামো ম্যানিপুলেট করতে ব্যবহার করা যেতে পারে। কল্পনা করুন যে আপনি একটি প্রতিবেদনের মধ্যে একটি করণীয় তালিকা পুনর্গঠন করছেন—এটি দ্রুত এবং কার্যকর! 🎲

চূড়ান্ত ধাপটি অবিচ্ছিন্ন শেষ অনুচ্ছেদের সমস্যাটির সমাধান করে। বিশেষভাবে শেষ অনুচ্ছেদ লক্ষ্য করে curRow.Range.Paragraphs, স্ক্রিপ্ট এটি অ্যাক্সেস করে এবং মুছে দেয়, নিশ্চিত করে যে টেবিলের সারিতে কোন অপ্রয়োজনীয় খালি জায়গা থাকবে না। এই সমাধানটি অবশিষ্ট ডেটা নিয়ে কাজ করার বাস্তব-বিশ্বের হতাশাকে প্রতিফলিত করে যা একটি পালিশ নথি বিন্যাসকে ব্যাহত করে। উদাহরণস্বরূপ, আপনি যদি একটি পেশাদার প্রতিবেদন বা টেমপ্লেট তৈরি করেন, তাহলে এই অতিরিক্ত অনুচ্ছেদগুলি অপ্রফেশনাল দেখাতে পারে। স্ক্রিপ্টটি নিশ্চিত করে যে ফলাফলটি পরিষ্কার এবং উপস্থাপনযোগ্য, এই ধরনের সূক্ষ্ম ফর্ম্যাটিং চ্যালেঞ্জগুলিকে নির্বিঘ্নে পরিচালনা করার জন্য VBA এর শক্তিকে হাইলাইট করে।

মাইক্রোসফ্ট ওয়ার্ড ভিবিএ-তে অতিরিক্ত অনুচ্ছেদ অপসারণ পরিচালনা করা

এই সমাধানটি কার্যকরভাবে একটি টেবিলের সারিতে শেষ অনুচ্ছেদটি পরিচালনা এবং সরানোর জন্য একটি VBA পদ্ধতির প্রদর্শন করে।

Sub RemoveLastParagraph()
    Dim tbl As Table
    Dim curRow As Row
    Dim para As Paragraph
    ' Ensure the cursor is inside a table
    If Not Selection Is Nothing And Selection.Tables.Count > 0 Then
        Set tbl = Selection.Tables(1)
        Set curRow = Selection.Rows(1)
    Else
        MsgBox "Please place the cursor inside a table."
        Exit Sub
    End If
    ' Get the last paragraph in the current row
    Set para = curRow.Range.Paragraphs(curRow.Range.Paragraphs.Count)
    ' Remove the last paragraph's text and paragraph itself
    para.Range.Text = ""
    para.Range.Delete
End Sub

একটি টেবিল সারিতে তালিকা আইটেমগুলিকে এলোমেলো করা এবং পুনরায় সন্নিবেশ করানো৷

এই সমাধানটি লেভেল-2 তালিকা আইটেমগুলিকে শাফেল এবং পুনরায় সন্নিবেশ করার কার্যকারিতা যোগ করে, শেষ অনুচ্ছেদের সঠিক ব্যবস্থাপনা নিশ্চিত করে।

Sub ShuffleAndRemoveLastParagraph()
    Dim tbl As Table
    Dim curRow As Row
    Dim para As Paragraph
    Dim paras() As String
    Dim cnt As Integer, i As Integer, j As Integer
    Dim temp As String
    ' Ensure the cursor is inside a table
    If Not Selection Is Nothing And Selection.Tables.Count > 0 Then
        Set tbl = Selection.Tables(1)
        Set curRow = Selection.Rows(1)
    Else
        MsgBox "Please place the cursor inside a table."
        Exit Sub
    End If
    ' Collect level-2 list items
    cnt = 0
    For Each para In curRow.Range.Paragraphs
        If para.Range.ListFormat.ListLevelNumber = 2 Then
            cnt = cnt + 1
        End If
    Next para
    ReDim paras(1 To cnt)
    cnt = 0
    For Each para In curRow.Range.Paragraphs
        If para.Range.ListFormat.ListLevelNumber = 2 Then
            cnt = cnt + 1
            paras(cnt) = para.Range.Text
            para.Range.Text = ""
        End If
    Next para
    ' Shuffle items
    Randomize
    For i = 1 To cnt - 1
        j = Int((cnt - i + 1) * Rnd + i)
        temp = paras(i)
        paras(i) = paras(j)
        paras(j) = temp
    Next i
    ' Reinsert shuffled items
    For i = 1 To cnt
        curRow.Range.InsertAfter paras(i)
    Next i
    ' Remove the last paragraph
    Set para = curRow.Range.Paragraphs(curRow.Range.Paragraphs.Count)
    para.Range.Text = ""
    para.Range.Delete
End Sub

শেষ অনুচ্ছেদ অপসারণের জন্য ইউনিট পরীক্ষা

এই পরীক্ষাটি প্রমাণ করে যে স্ক্রিপ্ট সম্পাদনের পরে শেষ অনুচ্ছেদটি সফলভাবে মুছে ফেলা হয়েছে।

Sub TestRemoveLastParagraph()
    Dim tbl As Table
    Dim curRow As Row
    Dim para As Paragraph
    ' Test setup: Add a table with sample data
    Set tbl = ActiveDocument.Tables.Add(Selection.Range, 2, 2)
    tbl.Cell(1, 1).Range.Text = "Item 1"
    tbl.Cell(1, 2).Range.Text = "Item 2"
    tbl.Cell(2, 1).Range.Text = "Last Paragraph"
    ' Run the removal function
    Set curRow = tbl.Rows(2)
    Call RemoveLastParagraph
    ' Validate result
    If curRow.Range.Paragraphs.Count = 0 Then
        MsgBox "Test Passed!"
    Else
        MsgBox "Test Failed!"
    End If
End Sub

গভীর ডুব: শব্দ VBA টেবিলে অনুচ্ছেদ পরিচালনা

মাইক্রোসফ্ট ওয়ার্ড VBA এর সাথে কাজ করার একটি প্রায়শই উপেক্ষিত দিক হল টেবিলের মধ্যে অনুচ্ছেদ রেঞ্জের ভূমিকা বোঝা। আপনি যখন টেবিলের সারিতে কন্টেন্ট যোগ করেন বা এলোমেলো করেন, অনুচ্ছেদগুলি কীভাবে ইন্টারঅ্যাক্ট করে তা পরিচালনা করা কঠিন হতে পারে। উদাহরণস্বরূপ, যদি একটি অনুচ্ছেদ একটি তালিকার অংশ হয়, তবে এটি মেটাডেটা বহন করে যেমন তালিকার স্তর, সংখ্যাকরণ এবং বিন্যাস। সুবিধার দ্বারা বৈশিষ্ট্য মত তালিকা লেভেল নম্বর, আপনি প্রক্রিয়াকরণের জন্য নির্দিষ্ট উপাদানগুলিকে আলাদা করতে পারেন, যেমনটি আমরা লেভেল-2 তালিকা আইটেমগুলির সাথে দেখেছি। এই দানাদার নিয়ন্ত্রণগুলি VBA বিকাশকারীদেরকে সুনির্দিষ্ট বিন্যাসকরণের প্রয়োজন অনুসারে গতিশীল এবং প্রতিক্রিয়াশীল স্ক্রিপ্ট তৈরি করতে সক্ষম করে। 📋

আরেকটি গুরুত্বপূর্ণ বৈশিষ্ট্য হল একটি সারির পরিসর এবং এর স্বতন্ত্র অনুচ্ছেদের মধ্যে পার্থক্য। পরিসরটি সারির মধ্যে সমস্ত বিষয়বস্তুকে কভার করে, কিন্তু অনুচ্ছেদগুলি এটিকে পরিচালনাযোগ্য বিভাগে বিভক্ত করে। বিষয়বস্তু পরিবর্তন করার সময় এটি অত্যাবশ্যক হয়ে ওঠে কারণ অনুচ্ছেদগুলি বিবেচনা না করে পরিসরটি সম্বোধন করলে অনাকাঙ্ক্ষিত পরিবর্তন হতে পারে। বিকাশকারীরা প্রায়শই ব্যবহার করে curRow.Range.Paragraphs অনুচ্ছেদের মাধ্যমে পুনরাবৃত্তি করতে এবং সারির সম্পর্কহীন অংশগুলিকে প্রভাবিত না করে সুনির্দিষ্ট সম্পাদনা করতে। এটি পেশাদার প্রতিবেদন বা টেমপ্লেটে ধারাবাহিক নথি বিন্যাস বজায় রাখার জন্য বিশেষভাবে কার্যকর।

সবশেষে, খালি অনুচ্ছেদের মতো এজ কেস পরিচালনার জন্য সতর্ক মনোযোগ প্রয়োজন। ভিবিএ-তে, কমান্ড যেমন প্যারা।রেঞ্জ।মুছুন ভুল প্রয়োগ করা হলে কখনও কখনও ব্যর্থ হতে পারে, ফাঁকা কাঠামো রেখে। একটি ব্যবহারিক সমাধানের মধ্যে রয়েছে মোছার আগে অনুচ্ছেদের পাঠ্যটি পরিষ্কার করা, নিশ্চিত করা যে কোনও অবশিষ্ট ডেটা নথির প্রবাহকে ব্যাহত না করে। উদাহরণস্বরূপ, একটি এলোমেলো টাস্ক তালিকায়, শেষ সারিটি পরিষ্কার এবং পেশাদার থাকা নিশ্চিত করা একটি পালিশ করা চূড়ান্ত পণ্য সরবরাহ করার জন্য অত্যন্ত গুরুত্বপূর্ণ। এই ছোট কিন্তু তাৎপর্যপূর্ণ সমন্বয় ডকুমেন্ট অটোমেশনের জন্য VBA এর বহুমুখিতাকে তুলে ধরে। ✨

VBA-তে ওয়ার্ড টেবিল সারি পরিচালনা সম্পর্কে প্রয়োজনীয় প্রায়শই জিজ্ঞাসিত প্রশ্নাবলী

কিভাবে আমি একটি টেবিল সারিতে নির্দিষ্ট অনুচ্ছেদ সনাক্ত করতে পারি?
ব্যবহার করুন curRow.Range.Paragraphs একটি সারির মধ্যে সমস্ত অনুচ্ছেদ অ্যাক্সেস করতে। সঙ্গে এই একত্রিত ListFormat.ListLevelNumber নির্দিষ্ট তালিকা স্তর লক্ষ্য করতে.
তালিকা আইটেম এলোমেলো করার সেরা উপায় কি?
তালিকার আইটেমগুলিকে একটি অ্যারেতে সংরক্ষণ করুন, একটি এলোমেলো সূচক সূত্র দিয়ে এগুলিকে এলোমেলো করুন এবং ব্যবহার করে সেগুলি পুনরায় প্রবেশ করান curRow.Range.InsertAfter.
কেন করে para.Range.Delete কখনও কখনও ব্যর্থ?
অনুচ্ছেদটি খালি না থাকলে এই কমান্ডটি অবশিষ্ট কাঠামো ছেড়ে যেতে পারে। দিয়ে টেক্সট ক্লিয়ার করুন para.Range.Text = "" প্রথম সম্পূর্ণ মুছে ফেলা নিশ্চিত করতে.
আমি কিভাবে নিশ্চিত করব যে আমার স্ক্রিপ্ট শুধুমাত্র একটি টেবিলের ভিতরে কাজ করে?
সঙ্গে চেক করুন Selection.Tables.Count সারি-নির্দিষ্ট কমান্ড কার্যকর করার আগে কার্সারটি একটি টেবিলে রয়েছে তা নিশ্চিত করুন।
আমি কি অন্যান্য সারি বিষয়বস্তুর ধরনগুলিকে ম্যানিপুলেট করতে পারি?
হ্যাঁ, ব্যবহার করুন curRow.Range সাধারণ বিষয়বস্তু পরিবর্তনের জন্য বা বুকমার্ক এবং ক্ষেত্রগুলির মতো নির্দিষ্ট উপাদানগুলি অ্যাক্সেস করার জন্য।

স্ট্রীমলাইনিং ওয়ার্ড টেবিল ম্যানেজমেন্টের চূড়ান্ত চিন্তা

VBA এর সাহায্যে ওয়ার্ড টেবিলে অনুচ্ছেদ এবং তালিকা আইটেমগুলি কীভাবে পরিচালনা করা যায় তা বোঝা ফরম্যাটিং কাজগুলি স্বয়ংক্রিয় করার জন্য একটি গেম-চেঞ্জার। অপসারণ থেকে শেষ অনুচ্ছেদ তালিকার স্তরগুলি পরিচালনা করতে, এই সমাধানগুলি কার্যকারিতা এবং উপস্থাপনা উভয়ই উন্নত করে। 🚀

আপনি পেশাদার নথি তৈরি করছেন বা পুনরাবৃত্তিমূলক সম্পাদনাগুলি সরলীকরণ করছেন, এই কৌশলগুলি একটি পরিষ্কার, পুনরায় ব্যবহারযোগ্য পদ্ধতি প্রদান করে। VBA-এর সরঞ্জাম এবং বৈশিষ্ট্যগুলির সাবধানে ব্যবহারের সাথে, আপনি প্রতিবার পালিশ, ত্রুটি-মুক্ত ফলাফল তৈরি করতে স্ক্রিপ্টগুলি কাস্টমাইজ করতে পারেন। ✍️

VBA টেবিল ম্যানেজমেন্টের জন্য উত্স এবং রেফারেন্স

বিষয়বস্তু এবং উদাহরণ অফিসিয়াল Microsoft Word VBA ডকুমেন্টেশন দ্বারা অনুপ্রাণিত হয়েছে। এ আরও জানুন Microsoft Word VBA রেফারেন্স .
অনুচ্ছেদ ম্যানিপুলেশন সম্পর্কে অতিরিক্ত অন্তর্দৃষ্টি সম্প্রদায় ফোরাম থেকে আঁকা হয়েছে. এ আলোচনা দেখুন স্ট্যাক ওভারফ্লো - শব্দ VBA .
টেবিল অটোমেশন এবং VBA স্ক্রিপ্টিংয়ের জন্য সর্বোত্তম অনুশীলনগুলি এখানে উপলব্ধ প্রোগ্রামিং টিউটোরিয়াল থেকে উল্লেখ করা হয়েছে ভিবিএ এক্সপ্রেস .

VBA ব্যবহার করে মাইক্রোসফ্ট ওয়ার্ড টেবিল সারিতে শেষ অনুচ্ছেদটি কীভাবে সরানো যায়