كيف يمكن ربط الفيجول بالوورد

معقولة يا إخوان 31 زائر و لا أحد يرد

أرجو المساعدة

لأنه يا أخي اعتقد المفروض الملف الورد

تصممه كتقرير

وبالتالي تعرض بياناتك اللي تريدها من جدول إلى التقرير

وللأخ الفاضل Major شرح وافي في دروسه في قسم الدروس

وبارك الله في الجميع

اخي اعتقد ان ربط الفيجوال بالورد يكاد يكون مستحيل

بالرغم من انه لا يوجد مستحيل صعب جدا جدا

أخواني الأعزاء أنا شفت برنامج يقوم بهذا الشئ لكن للأسف برنامج تنفيذي

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

:

= عقد إيجار =

رقم العقد : <No>

إنه في يوم <today> تم الاتفاق بين كل من <ownername> ويشار إليه في هذا العقد بالطرف الأول .

والسادة/ <customername> ، الجنسية <customernationalty> حفيظة نفوس/إقامة رقم <IgamaNo> وعنوانه <customeraddress> ........الخ

و كان البرنامج يقوم بوضع البيانات من البرنامج إلى المتغيرات الموجودة بين الأقواس مثل

No , today

فمن لديه هذه الطريقة

السلام عليكم ورحمة الله وبركاتة

ومن قال لك ان الوورد كان يكون جاهز وكل ماعلى البرنامج إرسال البيانات الى الفوارغ

جرب فكره إنشاء التقرير فى كل مرة ترسلة إلى الوورد

OLE .. ابحث عن موضوع ربط وتضمين الكائنات OLE

اخوي عندي لك مثال فيه ما تريد وسوف اضعه إن شاء الله

اقتباس

اخي اعتقد ان ربط الفيجوال بالورد يكاد يكون مستحيل

بالرغم من انه لا يوجد مستحيل صعب جدا جدا

مين بس اللي قالك كده؟ يا عم متعقدش الناس هيا ناقصة :D

والله العملية سهلة جدا جدا

اقتباس

ومن قال لك ان الوورد كان يكون جاهز وكل ماعلى البرنامج إرسال البيانات الى الفوارغ

أنا :D

بسم الله الرحمن الرحيم

----------------------

Using Active X to Automate Microsoft Word

______________________________________

أولا و قبل كل شيء عليك باضافة مكتبة ال word من ال references كالاتي:

(1) من قائمة project اختار references

(2) اختر Microsoft Word Object Library و لا يهم الاصدار فهذا يعتمد علي اصدار الوورد لديك علي أي حال

من المفروض أن تحصل علي شكل كالاتي:

بعد ذلك ضع علي الفورم زر أمر و 2 textbox

الي الكود :)

Private Sub Command1_Click()

Dim x As Word.Document
Dim y As String, z As String

y = Text1.Text
z = Text2.Text

Set x = New Word.Document

With x.Application.Selection
.TypeText "أنا اسمي" & " " & y
.TypeParagraph
.TypeParagraph
.TypeText "ووظيفتي هي" & " " & z
.TypeParagraph
.TypeParagraph
.TypeText "أرجوا أن تدعوا لي و لوالدي دعوة بظاهر الغيب"
End With

x.SaveAs "c:\وثيقة وورد"
x.Close

Set x = Nothing
End Sub

الان عندك في ال :C وثيقة وورد :D

المقالة غير منقولة من أي منتدي أو أي شخص ........ يمكن بكل سولة ربط تطبيقات ال office بال visual basic و هي تعد أحد نقاط القوة في visual basic

أرجوا أن تكون المقالة حازت اعجابكم و السلام عليكم و رحمة الله

أحمد شلبي

أرفقت البرنامج جاهز لمن يحب التجربة أولا، أي كود صعب أرجوا أن تسألوا عليه و سوف أجيب ان شاء الله

أتمتتة الورد بالفيجوال يبسك .zip

ايه يا جماعة الكود مش شغال ولا ايه؟

لا والله يا أخي romantic_boy

والله الكود شغال تمام 100%

وأنا جربت واستفدت من هذه المعلومة القيمة

والله يجعلها في موازين حسناتك

بس حبيت أسأل أخي romantic_boy

