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


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

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

lcNaimDoc = loWord.Documents.Item( 1 ).Name
loWord.Documents(lcNaimDoc).Activate

loWord.ActiveWindow.ActivePane.View.SeekView =  9                    &&wdSeekCurrentPageHeader =  9 
loWord.Selection.WholeStory
loWord.Selection.Delete( 1 ,  1 )                                				
loWord.Selection.TypeText("Новый текст колонтитула")
loWord.ActiveWindow.ActivePane.View.SeekView =  0                    &&wdSeekMainDocument =  0 

loWord.Visible = .T.