Hallo,
habe ein Problem beim Färben einer Tabelle. Bekomme in der Zeile mit Call rtt.SetColor(COLOR_BLUE) die Fehlermeldung Type mismatch
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As Notesrichtextitem
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Msgbox("Richtextitem")
Call rtitem.appendtable( 1,1 )
'---------- Zugriff auf die Tabelle ---------------
Dim rtnav As NotesRichTextNavigator
Set rtnav = rtitem.CreateNavigator
Set rtt = rtnav.GetFirstElement(RTELEM_TYPE_TABLE )
If rtt Is Nothing Then
Messagebox "Dokument enthält keine Tabelle",, "No links"
Else
Msgbox("Tabelle gefunden")
'------- Tabelle einfärben -------------------------
Call rtt.SetColor(COLOR_BLUE)
Call doc.Save( False, True )
Call aktualisieren(doc)
End If
End If
End Sub
Kann es sein das rtt nicht deklariert ist?
Hast Du in den Options ein Option declare gesetzt?
Schau mal in der Hilfe nach SetColor, da fehlt jetzt noch einiges.
This agent sets the color for the first or only table in an item.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = db.UnprocessedDocuments
Dim doc As NotesDocument
Set doc = dc.GetFirstDocument
Dim rti As NotesRichTextItem
Set rti = doc.GetFirstItem("Body")
Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator
If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
Messagebox "Body item does not contain a table,",, "Error"
Exit Sub
End If
Dim rtt As NotesRichTextTable
Set rtt = rtnav.GetElement
rtt.Style = TABLESTYLE_TOP
Dim colorObject As NotesColorObject
Set colorObject = session.CreateColorObject
colorObject.NotesColor = COLOR_BLUE
Call rtt.SetColor(colorObject)
Call doc.Save(True, True)
End Sub
Gruss
André