The below code will help you to copy the MS Excel data into MS Word. The main thing to note here is, the Excel data is copied into Word in a table format. This is a very basic VBA code, you can extend this to add other features.
To add this code to your excel, Open VBA editor in Excel or you can press F11. Insert a module, paste this code. Come back to excel by pressing F11 again. Under macros you can see the name of subroutine 'CopyFromExcelToWord' appearing, this is your macro.
Sub CopyFromExcelToWord()
Dim objWord
Dim objDoc
Dim objRange
Dim total_rows
Dim total_cols
Dim objTable
Dim tmp_row
Dim tmp_col
total_rows = Cells(1, 10).Value
total_cols = Cells(2, 10).Value
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objRange = objDoc.Range
objWord.Visible = True
objDoc.Tables.Add objRange, total_rows, total_cols
'objWord.SaveAs ("C:\Users\sanjeeva\Documents\krishna\personal\videos\a.docm")
Set objTable = objDoc.Tables(1)
objTable.Borders.Enable = True
For tmp_row = 1 To total_rows
For tmp_col = 1 To total_cols
objTable.Cell(tmp_row, tmp_col).Range.Text = Cells(tmp_row, tmp_col)
Next
Next
End Sub
Some useful tips on daily computer and mobile usage and programming. I post information and help topics on new technologies, Mobile, Computers, Office Automation.
Subscribe to:
Posts (Atom)
Apple MacBook Notes strike through Menu option and Setting Keyboard shortcut.
Apple Notes is the probably most widely used App for taking notes on Apple MacBook or Apple Mac in general. In this tutorial, I will show y...
-
There are plenty of online resources to convert Numeric currencies to Text- from $200 to Dollar Two Hundred. But this is applicable only ##...
-
A normal phone Bluetooth headset can be easily connected to a laptop and it can be used as earphones or headphones while using skype, gtalk,...
-
Text manipulation is one of the great features of MS Excel. It has a lot of built-in functions to extract desired values from a text. By usi...