Дописать информацию в уже открытый документ Word

// ...
    String AWordDoc = "D:\\test\\02.doc"; // это тот документ, который надо отредактировать 
    Variant vApp, vDocs, Docs;
    bool found = false;
 
    __try
    {
        vApp = GetActiveOleObject("Word.Application"); // Есть открытый Word?
        vDocs = vApp.OlePropertyGet("Documents");
        int Count = vDocs.OlePropertyGet("Count");
        for(int i = 1; i <= Count; i++) // Пытаемся найти среди открытых документов нужный
        {
            Docs = vDocs.OleFunction("Item", i);
            String fn = Docs.OlePropertyGet("FullName");
            if(fn == AWordDoc)
            {
                Docs.OleProcedure("Activate"); // Нашли - активируем его и уходим
                found = true;
                break;
            }
        }
    }
    catch(EOleSysError &E)
    {
        vApp = CreateOleObject("Word.Application"); // Нет Word-а - создаем
        vApp.OlePropertySet("Visible", OleVariant(true));
    }
 
    if(!found) // ... и открываем файл, если он не был открыт, ну, или из шаблона, тебе видней
    {
        Docs = vApp.OlePropertyGet("Documents").OleFunction("Open", WideString(AWordDoc));
    }
 
    // Всё, дальше - без изменений...
    Variant vDoc = vApp.OlePropertyGet("ActiveDocument");