Excel Sayfasını Word Olarak Açma

[officer08]

Aşağıdaki kod ile Excel sayfasında seçilen bölgeyi word belgesi olarak açıyorum ancak benim ihtiyacım YAZI isimli excel sayfasının 1.sayfasını word olarak açmak nasıl bir değişiklik yapmak gerekir.

Sub WordSheetRangeCopy()
Dim WordObj As Object
Selection.Copy
Set WordObj = CreateObject("Word.Basic")
With WordObj
.AppShow
.FileNew
.EditPaste
End With
Set WordObj = Nothing
End Sub

 

[muratboz06]

Sorunuzdan anladığım kadarıyla;

Sub WordSheetRangeCopy()
    Dim WordObj As Object
    Worksheets("YAZI").Select
    ActiveSheet.Range("A1:E10").Select           'bu satırdaki A1 ve E10 değerleri yerine YAZI sheetinin 1.sayfasındaki aralığı yazınız.
    Selection.Copy
    Set WordObj = CreateObject("Word.Basic")
    With WordObj
        .AppShow
        .FileNew
        .EditPaste
    End With
    Set WordObj = Nothing
End Sub

 

[officer08]

Muratboz06 teşekkür ederim oldu lakin benim hayal ettiğim gibi olmadı sonuç. Aktarırken sayfa düzeni bozuluyor bana aynı exceldeki sayfa düzeniyle aktaracak şekilde lazım.