Help! with code to open word

[Guest]

I need to write a macro that opens up word & copies a selection from the
excel file into the new word document pasted as "Picture (enhanced metafile)"
I am currently using excel 2003

 

[Tyla]

Something like this should get you started:

Sub copyRangeToWord()

Dim gobjWordApp As Object
Dim wdPasteMetafilePicture As Integer
Dim wdInLine As Integer

' Imitate Word constants
wdPasteMetafilePicture = 3
wdInLine = 0

' Create new Word session with a new, empty document
Set gobjWordApp = CreateObject("Word.Application")
gobjWordApp.Documents.Add
gobjWordApp.Visible = True

' Copy your source data to the clipboard
Activesheet.Range("A1:B17").Copy

' Paste it in Word
gobjWordApp.Selection.PasteSpecial Link:=False,
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, DisplayAsIcon:=False

' Cleanup:
Set gobjWordApp = Nothing
Application.CutCopyMode = False

End Sub

HTH

/ Tyla /