এই নিবন্ধে, আমরা আপনাকে ওয়ার্ডে 3 বিভিন্ন ধরণের অনুস্মারক দিয়ে আপনাকে পরিচয় করিয়ে দিতে চাই যা আপনি ভিবিএর মাধ্যমে তৈরি করতে পারেন।
যেহেতু আমাদের কারও কারও প্রতিদিনের ভিত্তিতে ওয়ার্ডে প্রচুর ফাইল মোকাবেলা করতে হয়, তাই আমরা কী করব তা নিয়ে ঝিমঝিম হয়ে যায় এবং কিছু কাজ কখনও কখনও পূর্বাবস্থায় ফিরে যায় না। সেক্ষেত্রে একটি অনুস্মারক সহায়ক হবে। অতএব, আমরা আপনাকে 3 ধরণের সহজ অনুস্মারক উপস্থাপন করি যা আপনি কী করবেন তা ট্র্যাক রাখতে ব্যবহার করতে পারেন।
প্রথম ধরনের: দৈনিক অনুস্মারক
উদাহরণস্বরূপ, আপনি যদি আজকের শেষে আগামীকালের পরিকল্পনা করতে পছন্দ করেন, তাহলে আপনার একটি দৈনিক রিমাইন্ডার প্রয়োজন হবে। Word VBA এডিটরে, আপনি “AutoExec” নামে একটি ম্যাক্রো যোগ করতে পারেন। এরপর প্রতিবার আপনি Word অ্যাপ্লিকেশনটি খোলার সাথে সাথে, ম্যাক্রোটি স্বয়ংক্রিয়ভাবে চলতে শুরু করবে এবং একটি মেসেজ বক্স পপ-আপ করবে, যেখানে সেই দিনে শেষ করার জন্য সমস্ত কাজ উল্লেখ করা থাকবে।
- প্রথমত, ওয়ার্ড খুলুন এবং ভিবিএ সম্পাদক খোলার জন্য "Alt + F11" টিপুন।
- তারপরে “সাধারণ” ক্লিক করুন।
- পরবর্তী "সন্নিবেশ" ক্লিক করুন।
- এবং "সাধারণ" প্রকল্পের আওতায় একটি নতুন সন্নিবেশ করতে মেনুতে "মডিউল" নির্বাচন করুন।
- সম্পাদনার ক্ষেত্রটি প্রবেশ করতে মডিউলটিতে ডাবল ক্লিক করুন এবং নীচের কোডগুলিকে সেখানে পেস্ট করুন:
Sub AutoExec()
Dim dtDate As Date
dtDate = #2/20/2017#
If Date = dtDate Then
MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
End If
End Sub
- পরবর্তী পরিবর্তনটি সংরক্ষণ করতে "সংরক্ষণ করুন সাধারণ" ক্লিক করুন।
ফলস্বরূপ, প্রতিবার আপনি শব্দটি খোলার সময় সেখানে একটি বার্তা বাক্স থাকবে যা আপনার প্রয়োজনীয় সমস্ত কাজগুলির তালিকা করে। "ওকে" ক্লিক করে আপনি একটি নির্দিষ্ট নথিতে সম্পাদনা খুলতে এবং চালিয়ে যেতে পারেন।
নোট:
- কোড লাইনে “তারিখ = # 2/20/2017 #”, তারিখটি সেই দিনটি যখন আপনাকে সমস্ত ক্রিয়া সম্পাদন করতে হয়। সেই অনুযায়ী পরিবর্তন মনে রাখবেন।
- কোড লাইনে “এমএসজিবক্স “আজ করণীয় কর্ম:” এবং ভিবিসিআর এবং "১: জন স্মিথকে ফাইল এক্সএক্স প্রেরণ করুন" এবং "ভিবিসিআর" এবং "1: ফাইলটি ওয়াইওয়াই শেষ করুন"", উদ্ধৃতি চিহ্নগুলির মধ্যে থাকা সমস্ত বিষয়বস্তু আপনাকে অনুসরণ করতে হবে এমন টাস্ক তালিকা। এটি আপনার নিজস্ব কংক্রিট মিশনগুলির সাথে প্রতিস্থাপন করুন। আপনার প্রতিটি তালিকা আইটেমটি উদ্ধৃতি চিহ্নের ভিতরে রাখা উচিত এবং "& ভিবিসিআর এবং”(কোন উদ্ধৃতি চিহ্ন)।
দ্বিতীয় প্রকার: পুনরাবৃত্ত কার্যগুলির জন্য অনুস্মারক
সাপ্তাহিক অনুস্মারক
এখানে প্রতি সপ্তাহে একই দিনে আপনাকে যা করতে হবে তা সূচিত করে সাপ্তাহিক অনুস্মারকটি আসবে।
- প্রথমত, উপরে প্রথম 4 টি ধাপ পুনরাবৃত্তি করুন।
- শুধুমাত্র এই সময়, আপনি বেলিং ম্যাক্রো পেস্ট করুন:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- একইভাবে, সর্বশেষে "সংরক্ষণ করুন সাধারণ" বোতামটি ক্লিক করুন।
তেমনি, একটি বার্তা বাক্স থাকবে। ওয়ার্ডে লেখার জন্য "ওকে" ক্লিক করুন।
নোট:
কোড লাইনে “dtWeekDay = ভিবি সোমবার", তুমি বদলাতে পারো "vb সোমবার"থেকে"vbT মঙ্গলবার","vbWed বুধবার","বৃহস্পতিবার","ভিবিফ্রিদায়","ভিবিস্যাটারডে", বা"vb রবিবার”অনুসারে।
মাসিক অনুস্মারক
একইভাবে, সেখানে মাসিক অনুস্মারক রয়েছে, আপনাকে মাসিক কার্যের স্মরণ করিয়ে দেয়।
- তবুও "প্রথম ধরনের: দৈনিক অনুস্মারক" -এ প্রথম 4 টি পদক্ষেপ নিন।
- তারপরে সেখানে কোডগুলি পেস্ট করুন:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- সর্বশেষে তবে সর্বনিম্ন নয়, "সাধারণ সংরক্ষণ করুন" এ ক্লিক করুন।
একইভাবে, প্রতিবার আপনি শব্দ খোলার সময় একটি বার্তা বাক্স পপ আপ হবে।
বিঃদ্রঃ:
কোড লাইনে “dtDay = 20”, সংখ্যাটি যখন তারিখটি আপনাকে মাসিক কার্য সম্পাদন করার প্রয়োজন হয় is ম্যাক্রো চালানোর আগে এটি পরিবর্তন করতে ভুলবেন না।
তৃতীয় প্রকার: তারিখ বা সময় পার্থক্যের জন্য অনুস্মারক
যেহেতু প্রায় সবকিছুরই একটি নির্দিষ্ট সময়সীমা থাকে, তাই হাতে থাকা সঠিক দিন বা সময় মনে রাখা প্রয়োজন। এজন্য, আসন্ন দুটি ম্যাক্রো বর্তমান তারিখ বা সময় এবং নির্দিষ্ট সময়সীমার তারিখ বা সময়ের মধ্যেকার পার্থক্য স্বয়ংক্রিয়ভাবে গণনা করতে পারে। এবং আপনি যখন ওয়ার্ড খুলবেন, তখন একটি মেসেজ বক্সে এর ফলাফল দেখতে পাবেন।
ম্যাক্রো চালানো এবং সংরক্ষণের পদক্ষেপগুলি উপরের মতো।
দিনের পার্থক্য পেতে এখানে ম্যাক্রো দেওয়া হল:
Sub Autoexec()
Dim dtDeadlineDay As Date
Dim nDaysLeft As Long
'Specify the deadline date and calculate the days left.
dtDeadlineDay = #2/20/2017#
nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
' Show the days left before deadline.
If nDaysLeft > 1 Then
MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 1 Then
MsgBox "There is 1 day left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 0 Then
MsgBox "Today is the deadline!"
End If
End Sub
এবং ফলাফল:
বিঃদ্রঃ:
কোড লাইন পরিবর্তন করতে মনে রাখবেন “dtDeadlineDay = # 2/20/2017 #”। আপনার প্রয়োজন অনুযায়ী তারিখটি পরিবর্তন করুন।
তারপরে সময় পার্থক্য পেতে ম্যাক্রোটি পরবর্তী:
Sub Autoexec()
Dim dtCurrentTime As Date
Dim dtDeadlineTime As Date
Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
' Specify the current time and the deadline time.
dtCurrentTime = TimeValue(Now)
dtDeadlineTime = TimeValue("16:40:00 PM")
' Calculate and show the time difference.
nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
nHour = nTimeLeft \ 3600
nTimeLeft = nTimeLeft - nHour * 3600
nMinute = nTimeLeft \ 60
nSecond = nTimeLeft - nMinute * 60
MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub
এবং ফলাফলটি হ'ল:
বিঃদ্রঃ:
সময়টি প্রতিস্থাপন করুন “dtDeadlineTime = সময় মূল্য ("16:40:00 অপরাহ্ন")”একটি অর্থবহ এক সঙ্গে।
একটি মূল্যবান ব্যাকআপ
ফাইলটি দুর্নীতিগ্রস্থ হওয়ার পরে আমরা এর গুরুত্ব এবং এটি কী করতে পারি তা কখনই অনুমান করা যায় না। তদতিরিক্ত, আমাদের কমপক্ষে একটি দৈনিক বা সাপ্তাহিক বা মাসিক ভিত্তিতে একটি ব্যাকআপ পরিকল্পনা বের করার পরামর্শ দেওয়া হচ্ছে। ব্যাকআপ হ'ল আমাদের ডেটা ক্ষতিগ্রস্থ হওয়া থেকে রোধ করার জন্য সঠিক প্রস্তুতি নেওয়া উচিত। অন্যথায়, আমরা অবশেষে শেষ চেষ্টা করতে পারব একটি অর্জন obtain দূষিত ওয়ার্ড ডেটা পুনরুদ্ধার সরঞ্জাম.
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় দূষিত এক্সেল এক্সএলএস মেরামতের সরঞ্জাম এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com