Перезаписать содержимое закладки в Word

    vBookmarks = vDoc.OlePropertyGet("Bookmarks");                              
    vBookmark = vBookmarks.
            OleFunction("Item", WideString("test"));    
    vSelection = vApp.OlePropertyGet("Selection");                         
    vSelection.OleProcedure("GoTo",(int)-1,0,0,WideString("test"));
    vFont = vSelection.OlePropertyGet("Font");
    vFont.OlePropertySet("Bold",true);
    vFont.OlePropertySet("Size",12);
    vBookmark.OlePropertyGet("Range").
        OlePropertySet("Text",WideString(Form1->Edit1->Text));              
    vBookmarks.OleFunction("Add",WideString("test"));

// ...
    const int wdCharacter = 1;
    // ...
        Variant vBookmark = vBookmarks.OleFunction("Item", bmName);
        vBookmark.OlePropertyGet("Range").OleProcedure("Select");
 
        Variant vSelection = vApp.OlePropertyGet("Selection");
        vSelection.OleProcedure("MoveStart", wdCharacter, 1); // текст между пробелами, чтобы закладка не удалялась
        vSelection.OleProcedure("MoveEnd", wdCharacter, -1);
        Variant f = vSelection.OlePropertyGet("Font");
        f.OlePropertySet("Bold", true);
        f.OlePropertySet("Italic", true);
        vSelection.OlePropertySet("Text", WideString(Form1->Edit1->Text));
        vApp.OlePropertyGet("Selection").OleProcedure("Collapse", (Variant)0); // снимаем выделение

f.OlePropertySet("Bold", true);
f.OlePropertySet("Italic", true);