أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية أتمتة Word من Visual Basic .NET لإنشاء مستند جديد

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

اضغط هنا لرابط المقالة باللغة الانجليزية316383
للحصول على إصدار Microsoft Visual C# .NET من هذه المقالة، راجع 316384.
Microsoft Visual Basic 6.0 إصدار هذه المقالة للحصول 313193.
الموجز
توضح هذه المقالة خطوة بخطوة حول كيفية إنشاء مستند جديد في Word باستخدام التنفيذ من Visual Basic .NET.

نموذج التعليمات البرمجية

يوضح نموذج التعليمة البرمجية في هذه المقالة كيفية القيام بما يلي:
  • إدراج الفقرات مع النص والتنسيق.
  • استعرض ثم تعديل النطاقات المتعددة ضمن مستند.
  • إدراج جداول وتنسيقه الجداول تعبئة الجداول بالبيانات.
  • إضافة تخطيط.
لإنشاء مستند Word جديد باستخدام التنفيذ من Visual Basic .NET اتبع الخطوات التالية:
  1. بدء تشغيل Microsoft Visual Studio .NET. من القائمة ملف، انقر فوق جديد ثم انقر فوق المشروع. ضمن أنواع Project انقر فوق مشاريع Visual Basic ثم انقر فوق تطبيق Windows ضمن قوالب. يتم إنشاء Form1 بشكل افتراضي.
  2. إضافة مرجع إلى مكتبة كائنات Microsoft Word. للقيام بذلك، اتبع الخطوات التالية:
    1. من القائمة المشروع انقر فوق إضافة مرجع.
    2. في علامة التبويب COM تحديد موقع مكتبة كائنات Microsoft Word ثم انقر فوق تحديد.

      ملاحظة يتضمن Microsoft Office 2003 والإصدارات اللاحقة من Office "التجميعات Interop الأساسية" (PIAs). لا يتضمن Microsoft Office XP PIAs ولكن قد يتم تحميل. لمزيد من المعلومات حول Office XP PIAs انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
      328912Microsoft Office XP الأساسي إمكانية التشغيل المتداخل التجميعات (PIAs) المتوفرة للتحميل
    3. انقر فوق موافق في مربع الحوار إضافة مراجع لقبول التحديدات. إذا تلقيت موجه لإنشاء wrappers المكتبات التي حددتها انقر فوق "نعم".
  3. من القائمة عرض، حدد Toolbox لعرض مربع الأدوات ثم قم بإضافة زر إلى Form1.
  4. انقر نقراً مزدوجاً فوق Button1. يظهر إطار التعليمات البرمجية للنموذج.
  5. في إطار التعليمات البرمجية استبدال التعليمة البرمجية التالية
        Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button1.Click    End Sub
    مع:
        Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles Button1.Click        Dim oWord As Word.Application        Dim oDoc As Word.Document        Dim oTable As Word.Table        Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph        Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph        Dim oRng As Word.Range        Dim oShape As Word.InlineShape        Dim oChart As Object        Dim Pos As Double        'Start Word and open the document template.        oWord = CreateObject("Word.Application")        oWord.Visible = True        oDoc = oWord.Documents.Add        'Insert a paragraph at the beginning of the document.        oPara1 = oDoc.Content.Paragraphs.Add        oPara1.Range.Text = "Heading 1"        oPara1.Range.Font.Bold = True        oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.        oPara1.Range.InsertParagraphAfter()        'Insert a paragraph at the end of the document.        '** \endofdoc is a predefined bookmark.        oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)        oPara2.Range.Text = "Heading 2"        oPara2.Format.SpaceAfter = 6        oPara2.Range.InsertParagraphAfter()        'Insert another paragraph.        oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)        oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"        oPara3.Range.Font.Bold = False        oPara3.Format.SpaceAfter = 24        oPara3.Range.InsertParagraphAfter()        'Insert a 3 x 5 table, fill it with data, and make the first row        'bold and italic.        Dim r As Integer, c As Integer        oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)        oTable.Range.ParagraphFormat.SpaceAfter = 6        For r = 1 To 3            For c = 1 To 5                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c            Next        Next        oTable.Rows.Item(1).Range.Font.Bold = True        oTable.Rows.Item(1).Range.Font.Italic = True        'Add some text after the table.        'oTable.Range.InsertParagraphAfter()        oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range)        oPara4.Range.InsertParagraphBefore()        oPara4.Range.Text = "And here's another table:"        oPara4.Format.SpaceAfter = 24        oPara4.Range.InsertParagraphAfter()        'Insert a 5 x 2 table, fill it with data, and change the column widths.        oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 5, 2)        oTable.Range.ParagraphFormat.SpaceAfter = 6        For r = 1 To 5            For c = 1 To 2                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c            Next        Next        oTable.Columns.Item(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2        oTable.Columns.Item(2).Width = oWord.InchesToPoints(3)        'Keep inserting text. When you get to 7 inches from top of the        'document, insert a hard page break.        Pos = oWord.InchesToPoints(7)        oDoc.Bookmarks.Item("\endofdoc").Range.InsertParagraphAfter()        Do            oRng = oDoc.Bookmarks.Item("\endofdoc").Range            oRng.ParagraphFormat.SpaceAfter = 6            oRng.InsertAfter("A line of text")            oRng.InsertParagraphAfter()        Loop While Pos >= oRng.Information(Word.WdInformation.wdVerticalPositionRelativeToPage)        oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)        oRng.InsertBreak(Word.WdBreakType.wdPageBreak)        oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)        oRng.InsertAfter("We're now on page 2. Here's my chart:")        oRng.InsertParagraphAfter()        'Insert a chart and change the chart.        oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject( _            ClassType:="MSGraph.Chart.8", FileName _            :="", LinkToFile:=False, DisplayAsIcon:=False)        oChart = oShape.OLEFormat.Object        oChart.charttype = 4 'xlLine = 4        oChart.Application.Update()        oChart.Application.Quit()        'If desired, you can proceed from here using the Microsoft Graph         'Object model on the oChart object to make additional changes to the        'chart.        oShape.Width = oWord.InchesToPoints(6.25)        oShape.Height = oWord.InchesToPoints(3.57)        'Add text after the chart.        oRng = oDoc.Bookmarks.Item("\endofdoc").Range        oRng.InsertParagraphAfter()        oRng.InsertAfter("THE END.")        'All done. Close this form.        Me.Close()    End Sub
  6. قم بإضافة التعليمات البرمجية التالية إلى أعلى Form1.vb:
    Imports Word = Microsoft.Office.Interop.Word
  7. اضغط F5 لإنشاء البرنامج وتشغيله.
بعد اكتمال التعليمات البرمجية فحص مستند تم إنشاؤه لك. يحتوي المستند على صفحتين من الفقرات المنسقة وجداول تخطيط.

استخدام قالب

إذا كنت تستخدم أتمتة لإنشاء المستندات الموجودة في تنسيق شائع, يمكن أن تستفيد من تشغيل العملية باستخدام مستند جديد يستند إلى قالب المنسقة مسبقاً. باستخدام قالب مع عميل التنفيذ Word الميزات جهازي الهامة عبر إنشاء مستند من لا شيء:
  • يمكن أن يكون لديك تحكم أكبر في تنسيق وموضع الكائنات خلال المستندات.
  • يمكنك إنشاء المستندات مع رمز أقل.
باستخدام قالب التي يمكن ضبط موضع الجداول الفقرات وكائنات أخرى داخل المستند كما أنه يتضمن تنسيقات على هذه الكائنات. باستخدام "التنفيذ التلقائي" ، يمكنك إنشاء مستند جديد يستند إلى القالب مع رمز كالتالي:
oWord.Documents.Add "<Path to your template>\MyTemplate.dot"
في القالب الخاص بك يمكن تعريف الإشارات المرجعية بحيث التنفيذ الخاص بك يمكن العميل تعبئة نص متغير في موقع معين في المستند، كما يلي:
oDoc.Bookmarks.Item("MyBookmark").Range.Text = "Some Text Here"
ميزة آخر إلى استخدام قالب هي أنه يمكنك إنشاء وإعادة تخزين أنماط التنسيق الذي ترغب في تطبيق وقت التشغيل كما يلي:
oDoc.Bookmarks.Item("MyBookmark").Range.Style = "MyStyle"
- أو -
oWord.Selection.Style = "MyStyle"
مراجع
للحصول على مزيد من المعلومات حول استخدام Visual Basic .NET لجعل Microsoft Word انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
301656كيفية أتمتة Word لتنفيذ دمج المراسلات من Visual Basic .NET
لمزيد من المعلومات، راجع مواقع ويب Network (MSDN) المطور Microsoft التالية:
word2002 word2k2 word10 wordxp wd2002 wd2k2 wd10 wdxp word2003 word2k3 word11 wd2003 wd2k3 wd11 word2007 word2k7 word12 wd2007 wd2k7 wd12

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 316383 - آخر مراجعة: 05/24/2007 22:15:42 - المراجعة: 11.1

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Office Word 2007, Microsoft Office Word 2003, Microsoft Word 2002 Standard Edition

  • kbmt kbexpertiseinter kbautomation kbhowtomaster KB316383 KbMtar
تعليقات
/html>>ext/JavaScript" async=""> var varAutoFirePV = 1; var varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" id=1&t=">-binding" id="language-es-es">España - Español
Paraguay - Español
Venezuela - Español
id=1&t=">4050&did=1&t=">r varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("