+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=7004)
مشكلة فى التعامل مع برنامج الوورد -ارجو المساعدة ضرورى - samy666 - 16-11-12
السلام عليكم ورحمة الله
[b]اولا: اقوم بفتح مستند موجود فعلا فى الوورد بالكود التالى ويعمل بشكل جي[/b]د:
Set doc = New Word.Application
doc.Visible = True
Set doc = doc.Documents.Open("d:\archif_gare2012\mydocument\1.doc")
doc.Activate
ثانيا : اقوم بتظليل الفقرة رقم 4 من المستند الذى تم فتحة ونقلة فى تكست بوكس 1 بالكود التالى :
Set rngparagraphes = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(4).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End)
rngparagraphes.Select
Text1.Text = rngparagraphes
اولا وثانيا تعمل بشكل جيد لأول مرة فقط - اما فى المرة الثانية فيقوم بتنفيذ اولا - اما ثانيا يعطى رسالة خطأ التالية :
" Run time error 462
" The remote server machine does not exist or is unavailable "
ويقوم بتظليل الفقرة ثانيا باللون الاصفر
لذا ارجو مساعدتكم وانا متأكد تماما ان هذا المنتدى بة اساتذة وخبراء عظام لايبخلون على طلاب العلم والمعرفة -جزاهم الله خير الجزاء
مشكلة فى التعامل مع برنامج الوورد -ارجو المساعدة ضرورى - samy666 - 17-11-12
هل من مجيب ؟