Cellen kopiëren van excel naar word in een macro

[Hans83]

Hoi.

Ik heb een vraag of dit mogelijk is.
ik wil cellen van K57 tot B2 kopiëren naar word en dan verzenden via outlook in een macro.
wie kan me hier me helpen?
ik heb zelf al wat geprobeerd maar als ik in word kom dan houd de macro er mee op.

Groetjes Hans

 

[Wigi]

Je gaat de data moeten neerzetten in Word op bookmarks, dat is althans het gemakkelijkste.

Als je dat weet, is de oplossing direct gevonden. Google maar eens op:

excel vba word bookmark

Eerste resultaat: Push Excel Named Range Values to Bookmarks in Word
(http://www.vbaexpress.com/kb/getarticle.php?kb_id=381)

Wigi

 

[Warme bakkertje]

Of gewoon met een range

Sub XLRangeToDoc()
     'copy range to table in word doc
     '
    Dim objWordApp As Object
    Dim objWordDoc As Object
    Dim rngData As Range
     
    Set rngData = Range("B2:K57")
     
     ' create instance of word and open doc
    Set objWordApp = CreateObject("Word.application")
    objWordApp.Visible = True
    Set objWordDoc = objWordApp.Documents.Add
     
     ' Copy xl range
    rngData.Copy
     
     ' Paste the range
    objWordApp.Selection.PasteSpecial Link:=False, DataType:=1, _
    Placement:=0, DisplayAsIcon:=False
     
    objWordDoc.Save
    objWordDoc.Close
    objWordApp.Quit
     
    Set objWordDoc = Nothing
    Set objWordApp = Nothing
     
End Sub

Mvg

Rudi

 

[Hans83]

ga morgen op vakantie daar na zal ik het uitproberen alvast bedankt