Copy sheets as image to word

I tried copying a sheet as an image to word and it worked using VBA. But I wanted to copy the entire workbook or sheets with a given range . Please someone help

Sub luxation ()

Dim objWord, objDoc As Object



Selection.copy picture Appearance:=xlscreen, Format:=xlPicture

Set objWord = createObject(“Word.Application”)

Set objDoc = objWord.Documents.Add

ObjWord.Visible = True


objWord.selection.type paragraph

End Sub


By: Toba Goodluck

Leave a Reply

Your email address will not be published. Required fields are marked *