Olá a todos

Utilizei o código abixo para abrir um documento existente no Word via VFP 8.0 :

oWord = CREATEOBJECT('Word.Application')

WITH oWord
.Documents.Open("seuarquivo.doc")
.Visible=.T.
.Application.Activate
ENDWITH

-------------------------------------------------------------------------------------
Para abrir o Word via VFP 8.0 para digitar um novo documento utilizei o código abaixo
retirando do projeto solutions :

#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE C_MESS1_LOC "COLÉGIO ESTADUAL JUDITE DE OLIVEIRA"
#DEFINE C_MESS2_LOC "PROFESSOR.: Antônio Carlos DISCIPLINA.: Geografia"
#DEFINE C_MESS3_LOC "ALUNO.:____________________________________TURMA_________"
*
lWord97 = .T.
nMouseRow = MROW()
nMouseCol = MCOL()
oForm = THISFORM
*
IF THISFORM.EXISTE == .F.
oForm.addobject('oWordDoc','olecontrol','word.document')
*
oForm.oWordDoc.Height = 2
oForm.oWordDoc.Width = THISFORM.width
oForm.oWordDoc.Top = THISFORM.top + 1
oForm.oWordDoc.Left = THISFORM.left
oForm.oWordDoc.Visible = .t.
THISFORM.EXISTE = .T.
ENDIF
*
* oForm.Show(0)
oForm.oWordDoc.DoVerb(-2)


MOUSE CLICK AT 1,1
MOUSE AT m.nMouseRow,m.nMouseCol

IF m.lWord97
oForm.oWordDoc.object.content = C_MESS1_LOC+CRLF
oForm.oWordDoc.object.content.insertafter(C_MESS2_LOC+CRLF)
oForm.oWordDoc.object.content.insertafter(C_MESS3_LOC)
oForm.oWordDoc.object.content.Font.Bold = .T.
oForm.oWordDoc.object.content.Font.Size = 14
oForm.oWordDoc.object.content.Font.Name = "TIME ROMAM"
* oForm.oWordDoc.object.content.Font.ColorIndex = 5
ELSE
oWordRef.Insert(C_MESS1_LOC+CRLF)
oWordRef.editselectall
oWordRef.Font("Arial",18)
oWordRef.Bold
oWordRef.EditGoTo("\EndofDoc")
oWordRef.WordLeft(1)
oWordRef.SelectCurWord
oWordRef.CharColor(2)
oWordRef.alignment(3)

oWordRef.EditGoTo("\EndofDoc")
oWordRef.Insert(C_MESS2_LOC)
oWordRef.WordLeft(3)
oWordRef.SelectCurWord
oWordRef.CharColor(4)
oWordRef.Bold(0)

oWordRef.EditGoTo("\StartofDoc")
oWordRef.Insert(C_MESS3_LOC+CRLF)
oWordRef.WordLeft(4)
oWordRef.SelectCurWord
oWordRef.CharColor(6)
oWordRef.Bold(0)
oWordRef.Italic

oWordRef.editselectall
oWordRef.shadingpattern(2)
oWordRef.borderoutside()
oWordRef.borderlinestyle(7)
ENDIF
*

Gostaria de saber se tem como abrir o Word do Fox com um
novo documento e obter como retorno o caminho de onde foi
gravado o arquivo DOC, ou então abrir um novo documento
no Word com o caminho e nome do arquivo já escolhido
anteriormente

Alguém já conseguir fazer isto, tem algum lugar onde eu possa
encontar um exemplo?

Desde já oBrigado e um Fox Abraço para todos

Antônio Carlos