Set MyRectangle = myDocument.Rectangles.add
MyRectangle.htmlItems.add
MyRectangle.htmlItems(1).htmlcontent="<font color='RED'>HTML test</font>"
MyRectangle.htmlItems(1).htmlcontent="<font color='RED'>HTML test</font>"
' По непонятной мне причине, чтобы сработало нужно 2 раза присваивать значение свойству htmlcontent,
' возможно просто нужно устанавливать еще какие-то свойства объекта htmlItem или вызывать методы