Hallo Leute,
also sagen wir mal so, dass ich entwickler bin, weil ich das erstellen muss.
ich habe mir den Link von Axel genauer angeschaut..
leider bekomme ich eine Fehlermeldung "Fehler beim kompilieren: Erwartet Anweisungsende"
was ist damit gemeint ?
Set newdoc= New NotesDocument (db)
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set s =New NotesSession
Set db=s.CurrentDatabase
Dim newdoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim rtitem2 As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set newdoc= New NotesDocument (db)
newdoc.form = "Document"
'select form to use for a new document
Set WordObj = CreateObject("Word.Application")
WordObj.visible = False
Set WordDocs = WordObj.Documents
Set Worddoc = WordDocs.Open(path+fname ) 'you need the path and filename of the word document you want to import
Set Rnge = WordDoc.Range()
Rnge.Copy
WordDoc.Close
Call WordObj.Application.quit
Sleep 2
fname = Left(fname,Instr(fname,".")-1)
Call newdoc.ComputeWithForm(False, False)
Call newdoc.Save(True, True)
Set uidoc = ws.EditDocument (False, newdoc)
uidoc.editmode = True
Call uidoc.GotoField( "Body" )
Call uidoc.Paste
Sleep 1
Call uidoc.Save
Call uidoc.Close
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set s =New NotesSession
Set db=s.CurrentDatabase
...
Die Zeile Set s = New Notessession kommt mir ein bisschen spanisch vor. Wo ist den da die dazugehörige "Dim" - Zeile?
Normalerweise sieht das so aus:
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim s As New NotesSession
Set db=s.CurrentDatabase
...
Axel