Copy and Paste From Excel To Word

Copy and Paste From Excel To Word With Macro


For example to copy, we chose the cells between A:1 and G:30 in worksheet  .

copy from excel to word


VBA codes to copy from Excel to Word :
Sub wordeaktar()
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Visible = True
Range("A1:G30").Copy
Word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub


2 comments: