Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

А с TWordDocument у когонить получалось???

358
16 января 2003 года
moonmike
423 / / 18.10.2002
Найти одну строку в документе и поменять ее на другую.
Я пробовал сделать так:
Цитата:
WordDocument1->Range(EmptyParam,EmptyParam)->Find->Execute(str2find,MatchCase,MatchWholeWord, MatchWildcards,MatchSoundsLike,MatchAllWordForms,
Forward,Wrap,Format,str2replace,Replace);


Не работает, хотя в Дельфи пашет=(((

362
17 января 2003 года
_kolyan
339 / / 03.12.2002
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))

это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
358
17 января 2003 года
moonmike
423 / / 18.10.2002
Цитата:
Originally posted by _kolyan
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))

это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены


Спасибо огромное за ответ, попробую.

358
17 января 2003 года
moonmike
423 / / 18.10.2002
Цитата:
Originally posted by _kolyan
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))

это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены


Попробовал, таже самая хрень=(((
Чего с ней делать непонятно=(((
Может сурцы вышлешь которые работают.
Кстати у тя на какой системе все это работает???
У меня BCB5Ent + Word2k

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог