ilovefox, возможно Вам имеет смысл контролировать события Word-а. Отыскал у себя древнюю процедуру, которая позволяет это делать. Текст ниже

DO Word_Event WITH "C:\Мой_Документ.DOC"

*********************************************************************************
* Процедура загружает СОМ-сервер WORD и отслеживает его события при изменении
* документа. Входной параметр cName_Word_Doc содержит путь доступа и имя доку-
* мента, если этот параметр опущен, загружается новый документ.
*********************************************************************************
PROCEDURE Word_Event
PARAMETERS cName_Word_Doc &&, lnKodTypeDogovors, nConnect, lcSelect

#DEFINE TRUE .T.
#DEFINE FALSE .F.

PUBLIC oWord as Word.Application
PUBLIC gcName_Word_Doc, glnKodTypeDogovors, gnConnect, gcSelect, oWordEvents, oWord
gcName_Word_Doc=cName_Word_Doc
*glnKodTypeDogovors=lnKodTypeDogovors
*gcSelect=lcSelect
*gnConnect=nConnect

oWordEvents = NEWOBJECT("WordEvents") && Объект событий Word
oWord = NEWOBJECT("Word.Application") && Загрузка СОМ-сервера Word
oWordEvents.oWord = oWord
*** Связать COM-сервер с методами интерфейса на объекте FoxPro.
IF !EVENTHANDLER(oWord,oWordEvents)
MESSAGEBOX("Ошибка при вызове СОМ-сервера. Операция отменена.",;
16,"Ошибка при вызове Word")
EVENTHANDLER(oWord,oWordEvents,.T.) && Разорвать соединение с СОМ-сервером
RELEASE oWordEvents, oWord
RETURN -1
ENDIF
oWord.Visible = .t. && Сделать СОМ-сервер видимым
oWord.Activate && Сделать СОМ-сервер активным

IF EMPTY(cName_Word_Doc)
oWord.Documents.Add && Создать новый документ в СОМ-сервере
ELSE
oWord.Documents.Open(cName_Word_Doc) && Открыть документ в СОМ-сервере
ENDIF

DEFINE CLASS WordEvents as Custom
IMPLEMENTS applicationevents2 IN "word.application"
oWord = .NULL.
PROCEDURE ApplicationEvents2_startup()
PROCEDURE ApplicationEvents2_quit
*Выход без сохранения (если не было изменений)
oWord.Quit
This.oWord=.NULL.
PROCEDURE ApplicationEvents2_DocumentBeforeClose(Cancel,Doc)
*Выход (если были изменения).Вызывается диалог(Сохранить изменения*?-ДА-НЕТ-ОТМЕНИТЬ
* если ДА - вызов метода ApplicationEvents2_DocumentBeforeSave
* если НЕТ - вызов метода ApplicationEvents2_quit
* если ОТМЕНИТЬ - вызов метода ApplicationEvents2_WindowActivate
PROCEDURE DocumentBeforeClose(Cancel,Doc)
PROCEDURE ApplicationEvents2_DocumentBeforePrint(Cancel,Doc)
*При печати документа
PROCEDURE ApplicationEvents2_DocumentBeforeSave(Doc,SaveAsUI,Cancel)
*Сохранить документ: SaveAsUI=.F. -сохранить, SaveAsUI=.T. - сохранить как
oWord.Documents.Save
= Save_IN_SQL (gcName_Word_Doc) &&, glnKodTypeDogovors, gnConnect, gcSelect)
PROCEDURE ApplicationEvents2_DocumentChange
*При загрузке нового документа, может означать измение в документе
PROCEDURE ApplicationEvents2_DocumentOpen(Doc)
*При открытии документа в диалоге OPEN
PROCEDURE ApplicationEvents2_NewDocument(Doc)
*При создании нового документа
PROCEDURE ApplicationEvents2_WindowActivate(Doc,Wn)
*При активации Word или документа
PROCEDURE ApplicationEvents2_WindowBeforeDoubleClick(Sel,Cancel)
*При двойном щелчке левой кнопки мыши
PROCEDURE ApplicationEvents2_WindowBeforeRightClick(Sel,Cancel)
*При вызове всплывающего меню по правой кнопке мыши
PROCEDURE ApplicationEvents2_WindowDeactivate(Doc,Wn)
*При деактивации Word
PROCEDURE ApplicationEvents2_WindowSelectionChange(Sel)
*При выделении или удалении фрагмента текста или отмены изменений.
*Возвращает выделенный фрагмент, если фрагмент не выделен - возвращает
*следующую за курсором букву
PROCEDURE Destroy
*При завершении работы СОМ-сервера
IF !ISNULL(This.oWord)
EVENTHANDLER(This.oWord,This,.T.) && Разорвать соединение с СОМ-сервером
IF TYPE('oWord')="O" &&AND !ISNULL(oWord)
This.oWord.Quit
oWord.Quit
This.oWord=.NULL.
oWord=.NULL.
ENDIF
ENDIF
oWordEvents=.Null.
RELEASE oWordEvents

RELEASE gcName_Word_Doc, glnKodTypeDogovors, gcSelect
ENDDEFINE

PROCEDURE Save_IN_SQL && Сохранить изменённый документ в БД SQL
PARAMETERS lcWordDocNew &&, lnKodTypeDogovors, lnConnect, lcSelect

WAIT "СОХРАНИТЬ ДОКУМЕНТ" WINDOW

RETURN