নমুনা নিবন্ধে, আমরা আপনার সাথে একাধিক ওয়ার্ড ডকুমেন্টের নির্দিষ্ট পৃষ্ঠাগুলি মুদ্রণের জন্য দুটি দ্রুত উপায় শেয়ার করতে চাই।
ব্যাচ প্রিন্টিং ফাইলগুলি অবশ্যই আমাদের অনেকের জন্য আশীর্বাদ। এটি প্রতিটি ফাইল এবং কয়েকবার ক্লিক খোলার সময় সাশ্রয় করে। এখন একাধিক ওয়ার্ড ডকুমেন্টগুলির নির্দিষ্ট পৃষ্ঠাগুলির মুদ্রণ সম্পর্কে কী? উদাহরণস্বরূপ, একই সাথে বেশ কয়েকটি ফাইলের প্রথম পৃষ্ঠাটি মুদ্রণ করা দরকারী। এছাড়াও, একাধিক ফাইলের "বিষয়বস্তু" বা "রেফারেন্স" পৃষ্ঠা মুদ্রণের জন্যও প্রয়োজনীয়। সুতরাং আমরা কি এটি করতে পারি?
হ্যাঁ, উত্তরটি সংক্ষিপ্ত। এবং সবচেয়ে বড় বিষয় হ'ল আমাদের কোনও তৃতীয় পক্ষের অ্যাড-ইনগুলির প্রয়োজন নেই।
পদ্ধতি 1: ব্যাচ একাধিক নথির প্রথম পৃষ্ঠা মুদ্রণ করে
- শুরুতে, সমস্ত কাঙ্ক্ষিত নথি একই ডিরেক্টরিতে সংরক্ষণ করুন।
- তারপরে ভিবিএ সম্পাদক খুলতে "বিকাশকারী" ট্যাব এবং "ভিজ্যুয়াল বেসিক" ক্লিক করুন। অথবা পরিবর্তে "Alt + F11" টিপুন।
- এরপরে "সাধারণ" এবং তারপরে "sertোকান" ক্লিক করুন।
- ড্রপ-ডাউন মেনুতে "মডিউল" চয়ন করুন।
- এখন একটি নতুন মডিউল হবে। সম্পাদনার স্থানটি আনার জন্য এটিতে ডাবল ক্লিক করুন।
- মডিউলটিতে ম্যাক্রো আটকান:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
- পরবর্তী "রান" বোতামটি ক্লিক করুন বা "F5" টিপুন।
- পপিং আপ বাক্সে, আপনি যেখানে ফাইল রাখেন সেই ফোল্ডারের পথটি প্রবেশ করুন, যেমন “E: \ পরীক্ষার শব্দ \ পরীক্ষা \". শেষ "\" ভুলবেন না। এগিয়ে যেতে "ঠিক আছে" ক্লিক করুন।
শুধু মুদ্রণের জন্য অপেক্ষা করুন।
পদ্ধতি 2: একাধিক নথির ব্যাচ মুদ্রণ নির্দিষ্ট পৃষ্ঠা
একাধিক নথির নির্দিষ্ট পৃষ্ঠাগুলি মুদ্রণের জন্য, আপনি নিম্নলিখিত ম্যাক্রো ব্যবহার করতে পারেন।
পদ্ধতি 1 এ একই পদক্ষেপের সাহায্যে ম্যাক্রো ইনস্টল করুন এবং চালান, তবে এই ম্যাক্রোর সাথে প্রতিস্থাপন করুন:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
Dim strPages As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)
strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
.ActiveDocument.Close
End With
strFile = Dir()
Wend
Set objWordApplication = Nothing
End Sub
একইভাবে, প্রথম বক্সে ফোল্ডারের পাথটি লিখুন। তারপর দ্বিতীয়টিতে পৃষ্ঠা নম্বর দিন। পরপর পৃষ্ঠা প্রিন্ট করার জন্য, শুরুর এবং শেষের নম্বরের মাঝে একটি হাইফেন ব্যবহার করুন, যেমন “১-৩”। পরপর নয় এমন পৃষ্ঠা প্রিন্ট করার জন্য, বিভাজক হিসেবে কমা ব্যবহার করুন, যেমন “১, ৩, ৫”। উদাহরণস্বরূপ, “১, ৩-৬” মানে হলো পৃষ্ঠা ১, ৩, ৪, ৫ এবং ৬ প্রিন্ট করা।
আপনার কাছে থাকা সরঞ্জামটি মেরামত করা দরকার
এটি ঘটে যে ওয়ার্ডটি আপনার দস্তাবেজটি আটকে রেখে হঠাৎ করে সমস্ত প্রতিক্রিয়া বন্ধ করে। একটি থেকে একটি ভাঙা ফাইল উত্তরাধিকারী হওয়ার সম্ভাবনা বেশি ক্ষতিগ্রস্থ শব্দ। কখনও কখনও পরিণতিটি বহন করার পক্ষে খুব বেশি পরিমাণে আসে। ব্যাকআপ নিতে ব্যর্থ হওয়ার জন্য আপনি নিজেকে দোষ দিতে পারেন। তবে আপনার আরও গুরুত্বপূর্ণ বিষয়টি হ'ল তাৎক্ষণিকভাবে ডেটা পুনরুদ্ধার করার জন্য একটি পুনরুদ্ধারকারী পণ্য অর্জন করা।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল দূষিত এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com