*
LOCAL lcOldError, loWord, lnCountDoc, lcNaimDoc, lcRange

#DEFINE True .T.
#DEFINE False .F.
lcOldError = ON("ERROR")
ON ERROR loWord = .NULL.
loWord = GetObject(, "Word.Application")
ON ERROR &lcOldError

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

WITH loWord
	* В переменную - lnCountDoc получаем количество открытых документов в Word
	lnCountDoc = .Documents.Count

	* Если нет открытых документов, то добавляем
	IF lnCountDoc =  0 
		.Documents.Add
	ENDIF

	* В пременную - lcNaimDoc получаем имя первого документа
	lcNaimDoc = .Documents.Item( 1 ).Name

	* Активируем документ имя которого расположено в переменной - lcNaimDoc 
	.Documents(lcNaimDoc).Activate

	* В переменную - lcRange назначаем интервал в который должна добавится таблица	
	lcRange = .ActiveDocument.Range( 0 ,  0 )

	* Добавляем таблицу из  2  - строк и  5  - столбцов
	.ActiveDocument.Tables.Add(lcRange,  2 ,  5 )

	* Формируем стиль таблицы
	WITH .Selection.Tables( 1 )
		IF .Style.NameLocal <> "Сетка таблицы"    
			.Style = "Сетка таблицы" 
		ENDIF
		.ApplyStyleHeadingRows = .T.
		.ApplyStyleLastRow = .T.
		.ApplyStyleFirstColumn = .T.
		.ApplyStyleLastColumn = .T.
	ENDWITH

ENDWITH			&&WITH loWord

* Делаем видимым наш "шедевр"
loWord.Visible = .T. 

Selection.TypeText Text:="m" 

Selection.TypeText("m")

loWord = CreateObject("Word.Application")
loWord = GetObject(, "Word.Application")

lcOldError = ON("ERROR")
ON ERROR loWord = .NULL.
* Здесь выполняем проверку на то, что - а не запущен ли и работает Word в данный момент, и 
* если это так, то получаем ссылку на его экземпляр,
* в противном случае  (т.е. – нет в момент выполнения этого кода, запущенного Word) возникнет ошибка 
* и переменная loWord становится равна .NULL.
loWord = GetObject(, "Word.Application")
ON ERROR &lcOldError

* А вот это - будет  выполнятся, когда loWord = .NULL.,
* Здесь запускается невидимая копия Word без загрузки в нее документа
IF ISNULL(loWord)
	loWord = CreateObject("Word.Application")
ENDIF

*
LOCAL oword, owordRef, lcNaimDoc_oword, lcNaimDoc_oWordRef, lnCount_oword, lnCount_oWordRef   

oword=create('word.application') 

* Работаем через ссылку - oword
oword.documents.add() 
lnCount_oword = oword.documents.count
lcNaimDoc_oword = oword.Documents.Item( 1 ).Name
oword.Documents(lcNaimDoc_oword).Activate

* Работаем через ссылку - owordRef
oWordRef = GetObject('','word.application') 
owordRef.documents.add()    && Добавляем документ
owordRef.documents.add()    && Добавляем еще один документ
lnCount_oWordRef = owordRef.documents.count
lcNaimDoc_oWordRef = owordRef.Documents.Item( 2 ).Name
owordRef.Documents(lcNaimDoc_oWordRef).Activate

* Если снять комментарий с кода ниже, то можно увидеть число документов в коллекции по ссылке - lnCount_oword
* и число документов в коллекции  по ссылке - owordRef
*WAIT "Количество документов в коллекции по ссылке oword - " + ALLTRIM(STR(lnCount_oword)) +;
          " и по ссылке - owordRef - " +  ALLTRIM(STR(lnCount_oWordRef )) window 


oword.Documents.Item( 1 ).Select
oword.Selection.TypeText("Этот текст, вставлен в документ коллекции по ссылке - oword")

* Если убрать комментарии с  2 -х последующих строк кода - будет ошибка, так как объектная переменная - oword
* ссылается на Word который имеет коллекцию документов состоящую из  1  документа
* а обращение идет ко  2 -му.
*oword.Documents.Item( 2 ).Select
*oword.Selection.TypeText("Этот текст вставлен в другой документ коллекции по ссылке - oword")


owordRef.Documents.Item( 1 ).Select
owordRef.Selection.TypeText("Этот текст, вставлен в документ коллекции по ссылке - owordRef")

* А здесь ошибки - нет, так как объектная перменная - owordRef ссылается на приложение Word с коллекцией из  2 -х документов 
owordRef.Documents.Item( 2 ).Select
owordRef.Selection.TypeText("Этот текст, вставлен в другой документ коллекции по ссылке - owordRef")

* Делаем видимым Word из первого процесса
oword.visible = .t.
* Делаем видимым Word из второго процесса
oWordRef.visible = .t.

* В этом месте, нажми на Ctrl+Shift+Esc и в Диспетчере задач Windows на вкладке -  "Процессы" 
* посмотри сколько Wordoв у тебя запущено. Должно быть -  2 
* Затем закомментируй весь код относящийся к ссылке - oWordRef и взгляни еще раз. Должно быть -  1  

* Эти две строки приведут к запуску новой невидимой копии – Word,
* что имеет место в твоем примере
loWord1 = CreateObject("Word.Application")
loWord2 = GetObject ("", "Word.Application")


* А вот эта строка, позволит получить ссылку на текущее приложение Word, (т.е. в момент   
* выполнения кода – Word уже запущен)
* Если Word в данный момент не запущен, то будет сгенерировано сообщение об
* ошибке.
loWord3 = GetObject(, "Word.Application")