Word e Aktar

[OoParadiSeoO]

Arkadaşlar merhaba,
Exceldeki tablomu aşağıdaki kodlar ile Word'e aktarıyorum fakat Word'e aktarıldıktan sonra tablonun satir yüksekliğini iki katina çıkıyor.
Yapıştırma için; wdApp.Documents.Add.Content.Paste kodunu kullanıyorum sanırım bunu revize etmek gerekiyor..
Kodları paylaşıyorum desteğinizi bekliyorum, teşekkürler ..

Sub Word()
Dim wdApp As Word.Application
Range("A1").CurrentRegion.Copy
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Add.Content.Paste
With wdApp
.Visible = True
.Activate
End With
End Sub

 

[halit3]

bunu bir dene

Sub Word()

Range("A1").CurrentRegion.Copy
Dim appword As Word.Application
Dim docword As Word.Document
Set appword = CreateObject(class:="Word.Application")
If Not appword Is Nothing Then Set appword = GetObject(class:="Word.Application")
appword.Visible = True
Set docword = appword.Documents.Add
docword.Paragraphs(docword.Paragraphs.Count).Range.PasteAndFormat (wdFormatPlainText)

End Sub

 

[OoParadiSeoO]

Hızlı dönüşün için çok teşekkür ederim üstad eline sağlık ????