Copying excel data into word using VBA

[Krishna20]

Hi,

I would like to know if we can export data from excel to word?
I have found some links which have give me the VBA format on exporting the data, for example,
http://www.teachexcel.com/excel-help/excel-how-to.php?i=515754

But can we have a modification in this.
Like if I want to copy data from excel and paste it as a picture or linked picture in word, is it possible?

Thank you
Kittu20

 

[PeterB]

Hi Kittu,

Try these:

Sub CopyLinked()
   
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
     

ThisWorkbook.Sheets(1).Range("A1:A20").Copy

With appWord
  .Visible = True
  .Documents.Add.Content.PasteSpecial Link:=True
End With
     
End Sub


Sub PastePicture()

Dim appWord As Object
Set appWord = CreateObject("Word.Application")
       
ThisWorkbook.Sheets(1).Shapes(1).Copy

With appWord
  .Visible = True
  appWord.Documents.Add.Content.Paste
End With


End Sub

Regards,
Peter

 

[Krishna20]

Thanks Peter. So can we use excel VBA and operate Word?