Hi,
gucks Du hier:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/39d365d1d269d5a588256af40051d9bb?OpenDocument
hallo doliman,
super sache das. bins seit gestern am ausprobieren. muss naemlich aus der inventur datenbank oefters eine rechnung schreiben. hab mal angefangen, mein eigenes formular zu verwenden, und alles rausgeschmissen, was ich nicht brauche. bis jetzt scheint das gut zu funzen, jedoch komm ich mit einer sache nicht klar: im script steht als REM, dass man die woerter durch die werte der felder ersetzen kann, ich weiss aber nicht wie. meine formel bis jetzt:
Sub Click(Source As Button)
Dim s As New notessession
Dim todaydate As New notesdatetime("Today")
Dim word As Variant
Dim wordoc As Variant
Dim user As String
Dim inventory_number As String
'Predefined values: (replace with field values from uidoc)
user = "user"
inventory_number = "inventory_number"
'Create the Word object:
Set word = CreateObject("Word.Application") 'Create Word object
Call word.documents.add("Rechnung_altPC.dot") 'Create a new document based on the template "Return and Uplift.Dot"
Set worddoc = word.activedocument 'Get a handle for the active document
'Assign the field values:
worddoc.FormFields(3).result = todaysdate
worddoc.FormFields(4).result = user
worddoc.FormFields(5).result = inventory_number
worddoc.saveas(user) 'save the document with the filename of "John Doe.doc"
word.visible = True 'Comment this line if you don't want to show Word.
'word.quit 'remove comment if you want to close rather than show Word.
End Sub
dort, wo steht user = "user" sollte stehen, user = FELDWERT AUS DEM FELD USER. ich will den wert aus dem feld user meiner maske da stehen haben, und nicht das wort "user".
kannst du mir da helfen?
danke und gruss,
daniela
