Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Guten Tag,

ich lasse durch Access ein Winword-Dokument erstellen / ausfüllen. Das klappt auch mit

    Dim wwApp As Object
    Dim wwDoc As Word.Document
    Dim wwRange As Word.Range

    Set wwDoc = wwApp.Documents.Open("Rechnung.doc")
    With wwDoc
       Set wwRange = .GoTo(what:=wdGoToBookmark, Name:="Firma1")
       wwRange.Text = Me![Firma1]
    End With
       ...
Nun will ich eine Textmarke ausfüllen, die in einer Textbox (Name ist "Text Box 7") steht. Dazu muss ich ja wohl den Shapes-Befehl nutzen. Doch wie ist die richtige Syntax?

       Set wwRange = .Shapes("Text Box 7").GoTo(what:=wdGoToBookmark, Name:="RechDat")
       wwRange.Text = Format(, "dd.mm.yyyy")
klappt nicht. Kann mir jemand bei der Syntax helfen?

AS