А с TWordDocument у когонить получалось???
Найти одну строку в документе и поменять ее на другую.
Я пробовал сделать так:
Я пробовал сделать так:
Цитата:
WordDocument1->Range(EmptyParam,EmptyParam)->Find->Execute(str2find,MatchCase,MatchWholeWord, MatchWildcards,MatchSoundsLike,MatchAllWordForms,
Forward,Wrap,Format,str2replace,Replace);
Forward,Wrap,Format,str2replace,Replace);
Не работает, хотя в Дельфи пашет=(((
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))
это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))
это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
Цитата:
Originally posted by _kolyan
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))
это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))
это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
Спасибо огромное за ответ, попробую.
Цитата:
Originally posted by _kolyan
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))
это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
Не занаю точно как там начет TWordDocument, а вот если использовать TWordApplication то такой код работает, это точно
AnsiString str1, str2
WordApplication1->ActiveDocument->Content->Find->Execute(OleVariant(StringToOleStr(str1)), OleVariant(1))
это поиск строки, для замены добавляешь кучу EmptyParam (не помню сколько, а смотреть далеко) и в конце OleVariant(StringToOleStr(str2)) - строка для замены
Попробовал, таже самая хрень=(((
Чего с ней делать непонятно=(((
Может сурцы вышлешь которые работают.
Кстати у тя на какой системе все это работает???
У меня BCB5Ent + Word2k