Мне потребовалось вставить рисунок в документ Word, не раздвигая
текст (перед текстом или за текстом). По логике должно быть ка-
кое-то свойство, но найти его не смогла.
Эту проблему можно решить путем использования объектов коллекции
Shapes. Объекты коллекции Shapes могут использовать в качестве запивки
рисунки, загружаемые из файла. Другим свойством этих объектов является
то, что их можно разместить как перед текстом, так и за текстом документа
Word. Следующий фрагмент программы с помощью этих свойств помещает
рисунок за текст документа Word (в примере сначала вставляется текст, а
затем рисунок).
Рис. П2.1. Рисунок размещен в документе Word за текстом
Вставка рисунка в документ Word без перемещения текста
const
msoTextOrientationHorizontal=1;
msoSendBehindText=5;
var W:variant;
procedure TForml.ButtonlClick(Sender: TObject);
begin
W:=CreateOleObject('Word.Application');
W.Visible:=True;
W.Documents.Add;
W.Selection.range:='Записываем текст в документ';
end;
procedure TForml.Button2Click(Sender: TObject);
begin
W.ActiveDocument.Shapes.AddShape(msoTextOrientationHorizontal,
80, 60, 120, 100);
W.ActiveDocument.Shapes.Item(1).ZOrder(msoSendBehindText);
W.ActiveDocument.Shapes.Item(1).Fill.UserPicture('С:\1.JPG');
end;
Результат представлен на рис. П2.1. |
Главная
Каталог файлов
