Domino 9 und frühere Versionen > ND6: Entwicklung

Formatierungen aus RichText-Feld beim Kopieren beibehalten

<< < (2/2)

Bogdanovs:
Ich denke, das hier muss funktionieren:

   Dim rtNewItem As notesRichtextItem
   
'.......
   
   
   Set rtNewItem = New notesRichTextItem(newDoc, "txtVorlage")
   
   Dim rtExistingItem As notesRichTextItem
   Do  Until doc2 Is Nothing   
      rtNewItem.addNewLine(2)
      rtNewItem.AppendText(" " & doc2.numBeschluss(0) & " " & doc2.txtBetreff(0) &_
      Chr(13) & _
      "   " & Chr(13) & "   ")
      
      If doc2.hasItem("txtVorlage") Then
                       
         Set rtExistingItem = doc2.getFirstItem("txtVorlage")
         Call rtNewItem.AppendRTItem(rtExistingItem) '<- rich text inhalt aus doc2 wird hier hizufugt
      End If

      rtNewItem.addNewLine(1)                 
      rtNewItem.AppendText("__________________________________")      
      rtNewItem.addNewLine(1)
      
   '............
      
      Set doc2 = col.GetNextDocument(doc2)
   Loop
   
   
'....
   
   
   Call rtNewItem.Compact
   Call rtNewItem.Update
   
   Call workspace.EditDocument(True,Newdoc)   

Wiesel:
Danke für die schnelle Antwort.
Kriege ein Type Mismatch und komme erst gar nicht mit dem Debugger rein :o(
Außerdem fehlt mir dabei die Zusammensetzung über mein strAntwort...damit kriege ich das gar nicht hin....
Gibt es überhaupt eine Lösung für mein Problem???

Bogdanovs:
Ergänze bitte die funktion mit solche Kode. Dann werden wir wissen welche Zeile verursacht das Fehler.

Sub ProtokollDruck()

on error goto erh
dim rtExistingItem as notesRichTextItem

.......

exit sub
erh:
   Messagebox Error$ + " at line "  + cstr(erl)
exit sub
end sub

Copiere bitte auch die Ganze Funktion hier.

Michael Kl:
Das klappt super!


--- Zitat von: Bogdanovs am 18.12.09 - 15:17:41 ---Hallo!

Was du brauchst, ist das hier:

   Dim rtNewItem As notesRichtextItem
   Dim rtExistingItem As notesRichTextItem
   
   
   Set rtExistingItem = doc.getFirstItem("txtVorlage")
   Set rtNewItem = New notesRichTextItem(newDoc, "txtVorlage")
   Call rtNewItem.AppendRTItem(rtExistingItem)
   Call rtNewItem.Compact
   Call rtNewItem.Update
   
   Call ws.EditDocument(True, newDoc)   

--- Ende Zitat ---

Navigation

[0] Themen-Index

[*] Vorherige Sete