فيه بعض الخواص حاولت أنا أستخدمها لكن يطلع لي خطأ

وإذا ما فيه تعب أخي romantic_boy

كيف يمكن طباعة ملف وورد من البرنامج اللي أسويه بالفيجوال بيسك

وكذلك التحكم في جزء من النص بحجم معين

والجزء الآخر من النص بحجم الآخر

أرجو أني ما ثقلت عليك

وتقبل تحياتي

جزاك الله خير الجزاء أخي romantic_boy

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

أخي أنا منتظر ردك و المثال

مع ملاحظة أنني لا أريد عمل ذلك عن طريق التقرير لانني أريد أن يكون العقد بين المالك و العميل ملف وورد لكي يمكن تعديله حسب الطلب باضافة أو إلغاء بعض شروط العقد

أخي hamad أنا منتظر ردك و المثال

أخي romantic_boy رايك صحيح و اعتذر عما بدر مني دون علم

و اهنيك على اجابتك

اقتباس

و اعتذر عما بدر مني دون علم

???????????????????

أخي لا أفهم شيئاَ

فيما أخطأت أخي الحبيب حتي تعتذر؟ :^)

أرجوك أخي romantic_boy أن تساعدني أرجو أن تقرأ مشاركتي رقم 5 في هذا الموضوع لكي تعرف طلبي بالضبظ ، أرجو المساعدة للأهمية

أرجو المساعدة أخواني

هل من حل لهذه المشكلة

أخي الحبيب أسف لم أري سؤالك الا الان ، أرفقلي برنامجك مع شرح ما تريد و ان شاء الله أعملهولك

اخي العزيز سؤالي موجود في الصفحة الأولي من الموضوع في المشاركة رقم 1 و بالتفصيل أكثر في المشاركة رقم 5 في هذا الموضوع ، فأرجو المساعدة و جزاك الله خير

سلاااام

هذا بالنسبه اذا كانت عندك flexgrid

تضغط دبل كليك ويظهر لك في تقرير امامك

واذا تبي تعدل فيه اختار الشكل اللي يعجبك

وشكرا

example1.rar

أخواني الأعزاء أنا شفت برنامج يقوم بهذا الشئ لكن للأسف برنامج تنفيذي

و كان يوجد في مجلد البرنامج ملف وورد جاهز فيه الأتي

:

= عقد إيجار =

رقم العقد : <No>

إنه في يوم <today> تم الاتفاق بين كل من <ownername> ويشار إليه في هذا العقد بالطرف الأول .

والسادة/ <customername> ، الجنسية <customernationalty> حفيظة نفوس/إقامة رقم <IgamaNo> وعنوانه <customeraddress> ........الخ

و كان البرنامج يقوم بوضع البيانات من البرنامج إلى المتغيرات الموجودة بين الأقواس مثل

No , today,customername,------

فمن لديه هذه الطريقة أرجو المساعدة

هل من مجيب ‘ أرجو المساعدة للأهمية

أخواني الأعزاء أنا شفت برنامج يقوم بهذا الشئ لكن للأسف برنامج تنفيذي

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

:

= عقد إيجار =

رقم العقد : <No>

إنه في يوم <today> تم الاتفاق بين كل من <ownername> ويشار إليه في هذا العقد بالطرف الأول .

والسادة/ <customername> ، الجنسية <customernationalty> حفيظة نفوس/إقامة رقم <IgamaNo> وعنوانه <customeraddress> ........الخ

و كان البرنامج يقوم بوضع البيانات من البرنامج إلى المتغيرات الموجودة بين الأقواس مثل

No , today

فمن لديه هذه الطريقة

هل من مجيب ‘ أرجو المساعدة للأهمية

السلام عليكم

سأعطيك مفتاح الحل (أعتذر عن الشرح التفصيلي فأنا مشغول)

أفتح الوورد ثم باختيار :

أدوات

ماكرو

تسجيل ماكرو جديد

سيقوم الماكرو بتسجيل كل شيء تفعله ، و إذا انتهيت أوقف تشغيل الماكرو ثم أنسخه للفيجول بيسك و عدل فيه حسب احتياجك .

مع مراجهة نصيحة الأخ / romantic_boy في المشاركة رقم 9

والسلام عليكم