автоматизация Word2000

← →
DimonFalse (2004-01-23 18:05) [0]

Привет! Подскажите, пожалуйста. Я использую компоненты Word из закладки Servers. Использую Word2000. Вопрос первый, как выйти из таблицы, т.е. как вывести из нее курсор во вне таблицы. Второй не могу найти аналоги функций для применения стиля к заголовкам (Заголовок 1 и т.п.).

← →
Сергей Чурсин (2004-01-26 02:37) [1]

Компоненты не использовал, не знаю.
Автоматизацию можно сделать и так.

ExOle :OleVariant;
Sheet1, Sheet2, Cells:OleVariant;

procedure TForm1.ConnectToExcel;
begin
try
ExOle:=GetActiveOleObject("Excel.Application");
except
ExOle:=CreateOleObject("Excel.Application");
if ExOle.Workbooks.Count<1 then
ExOle.Workbooks.Add;
if ExOle.Workbooks[1].Sheets.Count<2 then
ExOle.Workbooks[1].Sheets.Add("Sheets1");
if ExOle.Workbooks[1].Sheets.Count<2 then
ExOle.Workbooks[1].Sheets.Add("Sheets2");
end;
ExOle.Visible:=true;

И т. д - смотреть хелп в оффисе к vba, там есть структура объектов excel, должна быть и word :)

← →
Amoeba (2004-01-26 11:56) [2]

В случае Word2000 см. файл справки vbawrd9.chm
Для других версий ищи аналогичный, название будет несколько иным.

автоматизация Word2000 Найти похожие ветки