Domino 9 und frühere Versionen > ND7: Entwicklung

Feldinhalt nach Word kopieren

<< < (4/5) > >>

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!

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete