Von Word nach Lotus Notes exportieren

[steve23]

Hallo Leute,

bin neu hier im Forum, habe schon hier im Forum durchgesucht, leider nichts passendes gefunden.
Ich möchte die Daten von Word nach Lotus Notes exportieren.
Meine Frage ist wie kann ich das automatisieren ? Zurzeit mache ich das immer so, alle Daten im Worddatei markieren (Strg + A) dann kopieren (Strg + C) und anschließend im LotusNotes einfügen.


mfg steve

[Axel]

Herzlich willkommen hier im Forum.

Als eine Alternative fällt mir dazu die COM-Schnittstelle ein.

Schau mal hier: http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/1e9e5401655096c28525705f005bb16c?OpenDocument

und auch hier: http://www.redbooks.ibm.com/abstracts/sg245670.html?Open


Axel

[steve23]

Hallo Axel

danke mal für deine Hilfe.
mit COM-Schnittstelle kenne ich mich zuwenig aus. Ich habe mir den Code angeschaut ist für mich kompliziert. Gibt es nicht was einfacheres oder DB-Beispiele ?

[m3]

Programmieren lassen (Hausinterne Entwickler oder ext. Dienstleister? 

[Axel]

Wenn du es automatisieren willst, wird es kaum einfacher gehen. Beispiel-DBs für für deine Problematik sind mir keine bekannt. D.h. nicht, dass es keine gibt. Aber selbst die sind mit Sicherheit nicht 100% das was du brauchst, so dass du auch hier programmieren und somit den vorhandenen Code erstmal verstehen musst.

Axel

[steve23]

ok verstehe, dann muss ich halt weiterhin manuell kopieren und einfügen.

habe mir so gedacht.
Worddatei öffnen
Daten markieren
Daten kopieren
Im Lotus Notes "Neues Memo" öffen
Daten einfügen fertig

hört sich einfach an, aber so leicht ist das nicht.

[m3]

Wenn man (COM) programmieren kann, ist es leicht. 

[steve23]

Hallo M3

dann habe ich eine Frage, was ist COM ?

[Axel]

dann habe ich eine Frage, was ist COM ?

Guckst du hier: http://de.wikipedia.org/wiki/Component_Object_Model


Axel

[bend0r]

*rofl*

@Axel : gleiche Antwort wäre auch von mir gekommen

@steve23: Bist du Entwickler oder Anwender? Hast du ggf Rechte um dir selbst einen Agenten zu erstellen bzw den Designer? Wenn ja, ist es relativ trivial. Guck dir mal die Antworten zu den Linkvon Axel an innerhalb des IBM-Forums an, da bekommst du fast schon ne Musterlösung

grüsse Rene

[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)

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 

[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
...

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
...

Axel

[steve23]

@Axel jetzt kommt diese Fehlermeldung nicht mehr, danke

naja wie gesagt kenne ich mich hier noch nicht so gut aus....
ich gebs auf, ist mir einfach zu kompliziert. ausser es kann mir jemand genauer erklären
danke schon mal für eure Hilfe!