call ctxDump.getRichTextItem(doc,"Body")
dim o as rtTable, c as rtCell
Set o = ctxDump.Tables.NextElement
set c = o.cells(1,3)
c.AlignVertical = CDTABLECELL_VALIGNBOTTOM
o.cells(1,2).AlignVertical = CDTABLECELL_VALIGNTOP ' valid parameters - CDTABLECELL_VALIGNTOP CDTABLECELL_VALIGNBOTTOM ' CDTABLECELL_VALIGNCENTER
Set coll = ctxDump.Collection (PARSE_GROUP_GRAPHIC) ' get rulers and paint 'em
coll.getFirstElement
coll.getNextElement.Color.setRGB 100,250,0
|