এই পিost, আমরা আপনাকে ওয়ার্ডে আপনার দস্তাবেজের নতুন নামকরণের জন্য দুটি স্মার্ট উপায় সহ উপস্থাপনের দিকে মনোনিবেশ করব।
এখন এবং পরে, ওয়ার্ডে খসড়া করার সময় আমরা ক্রমাগত ফাইলের নাম পরিবর্তন করব। তবুও প্রতিবার, ডকুমেন্টটির নাম পরিবর্তন করার আগে আমাদের এটি বন্ধ করতে হবে। এটি সম্পূর্ণ সুবিধাজনক নয়। ডিফল্টরূপে, আমরা একটি মুক্ত ফাইলের নাম পরিবর্তন করতে পারি না। তবে ম্যাক্রোর সাহায্যে এটি সম্ভব হতে পারে।
নিম্নলিখিত 2 টি ম্যাক্রো রয়েছে যা এ জাতীয় সমস্যা সমাধান করতে পারে।
পদ্ধতি 1: শব্দে একটি দস্তাবেজের নাম পরিবর্তন করুন
- প্রথম এবং foremost, ওয়ার্ড ভিবিএ সম্পাদক খুলতে "বিকাশকারী" ট্যাব তারপরে "ভিজ্যুয়াল বেসিক" টিপুন।
- পরবর্তী "সাধারণ" প্রকল্পে ক্লিক করুন।
- তারপরে "sertোকান" ক্লিক করুন এবং "মডিউল" নির্বাচন করুন।
- কোডিং অঞ্চলটি খুলতে এবং সেখানে বেলিং কোডগুলি পেস্ট করতে নতুন মডিউলটিতে ডাবল ক্লিক করুন:
Sub RenameDocument()
Dim strDocName As String, strDocPath As String
Dim strNewDocName As String
Dim KillFile As String
' Get the current doc name.
strDocName = ActiveDocument.FullName
strDocPath = ActiveDocument.Path
If strDocPath = "" Then
MsgBox ("This document hasn't been saved. You can't rename it.")
Exit Sub
End If
' Pop up an input box for new name.
strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)
' Save the doc with newly entered name.
ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName
' Delete the doc with original name.
KillFile = strDocName
Kill KillFile
End Sub
- এখন "রান" ক্লিক করুন বা "F5" টিপুন।
- পপিংয়ের জন্য একটি ইনপুট বাক্স থাকবে। পাঠ্য বাক্সে কেবল একটি নতুন নাম লিখুন এবং "ঠিক আছে" ক্লিক করুন।
এখন ডকুমেন্টটি একই জায়গায় নতুন নামে সংরক্ষণ করা হবে। এবং ম্যাক্রো চালানো আসল ফাইলটি মুছে ফেলবে।
পদ্ধতি 2: একটি দস্তাবেজের নাম পরিবর্তন করুন এবং তারিখ তথ্য সংযোজন করুন
অনেক ক্ষেত্রে পুনর্বিবেচনা করার সময় একটি দস্তাবেজের নাম পরিবর্তন করা হবে। এই পরিস্থিতিতে, একটি ফাইলের নামের মূল অংশটি কেবল তারিখের স্ট্রিং অনুসরণের সাথে একই থাকে। উদাহরণস্বরূপ, এখানে তারিখের স্ট্রিং ছাড়াই একটি দস্তাবেজ রয়েছে।
এটি যুক্ত করার জন্য, আমরা এই ম্যাক্রোটি চালাতে পারি:
Sub RenameDocumentWithDate()
Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
Dim strNewDocName As String
Dim KillFile As String
Dim strDate As String
' Get the current doc name.
strDocName = ActiveDocument.Name
strDocFullName = ActiveDocument.FullName
strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
strDocPath = ActiveDocument.Path
strDate = Format(Date, "mm - dd - yyyy")
If strDocPath = "" Then
MsgBox ("This document hasn't been saved. You can't rename it.")
Exit Sub
End If
' Save the doc in new name with date.
ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
KillFile = strDocFullName
Kill KillFile
End Sub
উপরের ম্যাক্রোটি ইনস্টল এবং চালানোর জন্য আপনি পদ্ধতি 1 এর সঠিক পদক্ষেপগুলি অনুসরণ করতে পারেন। এটি সুন্দরভাবে কাজ করবে। আপনি দেখতে পাবেন যে বর্তমান তারিখের স্ট্রিংটি মূল নাম অনুসারে অনুসরণ করছে যেমন বেলো:
শব্দ দস্তাবেজ দুর্নীতির সমাধান
আমরা সমস্ত পদ্ধতির জন্য একবারের সাথে দস্তাবেজ দূর্নীতি রোধ করতে পারি না। আমরা যা করতে পারি তা হ'ল ব্যাকআপ নেওয়া এবং যতটা সম্ভব সম্ভব ব্যবহারকারী ত্রুটিগুলি এড়ানো। তাদের একজনost গুরুত্বপূর্ণ বিষয়গুলি হ'ল কোনও ডক দুর্নীতিগ্রস্থ হওয়ার পরে কী করবেন তার সাথে পরিচিত হওয়া। সঠিক উত্তরটি হ'ল একটি ডক পুনরুদ্ধার যত তাড়াতাড়ি সম্ভব সরঞ্জাম।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল ক্ষতি এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com