worde kopyalama

[mehmet_bulut]

Herkese iyi çalışmalar diliyorum.Excelden worde tüm sayfaları kopyalayan bir kodum var.Ancak ben istediğim iki sayfayı sadece kopyalatmak istiyorum.
Örneğin sayfa1 ve sayfa3
Ayrıca sayfadaki resimleri de kopya olarak aktaramıyorum.Yardımcı olursanız sevinirim.
Elimdeki örnek aşağıdadır.
Sub YAZDIR()

Dim ch As ChartObject

Set w = CreateObject("Word.Application")
w.Visible = True
Set d = w.documents.Add
For Each sh In ThisWorkbook.Worksheets
sh.UsedRange.Copy
w.Selection.PasteExcelTable 0, 0, 0
w.Selection.TypeParagraph

For Each ch In sh.ChartObjects
ch.Copy
w.Selection.PasteAndFormat (wdPasteDefault)
w.Selection.TypeParagraph
Next

Next
Set w = Nothing




'
End Sub