Vanuit Excel kopieren en in Word plakken

[deSmid]

Graag wil ik een macro maken waarmee in vanuit Excel Word kan openen en daar in een leeg Worddocument gegevens kan plakken die ik in Excel heb geselecteerd en gekopieerd.
De te kopieren gegevens zijn variabel, niet steeds het zelfde gebied. Het gaat mij er voornamelijk om dat ik mbv een macro Word kan opstarten.

Wie weet raad?

Grt,
deSmid.

 

[NuMan]

Ga in de VB-editor via Extra naar verwijzingen.
Zoek daar de volgende bibliotheek op, en vink die aan:
Microsoft Word ...(hier staat een nummer)... Object Library

Dan probeer volgende macro:

Sub Excel2Word()
Dim appWD As Word.Application
Dim Myrange As Range

' Create a new instance of Word & make it visible
Set appWD = CreateObject("Word.Application.8")
appWD.Visible = True
' Copy the data for the new document to the clipboard
' Select my Range
Set Myrange = Application.InputBox("Selectee­r de Range", Type:=8)
Myrange.Copy
' Tell Word to create a new document
appWD.Documents.Add
' Tell Word to paste the contents of the clipboard into the new document
appWD.Selection.Paste
' Save the new document with a sequential file name
' appWD.ActiveDocument.SaveAs Filename:="File"
' Close this new word document
' appWD.ActiveDocument.Close

' Close the Word application
appWD.Quit
End Sub

 

[deSmid]

Het is toch iedere keer weer leuk dat 't werkt. :thumb:
Eerst ingevoegd in een leeg werkblad en de boel ingesteld zoals beschreven en............ dat werkte goed. Het verhaal ingevoegd in mijn werkblad waar het zou moeten en kreeg daarop de mededeling: object missing. Intussen is dit opgelost door nogmaals object libery in te stellen.

Opnieuw weer bedankt.

Grt,
deSmid.