VPF::Поля в Word №2 :) - Форум программистов

Com123

Дата 16.9.2005, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.9.2005

Репутация: нет
Всего: нет

Создаём новый докУмент, и пытаемся изменить верхнее поле(да вообще любое):

Код


var
  wrd: OleVariant;

begin
  wrd:=CreateOLEObject('Word.Application');
  wrd.Documents.Add(EmptyParam,EmptyParam);
  //wrd.Visible:=True;
  wrd.ActiveDocument.PageSetup.TopMargin := wrd.CentimetersToPoints(0.63);
end;

В итоге на последней строке(несмотря на то, что она сделана по аналогии со скриптом макроса)
получаем исключение EOleSysError "Неопознанная ошибка"(Микрософт мать его хоть бы ошибки
научился детализировать...). Где грабли??? smile

Albinos_x

Дата 17.9.2005, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

у меня всё работает, попробуй так:

Код


var    
  wrd: OleVariant;    
begin    
  wrd:=CreateOLEObject('Word.Application');    
  wrd.ConnectKind := ckNewInstance;
  wrd.AutoConnect:=true;
  wrd.Documents.Add(EmptyParam,EmptyParam);    
  wrd.Selection.PageSetup.TopMargin := wrd.CentimetersToPoints(0.63);    
end;

Добавлено @ 22:09
упс.. не заметил:

Цитата

wrd.ActiveDocument.PageSetup.

у меня:

Цитата

wrd.Selection.PageSetup.TopMargin

мой должен быть рабочим... Проверял...

Это сообщение отредактировал(а) Albinos_x - 17.9.2005, 22:04

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Com123

Дата 19.9.2005, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.9.2005

Репутация: нет
Всего: нет

Блин не пашет твой вариант, то же исключение.
Короче трабла в CentimetersToPoints
пишу

Код


  wrd.Selection.PageSetup.TopMargin := 1;

и все ок

блин и как эту проблему решить?

Это сообщение отредактировал(а) Com123 - 19.9.2005, 21:49

Albinos_x

Дата 23.9.2005, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

странно, но у меня всё работает...

------

когда выполняешь другие действия ошибка возникает?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »