Где можно найти скрипты для векторного рисования в Word'е с помощью Word := CreateOleObject('Word.Application'); ? Заранее спасибо!

Запиши макрос в момент рисования - вот тебе и практически готовый скрипт

Спасибо!

Подскажите, что надо ставить на место msoSegmentCurve в команде
Word.ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, 120, 180).AddNodes( msoSegmentCurve, msoEditingAuto, 160, 340); ?
msoEditingAuto - это, видимо,  номер шаблона, например 4?
Заранее спасибо!

Вроде нашел где-то, что msoEditingAuto=0; msoSegmentCurve=1. Но теперь выдается ошибка "отказано в доступе" в последней строке следующего кода:
Const msoEditingAuto=0;
        msoSegmentCurve=1;
begin
Word.ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, 122.4, 165.6).AddNodes( msoSegmentCurve, msoEditingAuto, 360, 194.4);
Word.ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, 122.4, 165.6).ConvertToShape.Select;

А что пытаешься сделать?

Нарисовать кривую