Можно ли в Writer рисовать макросом также, как и в Draw?
 

Прочитал документацию, но...Необходимо в текстовый документ добавить рисованые объекты - прямоугольники, линии и т.п. Код макроса, приведенный в литературе работает в Draw, но не хочет работать в Writer. Например:Код:Dim Doc As ObjectDim Page As ObjectDim LineShape As ObjectDim Point As New com.sun.star.awt.PointDim Size As New com.sun.star.awt.SizePoint.x = 1000Point.y = 1000Size.Width = 10000Size.Height = 10000Doc = StarDesktop.CurrentComponentPage = Doc.drawPages(0)LineShape = Doc.createInstance("com.sun.star.drawing .LineShape")LineShape.Size = SizeLineShape.Position = PointPage.add(LineShape)Вроде ведь структура объектов одинакова, но не работает. Остается только путь программирования с помощью имитации команд Код:dispatcher.executeDispatch(document, ".uno:InsertDraw", "", 0, Array())?