Copy Range then paste in word as BMP

[politot]

Hi Excel Guru..

I would like to ask a code on how to copy a range in excel then paste as bitmap in ms word? and if ever a next range has a value, the next range will be paste in a 2nd page of a Word?

Example:

Copy Range A1:U100 then Open a Word, then paste as bitmap.

Example 2:

Copy Range A1:U100 then Open a Word, then paste as bitmap.
create 2nd page in word, then Copy Range A101:U200 then paste in the existing word.

Many Thanks for your Help/Reply

 

[VBA Geek]

see if this does the job for you:

Sub pstInWord()
Dim oWord As Word.Application
Dim oWordDoc As Word.document
Set oWord = New Word.Application
Dim rng1 As Excel.Range, rng2 As Excel.Range
With oWord
    .Visible = True
    Set oWordDoc = .Documents.Add(DocumentType:=wdNewBlankDocument)
End With
Set rng1 = Range("A1:U100")
Set rng2 = Range("A101:U200")
rng1.CopyPicture xlScreen, xlBitmap
With oWordDoc.Windows(1)
    .Selection.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:= _
                                            wdInLine, DisplayAsIcon:=False
    .Selection.InsertBreak wdPageBreak
    rng2.CopyPicture xlScreen, xlBitmap
    .Selection.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:= _
                                        wdInLine, DisplayAsIcon:=False

End With
Set oWord = Nothing
Set oWordDoc = Nothing
End Sub