请教一个问题

[bmoli]

请教各位专家：
是否有vfp掌控word的一个实例，哪怕是一个很小的实例也可以。我想参考一下，就是word中有表格的并且含有文本内容的那种。
先谢谢了！

[tlliqi]

找了个vfp实例中的代码。
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE C_MESS1_LOC "Is this a snowy day? "
#DEFINE C_MESS2_LOC "Is this a rainy day? "
#DEFINE C_MESS3_LOC "Is this a sunny day? "

lWord97 = .T.
nMouseRow = MROW()
nMouseCol = MCOL()
oForm = THISFORM

oForm.addobject( 'oWordDoc ', 'olecontrol ', 'word.document ')

oForm.oWordDoc.Height = THISFORM.txtFrame.height
oForm.oWordDoc.Width = THISFORM.txtFrame.width
oForm.oWordDoc.Top = THISFORM.txtFrame.top
oForm.oWordDoc.Left = THISFORM.txtFrame.left
oForm.oWordDoc.Visible = .t.
oForm.Show
oForm.oWordDoc.DoVerb(0)

IF TYPE( "oForm.oWordDoc.object.name ") # "C "
lWord97 = .F.
oWordRef = GetObject( ' ', 'word.basic ')
ENDIF

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 = 18
oForm.oWordDoc.object.content.Font.Name = "Arial "
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(4)
oWordRef.SelectCurWord
oWordRef.CharColor(2)

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

THIS.ENABLED = .F.

[bmoli]

谢谢，我试试下