отчет в word

← →
Боева Наталья (2002-06-24 04:27) [0]

Допустим у меня есть форма с данными. Мне необходимо поместить эти данные в отчет, сформированный в MS Word97.
Я выполняю следующие действия:

word:=CreateOleObject("Word.Basic");
Word.AppShow;
Word.FileNew();

а вот дальше мне нужно поменять ориентацию станицы в word-е и добавить таблицу с данными.
Подскажите пожалуйста, как можно это сделать или ссылочку, где можно об этом прочитать.
Заранее большое спасибо.

← →
Bsl (2002-06-24 07:48) [1]

Попробуй все что теьбе надо сделать в Word, при этом записывай макрос.
Замечу, что константы тебе придется искать самому: типы ориентации страниц и прочее.
Для точного перехода в определенные места документа лучше всего использовать закладки...

← →
AFROLOV (2002-06-24 10:10) [2]

> Замечу, что константы тебе придется искать самому: типы
> ориентации страниц и прочее.

Можно в Object Browser их посмотреть. Или под дебагером.

← →
Боева Наталья (2002-06-24 10:16) [3]

Пробовала в самом ворде макрос написать - это получается.
Когда начинаю под делфи писать - машина ругается.
Но все равно за совет спасибо =)

← →
AFROLOV (2002-06-24 10:17) [4]

А ты код приведи на который Delphi ругается.

← →
Praco (2002-06-24 11:51) [5]

Зачем макрос?
Пример из VB справки
ActiveDocument.Sections(1).PageSetup.Orientation = wdOrientLandscape

//wdOrientPortrait = 0;
//wdOrientLandscape = 1;

← →
Боева Наталья (2002-06-25 02:58) [6]

Пишу код:

word:=CreateOleObject("Word.Basic");
Word.AppShow;
Word.FileNew();
word.ActiveDocument.Sections(1).PageSetup.Orientation := 1;

ругается типа "not supported by automation object" а дальше название объекта, например ActiveDocument или PageSetup и т.д.

← →
fnatali (2002-06-25 06:57) [7]

word.toggleportrait - книжная
word.togglelandscape - альбомная
таблица
word.TableInsertTable(1,ColCount,RowCount);
word.TableSelectTable;
word.BorderInside;
word.BorderOutside;

← →
Praco (2002-06-25 09:07) [8]

Боева Наталья (25.06.02 02:58)

Все правильно, только
Word.ActiveDocument.Sections.Item(1).PageSetup.Orientation := 1;

← →
SuperUmnik (2002-06-25 09:34) [9]

word:=CreateOleObject("Word.Application"); и word.Basic по разному себя ведут

← →
cpp (2002-06-25 09:54) [10]

Для того что бы такие вопросы не возникали надо знать что методы и свойства с которыми надо работать (для всех офисных приложений) беруться из VBA для конкретного приложения. Синтаксис можно взять из Helpа, который обязательно поставляется с офисом(самое главное галку включить при установке).

И конечно надо
word:=CreateOleObject("Word.Application");
работаем с Word
excel:=CreateOleObject("Excel.Application");
работаем с Excel

отчет в word Найти похожие ветки