PUBLIC goWord 

#DEFINE True .T.
#DEFINE False .F.

lcOldError = ON("ERROR")
ON ERROR goWord = .NULL.
goWord = GetObject(, "Word.Application")
ON ERROR &lcOldError

IF ISNULL(goWord)
	goWord = CreateObject("Word.Application")
ENDIF

WITH goWord
	.Documents.Open("Имя документа") 		&& Возможно понадобится указать полный путь к документу

	* Выполняем изменение значения в ячейке находящейся на пересечении  1 -ой строки и  2 -го столбца
	.ActiveDocument.Tables( 1 ).Cell( 1 ,  2 ).Select
	.Selection.TypeText("Новое значение")
	
ENDWITH

goWord.Visible = .t.

RELEASE goWord