এই নিবন্ধে, আমরা আপনাকে ভিজিএর মাধ্যমে এক্সেল ওয়ার্কশিটটি স্থানীয় ওয়ার্ড টেবিলে রূপান্তর করার উপায় অফার করে আনন্দিত।
অফিস ফাইল বিভিন্ন ফরম্যাটে থাকে। সময়ে সময়ে, আপনাকে এক ফাইল ফরম্যাট থেকে অন্যটিতে রূপান্তর করার প্রয়োজন হতে পারে। উদাহরণস্বরূপ, এক্সেল ফাইল এবং ওয়ার্ড ডকুমেন্টের মধ্যে রূপান্তর সবচেয়ে প্রয়োজনীয় কাজগুলোর মধ্যে একটি। আসলে, আমরা আমাদের পূর্ববর্তী একটি আর্টিকেলে এই বিষয়টি নিয়ে আলোচনা করেছি: আপনার শব্দে এক্সেল ট্যাবুলার ডেটা স্থানান্তর করার 5 সহজ উপায়
আজ, ওয়ার্ড ডকুমেন্টে এক্সেল ওয়ার্কবুকটি বের করার জন্য আরও দ্রুত ম্যাক্রো-উপায় রয়েছে। এবং একটি কার্যপত্রকের সমস্ত সামগ্রী একটি নেটিভ ওয়ার্ড টেবিলে রূপান্তরিত হবে।
ওয়ার্ড ম্যাক্রো ইনস্টল করুন এবং রান করুন
আমরা ওয়ার্ডে ম্যাক্রো চালাব। যেহেতু ম্যাক্রোর কোডের একটি অংশ এক্সেল অবজেক্ট ট্রিগার করার সাথে জড়িত, তাই আপনাকে একটি অবজেক্ট লাইব্রেরি রেফারেন্স যোগ করতে হবে।
- সর্বপ্রথম, একটি নতুন খালি ওয়ার্ড ডকুমেন্ট খুলুন।
- এবং ওয়ার্ডে ভিবিএ সম্পাদক খুলতে "Alt + F11" টিপুন।
- তারপরে বাম কলামে "সাধারণ" ক্লিক করুন।
- পরবর্তী "সন্নিবেশ" ক্লিক করুন এবং "মডিউল" চয়ন করুন।
- এখন আপনি একটি নতুন মডিউল পেয়েছেন। খুলতে হিসাবে এটিতে ডাবল ক্লিক করুন।
- তারপরে মেনু বারের "সরঞ্জামগুলি" ট্যাবে ক্লিক করুন।
- ড্রপ-ডাউন মেনুতে "রেফারেন্স" চয়ন করুন।
- “References-Normal” উইন্ডোতে, “Microsoft Excel 14.0 Object Library” বক্সটি চেক করুন এবং “OK” ক্লিক করুন।
- পরবর্তী কপি এবং নতুন মডিউলে নিম্নলিখিত কোডগুলি পেস্ট করুন:
Sub ExtractWorksheetsToWordDocument()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim objTable As Table
Dim dlgFile As FileDialog
Dim strFileName As String
Application.ScreenUpdating = False
' Select an Excel file from Browse window.
Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)
With dlgFile
If .Show = -1 Then
strFileName = .SelectedItems(1)
Else
MsgBox "No file is selected! Please select the target file."
Exit Sub
End If
End With
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strFileName)
objExcel.Visible = False
' Step through each worksheet in the Excel file and extract data to each _
individual section in Word document.
For Each objWorksheet In ActiveWorkbook.Worksheets
objWorksheet.UsedRange.Copy
ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Paste
ActiveDocument.Range.InsertAfter objWorksheet.Name
If Not objWorksheet.Name = Worksheets(Worksheets.Count).Name Then
With ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdSectionBreakNextPage
End With
End If
Next objWorksheet
For Each objTable In ActiveDocument.Tables
objTable.Borders.Enable = True
Next objTable
' Close the Excel application using the Quit method.
objExcel.Application.Quit
' Release the object variables.
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Application.ScreenUpdating = True
End Sub
- "রান" ক্লিক করুন বা "F5" টিপুন।
- এখন "ব্রাউজ" উইন্ডো আছে। কেবল একটি এক্সেল ফাইল নির্বাচন করুন এবং "ঠিক আছে" ক্লিক করুন।
ফলাফল এখানে:
আপনার নথিগুলি এখনও কার্যকর রয়েছে তা নিশ্চিত করুন
আপনার কম্পিউটারে সম্ভবত কয়েকশ দস্তাবেজ রয়েছে। সময় যতই যায় তত সহজে তাদের কিছু ভুলে যাওয়া। এবং যখন আপনি কোনও মুহুর্তে সেগুলি পরীক্ষা করার কথা মনে করেন, আপনি কেবল সেগুলি অ্যাক্সেসযোগ্যই দেখতে পান। তারপরে আপনার সাথে সাথেই কোনও সরঞ্জামটির অবলম্বন করা উচিত মেরামত ডক.
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xlsx ঠিক করুন এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com