Как нарисовать в Write макросом фигуру в координатах
 

Помогите, пожалуйста, очень надо нарисовать чертеж в Write.Есть код, который рисует линию и вставляет в позицию курсора:Код:Dim Page, LineShapeDim Point, Size, CursorSet Page = oDoc.DrawPageSet Cursor = oDoc.Text.createTextCursorSet Point = CreateUnoStruct("com.sun.star.awt.Point" )Set Size = CreateUnoStruct("com.sun.star.awt.Size") Point.X = 0Point.Y = 0Size.Width = 5000Size.Height = 5000Set LineShape = oDoc.createInstance("com.sun.star.drawin g.LineShape")LineShape.setSize SizeLineShape.SetPosition PointoDoc.Text.insertTextContent Cursor, LineShape, FalseНадо сделать так, чтобы линия вставлялась просто независимо от текста в то место, координаты которого были указаны. А сейчас она вставляется в текст, также как вставилась бы крупная буква.Если последнюю строку написать так: Код:Page.Add LineShapeто при этом линия множится на каждой странице.Как решить такую проблему?