General information
Category:
COM/DCOM and OLE Automation
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only