Domino 9 und frühere Versionen > ND7: Entwicklung
Feldinhalt nach Word kopieren
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
--- Ende Code ---
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
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln