إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف أبوسجود في الجمعة أغسطس 30, 2013 12:23 pm

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



كيفية إنشاء مستندات Word فى الفجوال بيسك دوت نت ....سؤال يتردد عند الكثريين ....فى هذه المقالة إن شاء الله تعالى سأحاول شرح طريقة إنشاء مستند Word مع إضافة بعض التنسيقات للمستند ......


1_ قم بإنشاء مشروع نوافذ جديد ....مع إضافة زر أمر للنافذة بأسم "إنشاء"

2_ قم بفتح النافذة Add References dialog ومن التويب COM أختر المكتبة Microsoft Word 12.0 Object Library ثم أوكية 

3_ أستيراد مساحة الاسماء التالية :
الرمز:
Imports Word = Microsoft.Office.Interop.Word
4_ فى حدث النقر على زر الامر إنشاء ....نقوم بكتابة التعليمات التالية :

الرمز:
 Dim word_app As Word._Application = New Word.ApplicationClass()
        Dim word_doc As Word._Document = word_app.Documents.Add()

        Dim para As Word.Paragraph = word_doc.Paragraphs.Add()
        para.Range.Text = "منتدى مصر التقنى"
        para.Range.Style = "Heading 1"
        para.Range.InsertParagraphAfter()

        para.Range.Text = "أهلا وسهلا بكم فى منتدى مصر التقنى" & _
            "هذا مثال على كيفية إنشاء مستندات ورد  "

        para.Range.InsertParagraphAfter()
        Dim old_font As String = para.Range.Font.Name
        para.Range.Font.Name = "Courier New"

        para.Range.Text = " تحياتى لكم" & vbCrLf & " أبوسجود"

        para.Range.InsertParagraphAfter()
        para.Range.Font.Name = old_font

        Dim filename As Object = Path.GetFullPath( _
        Path.Combine(Application.StartupPath, "..\\..")) & _
        "\\test.doc"
        word_doc.SaveAs(FileName:=filename)

        Dim save_changes As Object = False
        word_doc.Close(save_changes)
        word_app.Quit(save_changes)
السطر الاول : أول شفرة قمنا بإنشاء مثيل من Word.ApplicationClass

السطر الثانى : أنشأنا ايضا مثيل من Word._Document

أما الاسطر من 3 حتى 6 هى إنشاء فقرة رأس مع تحديد نص تلك الفقرة " منتدى مصر التقنى " و الاستايل Heading 1

أما السطر السابع و الثامن وضعنا نصوص أخرى للمستند .....وفى السطر التاسع و العاشر قمنا بحفظ نوع الخط المستخدم الحالى و إضافة خط جديد لكتابة فقرة جديدة .......أما فى السطر الحادى عشر حتى الثالث عشر قمنا بكتابة فقرة جديدة مع خط جديد للمستند ....أما السطور الاخيرة من الكود لحفظ المستند بما فيه من بيانات ثم أغلاق كافة الكائنات المستخدمة

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف أحمد مناع في الأحد سبتمبر 01, 2013 9:32 am

أحسنت الشرح أخى وصديقى أبوسجود ....جزاك الله خيرا

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف tryold في الأحد نوفمبر 24, 2013 7:24 pm

السلام عليكم

عندي مستند مصمم للإجازة خارجية جاهز وعندي حقول تتكون من الاسم والرقم الوضيفي وتاريخ الإجازة واريد وضع هذة الحقول في مكانها في المستند الجاهز ومن ثما طباعتة 

بمعنى اني اريد ان ارسل هذة الحقول الى المستند ومشاهدته وطباعتة

هل ذلك ممكن ؟ ونحن نعلم ان البرمجة نطاقها واسع

اذا كنتم تعرفون الحل فلا تبخلوا علينا بة

وشكرا لكم يا اساتذتنا......

tryold
...
...

تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 45
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف أبوسجود في الإثنين نوفمبر 25, 2013 12:20 pm

الممكن فعله على حد علمى هو ان نقوم بادراج جدول الى المستند مع تنسيقه كما اريد من خلال الكود ....وليس ان يتم ادراج بيانات فى جدول موجود اساسا فى المستند ...لانى فهمت من كلام حضرتك ان عندك مستند جاهز به رؤس واعمدة و تريد فقط ارسال بيانات الية من خلال الفجوال 

على اى حال سأحاول وضع مشاركة توضح كيفية ادراج جدول فى مستند ورد من خلال دوت نت

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف tryold في الأربعاء نوفمبر 27, 2013 9:48 am

نعم طال عمرك هذا ما قصدتة بالفعل 

عندي مستند إجازة معمول عن طريق الوورد ورسمي واريد ان ارسل فقط خانتين الية وهي الاسم والرقم ويكون جاهز للطباعة

وشكرا على الرد يا ابو سجود وبارك الله فيك

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ


ليس من اخترق جهاز اصبح هكر

وليس من كتب كود اصبح مبرمج

وليس من كسر برنامج صار خيبير كسر

ولكن من تواضع لله رفعة


tryold
...
...

تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 45
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف أبوسجود في الخميس نوفمبر 28, 2013 6:19 pm

أخى الكريم يمكنك انشاء جدول و تنسيقة فى بنية الدوت نت على النحو التالى :

الرمز:
Private Sub InsertTable(rowCount As Integer, columnCount As Integer)
    Dim curDoc As Word.Document = WordApp.ActiveDocument
    Dim table As Word.Table
 
    table = curDoc.Tables.Add(WordApp.Selection.Range, rowCount, columnCount)
    table.Cell(1, 1).Range.Text = "Hello Table"
 
    Marshal.ReleaseComObject(table)
    Marshal.ReleaseComObject(curDoc)
End Sub
ويتم استدعاء الاسلوب InsertTable لتحديد عدد الاعمدة و الصفوف فى المستند

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف tryold في الخميس نوفمبر 28, 2013 7:33 pm

شكرا لك اخي ابو سجود

ياليت ترفق مثال على ماذكرت وشرح للاكواد  اكون شاكر لك ومقدر

وبارك الله فيك

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ


ليس من اخترق جهاز اصبح هكر

وليس من كتب كود اصبح مبرمج

وليس من كسر برنامج صار خيبير كسر

ولكن من تواضع لله رفعة


tryold
...
...

تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 45
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف المبرمج الطموح في السبت نوفمبر 30, 2013 8:57 am


هذا مثال يوضح كيفية انشاء جدول فى مستند ورد بنفس كود أخى ابو سجود تقريبا بالفجوال 2010

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13858017851.zip


المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء مستندات Word و الكتابة فيها مع بعض التنسيق فى بنية vb.net

مُساهمة من طرف tryold في السبت نوفمبر 30, 2013 12:43 pm

المبرمج الطموح كتب:
هذا مثال يوضح كيفية انشاء جدول فى مستند ورد بنفس كود أخى ابو سجود تقريبا بالفجوال 2010

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13858017851.zip


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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ


ليس من اخترق جهاز اصبح هكر

وليس من كتب كود اصبح مبرمج

وليس من كسر برنامج صار خيبير كسر

ولكن من تواضع لله رفعة


tryold
...
...

تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 45
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى