Hallo
ich habe eine Word-Vorlage (*.dot) in einer Maske. Auf einer anderen Maske möchte ich nun ein neues Word-Dokument erzeugen, das auf dieser Vorlage basiert. Mein Problem ist nicht der Word-Aufruf, sondern wie ich diese Vorlage aus der Maske bekomme (nicht den Namen der Vorlage, sondern die Vorlage selbst). Hier mein Code:
Set db = session.CurrentDatabase
Set doc = db.GetProfileDocument("config")
Set rtitem = doc.GetFirstItem( "rtlFeld" )
If ( rtitem.Type = RICHTEXT ) Then
If Isarray (rtitem.EmbeddedObjects) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Set word = CreateObject("Word.Application") 'Create Word object
Call word.documents.add(o.Name) 'Create a new document based on the template "Return and Uplift.Dot"
Set worddoc = word.activedocument 'Get a handle for the active document
End If
End Forall
Else
'Messagebox "blablabla"
End If
Hier sollte der Fehler liegen:
Call word.documents.add(o.Name)
Anstatt des o.Name, was ja den Namen liefert, brauche ich die Vorlage selbst. Sonst sucht Word im Standard-Vorlagen Ordner.
Vielen Dank
cu
Heidi
