про Word

[alpt]

Хочу сделать простой вещь, открыть из Navision существующий Вордовый документ.

IF ISCLEAR(wdApp) THEN
CREATE(wdApp);
DocumName := 'c:\tmp.doc';
wdDoc := wdApp.Documents.Open(DocumName);
wdApp.Visible := TRUE;
CLEAR(wdDoc);
CLEAR(wdApp);

ругается "Неверно указана единица измерения".
Подскажите как сделать другой вещь, поменять кусок текста на другой, типа в шаблон вставляю актуальные значения

[Corleone]

Попробуй так:
DocumName := 'c:\tmp.doc';

IF NOT CREATE(wdApp,TRUE) THEN ERROR('MS Word is not installed!');
IF NOT EXISTS(DocumName)
THEN ERROR('File not found!');

wdDoc := wdApp.Documents.Open2000(DocumName);
wdApp.Visible := TRUE;
wdApp.Activate;

Цитата:

Сообщение от alpt

Подскажите как сделать другой вещь, поменять кусок текста на другой, типа в шаблон вставляю актуальные значения

wdFind - автоматион офиса Find
вход FindWhat, ReplaceWith

wdFind.ExecuteOld(FindWhat,FlagTrue,FlagFalse,FlagFalse,FlagFalse,FlagFalse,Flag
False,Wrap,FlagFalse,ReplaceWith,Replace);

[alpt]

Охренеть:
Проблема лечится отключением в Ворде на Панели форматирование кнопки Междустрочный интервал.
За поиск и замену спасибо.

[Fordewind]

Цитата:

Сообщение от alpt

Охренеть:
Проблема лечится отключением в Ворде на Панели форматирование кнопки Междустрочный интервал.
За поиск и замену спасибо.

Это какой Word? Не 2007 случаем?

[alpt]

2003 стоит

[kgenius]

Цитата:

Сообщение от alpt

Охренеть:
Проблема лечится отключением в Ворде на Панели форматирование кнопки Междустрочный интервал.
За поиск и замену спасибо.

С межстрочным интервалом в 2003 офисе кстати известный глюк, и вылезает он не только при работе с Navision, но и например при вызове документов Word из системы документаоборота DocsVision.

[NeNavision_imported]

Как инициировать wdFind ? Т.е. пользоваться реплейсом?

[NeNavision_imported]

Так
wrdFind := wrdDoc.Range.Find;
вроде заработало, но вылезает ошибка

p/s/ Выложите плз пример поподробнее. Я тупой и ничего не понимаю.

[NeNavision_imported]

О, ближе к часу ночи, умнею...
Такая ошибка вылетает при значении переменной Wrap = TRUE

А такое - пашет

FlagTrue := TRUE;
FlagFalse := FALSE;
Wrap := FALSE;  
Replace := TRUE;
wrdFind := wrdDoc.Range.Find;
FindWhat := '|inn-no|';
ReplaceWith := 'нафик ИНН хочу спать';
wrdFind.ExecuteOld(FindWhat,FlagTrue,FlagFalse,FlagFalse,FlagFalse,FlagFalse,FlagFalse,Wrap,Fla
gFalse,ReplaceWith,Replace);