Domino 9 und frühere Versionen > ND6: Entwicklung

Von Word nach Lotus Notes exportieren

<< < (3/4) > >>

steve23:
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 ?

--- Code: ---Set newdoc= New NotesDocument (db)
--- Ende Code ---


--- Code: ---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
--- Ende Code ---

Axel:
Hast du den Code mit Copy&Paste übernommen?

Wenn ja, das lösch mal die Zeile und tippe sie neu ein. Es kann nämlich sein, dass da was mit übernommen wurde was nicht hingehört und sich deswegen die Syntaxprüfung beschwert.

Axel

steve23:
Hallo Axel,

habe jetzt neu eingetippt, leider tritt immer noch die gleiche Fehlermeldung auf.
komisch...hast du das bei dir versucht und hat es funktioniert ?

koehlerbv:
Ist das eigentlich der komplette Code? Da fehlen ja noch sackweise Deklarationen.

Bernhard

Axel:
Den Code selbst habe ich bei mir nicht versucht.


--- Code: ---Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set s =New NotesSession
Set db=s.CurrentDatabase
...

--- Ende Code ---

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:


--- Code: ---Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim s As New NotesSession

Set db=s.CurrentDatabase
...

--- Ende Code ---


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete