PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 245 Width = 440 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; Top = 204, ; Left = 177, ; Height = 25, ; Width = 85, ; Caption = "Demo Word", ; Name = "Command1" ADD OBJECT txtframe AS textbox WITH ; Enabled = .F. ; Height = 116, ; Left = 24, ; ReadOnly = .T. ; TabIndex = 0, ; Top = 36, ; Width = 399, ; Name = "txtFrame" PROCEDURE command1.Click lcDoc = GETFILE('doc') oForm = THISFORM IF Vartype(oForm.oWordDoc)="O" && Suggéré par Thierry oForm.removeObject("oWordDoc") CLEAR CLASS oleWordObject && pour lassurer la ré-évaluation de DocumentFile ENDIF oForm.AddObject('oWordDoc','oleWordObject') 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) ENDPROC ENDDEFINE DEFINE CLASS oleWordObject as OLEControl OleClass ="Word.Document" DocumentFile = lcDoc ENDDEFINE>Hello all,