Excel den worde veri aktarma

[nijaara]

arkadaşlar mevcut word dosyamda &1 isimli bir metni

exceldeki A1 hücresinin değeri ile değiştirmek istiyorum.

Bununla ilgili internetteki kodlar işime yaramıyor. Hepsi yeni bir word açıp tablo olarak aktarıyor. Bu işlem mümkünmüdür.

Saygılarımla,

 

[Mahmut Bayram]

Sub Replace()
Dim yol As String
Dim aranan As String, degisecek As String
Dim WA As Object

yol = "C:\Users\MdrYrd\Desktop\Yeni.docx"

Set WA = CreateObject("Word.Application")
WA.documents.Open (yol)
WA.Visible = True

    aranan = "&1"
    degisecek = Sheets("Sayfa1").Range("A1").Value
    With WA.ActiveDocument
        Set myRange = .Content
        With myRange.Find
            .Execute FindText:=aranan, ReplaceWith:=degisecek, Replace:=2
        End With
    End With
WA.documents.Close
WA.Application.Quit
End Sub