HI All,
I need to copy set of cells from Excel and paste in a word doc in atble format.
ex: iam copying data of 3 rows having 3 columns in excel and want to paste it in a word table.
i tried of of copying excel to word with the following code and worked well but want to insert a table in this word to have this data.
could someone help me out
Sub proWord()
Dim varDoc As Object
Set varDoc = CreateObject("Word.Application")
varDoc.Visible = True
Sheets("Sheet1").Range("A1:I45").Copy
varDoc.documents.Add
varDoc.Selection.Paste
varDoc.activedocument.SaveAs Filename:="test1" & ".doc"
varDoc.documents.Close
varDoc.Quit
End Sub
Thanks
Shekhar
Bookmarks