Domino 9 und frühere Versionen > Entwicklung

Daten aus Rich Text Feld "spiegeln"

<< < (2/4) > >>

Fitz:
Hallo zusammen,

ich greif das Thema nochmals auf. Ich möchte den Inhalt eines RTF Feld in ein anderes RTF Feld im GLEICHEN Dokument kopieren.

Beim speichern des Script kommt "Not a Member: DOCUMENT" als Fehler. Die Zeile "Set docCurrent = Source.Document" wird rot markiert.


Sub Click(Source As Button)
   
   Dim docCurrent As NotesDocument
   Dim itemRTF As NotesItem
   
   Set docCurrent = Source.Document
   
   Set itemRTF = docCurrent.GetFirstItem ("rt1")
   Set itemRTF = itemRTF.CopyItemToDocument (docCurrent, "rt2")
   
End Sub


Hab ich was vergessen ???

Gruß
Bernd

TRO:
Ja, weil Source der Button und nicht das UIDoc ist.

Also
set doc = ws.CurrentDocument.Document
verwenden

Fitz:
Hallo TRO,

Danke für die Hilfe. Jetzt bekomm ich "Variant does not contain an object" als Fehlermeldung.

Noch ne Idee ???

Danke

Bernd

ascabg:
Hallo,

Was hast Du denn jetzt wo geaendert gegenueber dem geposteten Code?


Andreas

Fitz:
Hallo Andreas,

hier mein Code vom Button in der Maske:

Sub Click(Source As Button)

   Dim docCurrent As NotesDocument
   Dim itemRTF As NotesItem
   
   Set doc = ws.CurrentDocument.Document
   
   Set itemRTF = docCurrent.GetFirstItem ("rt1")
   Set itemRTF = itemRTF.CopyItemToDocument (docCurrent, "rt2")
   
End Sub


Bernd

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete