| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как програмно создать Word-документ и вставить рисунок по центру?
тт © (2005-10-02 11:12:00)Как програмно создать 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.
тт (2005-10-02 21:20:00) [1]Ok!
Разобрался, всем спасибо.
TStas (2005-10-02 19:28:00) [2]А чтобы получить значение констант VisualBasicа, которые Дельфи вообще говоря не понимает, надо внутри макроса написать MsgBox(нужная_константа). Тогда он покажет ее численное значение, их-то в дельфях и использовать
YurikGL (2005-10-02 13:01:00) [3]Посмотри
W1.ActiveDocument.Shapes.
А вообще, напиши макрос и посмотри, как он выглядит.
| |
