Скачать: CL | DM;

Как програмно создать 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!
Разобрался, всем спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c