Excelwert an eine bestimmte Stelle in WordDoc

Sub zahlung_oeffnen()
Dim wordObj As Word.Application
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = True
wordObj.Documents.Open "u:\Zahlung.doc"
End Sub

Sub platziert, welcher ein bestimmtes Wort sucht und dieses dann durch den Wert aus excel ersetzen kann.

Sub ersetzen()
ActiveDocument.Range.Find.Execute findtext:="Beispiel", MatchCase:=True, _
MatchWholeWord:=True, Format:=False, replacewith:="Excelwert", Replace:=wdReplaceAll
End Sub


(wenn ich dieses 

Sub nun aus Excel starte kommt Fehler beim kompillieren)
Mein Problem ist nun, wie übergebe ich den Wert aus Excel an das WordSub?
Oder kann ich das ganze viel besser allein aus Excel heraus machen? Wär natürlich die bessere Lösung --> rufe Word auf, copiere Wert X, füge Wert X an Stelle Y in Word ein. Das wär super!  Ich weiss nur nicht wie.
Helft mir bitte.
Liebe Grüße casseur