منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال عن فتح ملف ورد بالفيجوال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال عن فتح ملف ورد بالفيجوال (/showthread.php?tid=9234)



سؤال عن فتح ملف ورد بالفيجوال - AhmedSamir3 - 11-06-13

لقد استخدمت هذا الكود لفتح ملف ورد ويعمل ولكن المشكله
انه يفتح ملف الورد للمستخدم على الشاشة ثم يقوم بإغلاقة

أنا اريد فتح لملف وجلب كل البيانات الموجوده فى الورد الى textBox

الرجاء التعديل على الكود

PHP كود :
Dim X As New AhmedDLL.FolderAndFiles
    Dim wrdApp 
As Word.Application
    Set wrdApp 
= New Word.Application
    wrdApp
.Visible False
    wrdApp
.Documents.Open "c:\a.doc"
     
Text1.Text wrdApp.ActiveDocument.Content.Text
    wrdApp
.Documents.Close
    wrdApp
.Quit
    Set wrdApp 
Nothing 



سؤال عن فتح ملف ورد بالفيجوال - AhmedSamir3 - 15-06-13

ما الحل للمشكة
المشكله ان ملف الورد نفسه بيفتح وحاولت اخفائه wrdApp.Visible = False حل مؤقت للمشكه

اريد ان لا يفتح الملف الا داخل البرناج فقط


سؤال عن فتح ملف ورد بالفيجوال - ALBRNS - 15-06-13

السلام عليكم

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

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 

بالتوفيق