السلام عليكم ورحمة الله
[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 "
ويقوم بتظليل الفقرة ثانيا باللون الاصفر
لذا ارجو مساعدتكم وانا متأكد تماما ان هذا المنتدى بة اساتذة وخبراء عظام لايبخلون على طلاب العلم والمعرفة -جزاهم الله خير الجزاء
[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 "
ويقوم بتظليل الفقرة ثانيا باللون الاصفر
لذا ارجو مساعدتكم وانا متأكد تماما ان هذا المنتدى بة اساتذة وخبراء عظام لايبخلون على طلاب العلم والمعرفة -جزاهم الله خير الجزاء