Как програмно создать Word-документ и вставить рисунок по центру?

← →
тт (2005-10-02 11:12) [0]

Как програмно создать Word-документ и вставить рисунок с текстом
по центру, текст под рисунком?

И как вообще вставить рисунок в любое место документа?

У меня так, а как сделать чтобы все было по центру?

procedure TForm1.Button1Click(Sender: TObject);
var
Template, NewTemplate, ItemIndex:OleVariant;
begin
ItemIndex := 1;
Template := EmptyParam;
NewTemplate := False;

WordApplication1.Connect;
WordApplication1.Visible := True;
WordApplication1.Caption := "test01";
WordApplication1.Documents.Add(Template, NewTemplate);
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

picMoveToClipBrd(Image1.Picture.Bitmap);
WordDocument1.Range.Paste;

WordDocument1.Range.InsertAfter("test 1"+#13);
WordDocument1.Range.InsertAfter("test 2"+#13);
WordDocument1.Range.InsertAfter("test 3"+#13);

WordApplication1.Disconnect;
end;

end.

← →
YurikGL © (2005-10-02 13:01) [1]

Посмотри
W1.ActiveDocument.Shapes.

А вообще, напиши макрос и посмотри, как он выглядит.

← →
TStas © (2005-10-02 19:28) [2]

А чтобы получить значение констант VisualBasicа, которые Дельфи вообще говоря не понимает, надо внутри макроса написать MsgBox(нужная_константа). Тогда он покажет ее численное значение, их-то в дельфях и использовать

← →
тт (2005-10-02 21:20) [3]

Ok!
Разобрался, всем спасибо.

Как програмно создать Word-документ и вставить рисунок по центру? Найти похожие ветки