• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Copying excel data into word using VBA

Hi Kittu,

Try these:

Code:
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
 
Back
Top