এই নিবন্ধে, আমরা আপনাকে কোনও দস্তাবেজের সমস্ত ক্ষেত্র স্বয়ংক্রিয়ভাবে আপডেট করার উপায়টি আপনাকে বন্ধ করার আগে বিস্তৃত করার দিকে মনোনিবেশ করব।
আমরা এমন ডেটা সংরক্ষণের জন্য ফিল্ড ব্যবহার করি যা পরবর্তীতে পরিবর্তিত হতে পারে। তাই সেগুলিতে কোনো পরিবর্তন আনলে, আমাদের সেই অনুযায়ী ফিল্ডগুলিও আপডেট করতে হয়। এবং দুর্ভাগ্যবশত, বেশিরভাগ সময়ই আমাদের সেগুলি ম্যানুয়ালি আপডেট করতে হয়।
তদ্ব্যতীত, বৃহত্তম সমস্যাটি খুব সহজেই আমরা ক্ষেত্রগুলি আপডেট করতে ভুলে যেতে পারি। এই সমস্যাটি মোকাবেলার জন্য, ডকুমেন্টটি বন্ধ করার আগে আমরা আপনাকে স্বয়ংক্রিয় আপডেট ক্ষেত্রগুলিতে ম্যাক্রো অফার করি।
মুদ্রণের আগে সমস্ত ক্ষেত্র আপডেট করুন
নিম্নলিখিত পদক্ষেপগুলি মুদ্রণের আগে আপনি ক্ষেত্রগুলি আপডেট করার জন্য ওয়ার্ড বিকল্পগুলি পরিবর্তন করতে পারেন:
- প্রথমত, "ফাইল" ট্যাব ক্লিক করুন তারপরে "বিকল্পগুলি"।
- "ওয়ার্ড অপশনগুলি" বক্সের ওপরে, বাম কলামে "প্রদর্শন" ক্লিক করুন।
- ডান বিভাগে, "মুদ্রণের আগে বিকল্পগুলি" বাক্সটি পরীক্ষা করতে "মুদ্রণের বিকল্পগুলি" অংশে যান।
- শেষ পর্যন্ত, "ওকে" ক্লিক করুন।
দস্তাবেজ বন্ধ করার আগে সমস্ত ক্ষেত্রকে স্বয়ংক্রিয়ভাবে আপডেট করুন
- শুরু করতে, "Alt + F11" টিপে ওয়ার্ডে ভিবিএ সম্পাদকটি ট্রিগার করুন।
- পরবর্তী "সাধারণ" প্রকল্পে ক্লিক করুন।
- তারপরে মেনু বারে, "সন্নিবেশ" ক্লিক করুন।
- এবং "ক্লাস মডিউল" নির্বাচন করুন।
- এরপরে মেনু বারে "প্রোপার্টি উইন্ডো" কমান্ডটি ক্লিক করুন বা এটি ট্রিগার করতে "F4" চাপুন।
- বাম-ডাউন কোণে উইন্ডোতে খোলা, সদ্য নির্মিত শ্রেণি মডিউলটির নাম "অবজেক্ট ওয়ার্ল্ড ক্লাস" রাখুন।
- কোডিং অঞ্চলে নিম্নলিখিত কোডগুলি প্রবেশ করান:
Option Explicit
Public WithEvents objWord As Word.Application
Private Sub objWord_DocumentBeforeClose(ByVal objDoc As Document, varCancel As Boolean)
Dim strButtonValue As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
objDoc.Save
strButtonValue = MsgBox("Do you want to update all fields in this document before closing?", _
vbYesNo + vbQuestion)
If strButtonValue = vbYes Then
varCancel = True
If objDoc.Fields.Count > 0 Then
With objDoc
.Fields.Update
.Save
.Close
End With
Else
MsgBox ("There is no field in this document.")
End If
Else
varCancel = False
End If
Application.ScreenUpdating = True
End Sub
- এবং "সংরক্ষণ করুন" বোতামটি ক্লিক করতে ভুলবেন না।
- এখনও "সাধারণ" প্রকল্পের আওতায় আবার "Inোকান" ক্লিক করুন এবং এবার "মডিউল" নির্বাচন করুন।
- পরবর্তী মডিউলটি খুলুন এবং এই কোডগুলি আটকে দিন:
Option Explicit Dim objWordClass As New objWordClass Public Sub AutoOpen() Set objWordClass.objWord = Word.Application End Sub
- একইভাবে, কোডগুলি সংরক্ষণ করুন।
- পরের বার আপনি কোনও দস্তাবেজ সম্পাদনা শেষ করে, এটি সংরক্ষণ করুন। এবং যখন আপনি "ক্লোজ" কমান্ডটি ক্লিক করেন, আপনি জিজ্ঞাসা বাক্সটি পাবেন। সমস্ত ক্ষেত্র আপডেট করতে "হ্যাঁ" এ ক্লিক করুন এবং টাস্কটি শেষ হয়ে গেলে দস্তাবেজটি বন্ধ হয়ে যাবে।
ডেড ডকুমেন্টটি জীবনে ফিরিয়ে আনুন
ওয়ার্ড ব্যবহার করার সময় কিছুটা সমস্যা এখনই অনিবার্যভাবে আসে। সুতরাং, এটি যে কোনও সম্ভাব্যতার জন্য প্রস্তুত থাকার পরামর্শ দেওয়া হচ্ছে ক্ষতিগ্রস্ত ডক। অবশ্যই সর্বোত্তম উপায় হ'ল আগাম কোনও বিশেষ মেরামতের সরঞ্জাম পাওয়া।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল মেরামত এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com