Word von Excel starten

ich versuche gerade eine Kaufvertragsvorlage in Word von Excel aus zu starten und zu füllen. Leider klappt das noch nicht so. Ich probiere es mit folgendem Code:

Sub CommandButton3_Click()

Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Add(Template:=ThisWorkbook.Path & "\Kaufvertrag.dot")
appWord.Selection.Goto wdGoToBookmark, Name:=test
appWord.Selection.TypeText "Test"
doc.PrintPreview
doc.Close
appWord.Quit

End Sub

Word wird auch prima gestarten doch an meiner in der Vorlage definierten Textmarke "test" passiert gar nichts.

Vielen Dank für die Hilfe

Gunnar