DAX Функция Replace в Word

[vazerdim]

Добрый день, коллеги,
Может у кого то есть готовая функция для поиска текста в MS Word и его замены через COM?
Не смог найти на форуме, что бы мне могло помочь.
Заранее спасибо!

DAX 2009 RU8

[Player1]

Для Excel есть

boolean replace(int     _workSheet,
                str     _range,
                str     _what,
                str     _replacement,
                int     _xlLookAt           = #xlPart,
                int     _xlSearchOrder      = #xlByRows,
                boolean _matchCase          = false,
                boolean _matchByte          = false)
{
    COM range = this.findRange(_range, _workSheet);

    return range.replace(_what, _replacement, _xlLookAt, _xlSearchOrder, _matchCase, _matchByte);
}

[vazerdim]

Спасибо, но для Word, я думаю нужно что то типа такого:

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "FromText"
        .Replacement.Text = "ToText"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

Но у меня не получается написать такую функцию в Ax, постоянно выходит ошибка не верное кол-во параметров.

selection =  m_comApplication.selection();
selection.find('FromText', 
                    'ToText',
                    COMVariant::createFromBoolean(true),
                    1,
                    COMVariant::createFromBoolean(false),
                    COMVariant::createFromBoolean(false),
                    COMVariant::createFromBoolean(false),
                    COMVariant::createFromBoolean(false),
                    COMVariant::createFromBoolean(false),
                    COMVariant::createFromBoolean(false));

[michel1971]

void replace(str    _from, str  _to)
{
    COM         selection;
    COM         selectionFind;

    try
    {
        selection = m_comApplication.selection();
        selectionFind = Selection.Find();
        selectionFind.Execute(_from, false, false, false, false, false, true, 0, false, _to, 2);

    }

    catch(exception::Error)
    {
         checkFailed(strFmt("@SYS19306", funcName()));
    }

    if (selection)
        selection.finalize();

}

[vazerdim]

Цитата:

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

void replace(str    _from, str  _to)
{
    COM         selection;
    COM         selectionFind;

    try
    {
        selection = m_comApplication.selection();
        selectionFind = Selection.Find();
        selectionFind.Execute(_from, false, false, false, false, false, true, 0, false, _to, 2);

    }

    catch(exception::Error)
    {
         checkFailed(strFmt("@SYS19306", funcName()));
    }

    if (selection)
        selection.finalize();

}

Больше спасибо, то что нужно!