[ALBRNS]

السلام عليكم

جرب كتابة الكود بالشكل التالي

PHP كود :

Private Sub Command1_Click()
Dim wrdApp As Word.Application
Set wrdApp = New Word.Application
wrdApp.Documents.Open "c:\a.doc"
wrdApp.Visible = False
Text1.Text = wrdApp.ActiveDocument.Content.Text
wrdApp.Quit
Set wrdApp = Nothing
End Sub 


بالتوفيق