Feldinhalt nach Word kopieren

[ewald]

Hallo zusammen,

ist es möglich den Inhalt eines RTF's per Button (Script) in ein Word Dokument zu kopieren? Wenn ja, wie geht das?

Danke und Gruß

[botschi]

Was hast Du denn vor?
Es gibt hier einen Agenten im Forum, der aus kompletten Mails ein Word-Dok erzeugt. Vielleicht kannst Du den ändern. Nutz mal die Suche.

[Axel]

Wenn es um reinen Text geht ist das relativ einfach. Siehe den von botschi erwähnten Agenten.

Geht's um den formatierten Text oder auch um Bilder geht das nur im Frontend, sprich gesamten Inhalt markieren, in die Zwischenablage kopieren und das dann in Word einfügen.


Axel

[cgorni]

Wenn man ein wenig mit LotusScript experimentieren möchte: hier ist eine Klasse, die ich mal geschrieben habe, mit deren Hilfe man Feldinhalte oder andere Werte and bestimmte Stellen im Word-Dokument schreiben kann.

Auf Word-Seite benutzt man dazu Textmarken (engl. bookmarks).

Hier die Klasse:

http://www.openntf.org/Projects/codebin/codebin.nsf/CodeBySubContributor/140DBC2F3D10E48A862570B300342C7B

Vielleicht hilft auch der LotusScript-Code als Einstieg in das Thema.

[Jens*]

@cgorni.

Sowas habe ich auch gerade gesucht! Danke! Was mache ich denn wenn ich einen Feldinhalt an Word übermitteln will. ?

Call report.writeTextToBookmark("Bookmark1", Feldname)

geht nicht..

Grüße, Jens

[Axel]

Was heißt: geht nicht?

Ein paar mehr Infos müssen schon sein.

Fehlermeldung(en)!?

Gibt es die Textmarke Bookmark1 in deinem Word-Dokument?


Axel

[Jens*]

Ich hätte es besser erklären sollen. Wenn ich den Agenten ändere kommt eine Fehlermeldung:

Create Word Document: Initialze: 12: Type mismatch on GERNERALDESCRIPTION_1

So sieht der Code aus:
Call report.writeTextToBookmark("GeneralDescription", GeneralDescription_1) ' bookmark must exist in word template

Bookmark Name existiert u. "Text" wird auch übergeben.. Hab sicher irgendwas übersehen!

Grüße, Jens

[Axel]

Was für ein Feldtyp ist denn das Feld GeneralDescription_1 ?


Axel

[Jens*]

Text !

[Axel]

Versuch's mal so:

Dim doc As NotesDocument

...

Call report.writeTextToBookmark("GeneralDescription", doc.GeneralDescription_1(0))

....


Axel

[Jens*]

Dann bekomme ich beim ausführen des Macros den Fehler: Object Variable not set
Jens

[Axel]

Dann ist mit Sicherheit die Variable doc nicht gesetzt.

Poste mal deinen gesamten Code. Ist das ein Agent oder liegt der Code hinter einem Aktionsbutton? Wird das Teil auf einem Dokument oder einer Ansicht aufgerufen?


Axel

[Jens*]

So sieht der Agent aus:

Code

Sub Initialize
	Const WORDPATH = "C:\Test.doc"
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim report As WordReport
	Dim doc As NotesDocument
	
	Set db = session.CurrentDatabase
	Set report = New WordReport (WORDPATH, False) ' false = don't show word
	
'	Messagebox report.getversion()
	Call report.writeTextToBookmark("GeneralDescription", doc.GeneralDescription_1(0)) 
	Call report.setVisibility(True)
	
End Sub

[Axel]

Alle meine Fragen hast du nicht beantwortet. Mir fehlt die Antwort zu der Frage ob der Code aus einer Ansicht oder einem Dokument heraus ausgeführt wird.

Ich gehe mal von einer Ansicht aus. Dann muss das Ganze so aussehen:

Sub Initialize
   Const WORDPATH = "C:\Test.doc"
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
                Dim collection As NotesDocumentCollection
   Dim report As WordReport
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set report = New WordReport (WORDPATH, False) ' false = don't show word
   
                Set collection = db.UnprocessedDocuments  'Zugriff auf markiertes Dokument
                If collection.Count > 1 Then
                    Messagebox "Es darf nur ein Dokument markiert sein"
                    Exit Sub
                End If

                Set doc = collection.GetFirstDocument

'   Messagebox report.getversion()
   Call report.writeTextToBookmark("GeneralDescription", doc.GeneralDescription_1(0))
   Call report.setVisibility(True)
   
End Sub


So ganz grob sollte das funktionieren.


Axel

[Jens*]

Oh, da hatte ich zu schnell gelesen. Momentan wird es aus einer Maske erzeugt. Wollte beide Möglichkeiten einbauen!

Dein Code für die Ansicht funktioniert ! Vielen Dank!

Jens

[Axel]

Für die Ausführung innerhalb der Maske muss das Ganze so aussehen:

Sub Initialize
   Const WORDPATH = "C:\Test.doc"
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim report As WordReport
   Dim doc As NotesDocument
   
   Set report = New WordReport (WORDPATH, False) ' false = don't show word

   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document   

'   Messagebox report.getversion()
   Call report.writeTextToBookmark("GeneralDescription", doc.GeneralDescription_1(0))
   Call report.setVisibility(True)
   
End Sub

Axel

[Jens*]

Hallo,

ich hätte da noch eine Frage. Wenn ich den Code in einer Ansicht aufrufe u. mehrere Einträge markiere. Ist es möglich, dass er mir dann alle markierten Einträge in ein Word Dokument markiert?

So in etwa solls dann aussehen..
Word Dokument:
Dokument 1
Feld A
Feld B
Feld C

Dokument 2
Feld A
Feld B
Feld C

Danke,

Jens

[Axel]

Klar ist das möglich. Du musst den Code nur entsprechend umbauen. So in der Art, dass du vor der Schleife, in der du die markierten Dokumente beackerst, ein neues Word-Dokument anlegst und alle gewünschten Daten in diese Dokument schreibst.

Ich kenne die Klasse nicht im Detail, so dass ich dir nicht sagen kann wie groß der Aufwand ist.


Axel

[Legou]

Tach zusammen,

ich hätte da vielleicht noch ne Idee bzw. Lösung für das Problem
NotesToWord mal bei google eingeben dann müßtest du schnell über ne nsf stolpern.
Achtung bei übernehmen der Werte nach Word kann die .nsf nur Txt Felder verarbeiten

MFG
René

[Jens*]

Hallo,

mittlerweile bin ich mit dem Skript so ganz zufrieden.
Kann man eigentlich Const WORDPATH = "C:\Template.dot" auch in die Datenbank verlagern? Was müßte ich da ändern.

Danke!