Замена слов MS Word

    String folder     = "C:\\temp\\Шаблон.docx";
 
    Variant vVarApp,vVarDoc,Doc,vBookmarks;
    vVarApp = CreateOleObject("Word.Application");
    vVarApp.OlePropertySet("Visible",false);
    vVarApp.OlePropertySet("DisplayAlerts", false);
 
    vVarDoc = vVarApp.OlePropertyGet("Documents");
    vVarDoc.OleFunction("Open", StringToOleStr(folder));
 
        vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", WideString("$1$"), false, false, false, false, false, true, 1, false, WideString("XXXX"), 2);
 
    vVarDoc.OleProcedure("Save");
    vVarApp.OleProcedure("Quit");
    VarClear(vVarApp);

    vVarDoc = vVarApp.OlePropertyGet("Documents");
    vVarDoc.OleFunction("Open", StringToOleStr(folder));
 
    String r =
        L"это очень длинная замена одного слова на другое, только для того, "
        "чтобы проверить баг, описанный на теме в разделе по С++ Билдеру "
        "на Киберфоруме пользователем с ником Dinkin. И даже этого очень "
        "длинного текста не хватает для того, чтобы пересечь границу в 250 "
        "символов, откуда и появилась необходимость в дополнении текста";
 
    bool b = false;
    do
    {
        b = vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").
            OleFunction("Execute", WideString("$1$"));
        if(b)
        {
            vVarApp.OlePropertyGet("Selection").
                OleProcedure("TypeText", WideString(r));
        }
    } while(b);
 
    vVarDoc.OleProcedure("Save");
    vVarApp.OleProcedure("Quit");