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

كيفية أتمتة Microsoft Word باستخدام Visual Basic لإنشاء مستند جديد

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

اضغط هنا لرابط المقالة باللغة الانجليزية313193
الموجز
توضح هذه المقالة خطوة بخطوة كيفية إنشاء مستند جديد في Word باستخدام التنفيذ التلقائي من Visual Basic.

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

يوضح نموذج التعليمة البرمجية في هذه المقالة كيفية القيام بما يلي:
  • إدراج الفقرات مع النص والتنسيق.
  • استعراض وتعديل مختلف النطاقات ضمن أدوكومينت.
  • إدراج الجداول وتنسيق جداول ملء ويثداتا الجداول.
  • إضافة تخطيط.
لإنشاء مستند Word جديد باستخدام التنفيذ التلقائي من Visual Basic، اتبع الخطوات التالية:
  1. في Visual Basic، إنشاء مشروع EXE قياسي جديد. Form1is التي تم إنشاؤها بشكل افتراضي.
  2. من القائمة مشروع ، انقر "مراجع"، انقر فوق أحد الخيارات التالية، وثم انقر فوق موافق:
    • ل Office Word 2007، انقر فوق مكتبة كائنات 12.0 ل Microsoft Word.
    • ل Word 2003، انقر فوق مكتبة كائنات 11.0 Microsoft Word.
    • ل Word 2002، انقر فوق مكتبة كائنات 10.0 Microsoft Word.
    • ل Word 2000، انقر فوق مكتبة كائنات Microsoft Word 9.0.
  3. إضافة عنصر تحكم CommandButton إلى Form1.
  4. أضف التعليمات البرمجية التالية إلى الحدث Click ل Command1:
        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.    Set oWord = CreateObject("Word.Application")    oWord.Visible = True    Set oDoc = oWord.Documents.Add        'Insert a paragraph at the beginning of the document.    Set 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.    Set oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)    oPara2.Range.Text = "Heading 2"    oPara2.Format.SpaceAfter = 6    oPara2.Range.InsertParagraphAfter        'Insert another paragraph.    Set oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\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,italic.    Dim r As Integer, c As Integer    Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\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(1).Range.Font.Bold = True    oTable.Rows(1).Range.Font.Italic = True        'Add some text after the table.    'oTable.Range.InsertParagraphAfter    Set oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\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.    Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\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(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2.    oTable.Columns(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("\endofdoc").Range.InsertParagraphAfter    Do        Set oRng = oDoc.Bookmarks("\endofdoc").Range        oRng.ParagraphFormat.SpaceAfter = 6        oRng.InsertAfter "A line of text"        oRng.InsertParagraphAfter    Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage)    oRng.Collapse (wdCollapseEnd)    oRng.InsertBreak wdPageBreak    oRng.Collapse wdCollapseEnd    oRng.InsertAfter "We're now on page 2. Here's my chart:"    oRng.InsertParagraphAfter        'Insert a chart and change the chart.    Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _        ClassType:="MSGraph.Chart.8", FileName _        :="", LinkToFile:=False, DisplayAsIcon:=False)    Set 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.    Set oRng = oDoc.Bookmarks("\endofdoc").Range    oRng.InsertParagraphAfter    oRng.InsertAfter "THE END."    'All done. Unload this form.    Unload Me					
  5. اضغط F5 لتشغيل البرنامج ثم انقر فوق Command1.
بعد اكتمال التعليمات البرمجية، فحص المستند الذي تم إنشاؤه لك. يحتوي المستند على صفحتين من فقرات منسقة وجداول تخطيط.

استخدام قالب

إذا كنت تستخدم أتمتة لإنشاء المستندات الموجودة في شكل موحد، يمكنك الاستفادة من بدء العملية باستخدام مستند جديد استناداً إلى قالب المنسقة مسبقاً. استخدام قالب مع عميل أتمتة Word ميزتين كبيرة عبر إنشاء مستند من أي شيء:
  • لديك تحكم أكبر في التنسيق أندبلاسيمينت كائنات خلال المستندات.
  • يمكنك إنشاء المستندات الخاصة بك باستخدام تعليمات برمجية أقل.
باستخدام قالب، يمكنك يمكن ضبط موضع الجداول والفقرات والكائنات الأخرى في المستند، بالإضافة تضمين تنسيق على هذه الكائنات. باستخدام "التنفيذ التلقائي"، يمكنك إنشاء مستند جديد استناداً إلى القالب الخاص بك باستخدام التعليمات البرمجية كما يلي:
oWord.Documents.Add "<Path to your template>\MyTemplate.dot"				
في القالب الخاص بك، يمكنك تحديد الإشارات المرجعية حيث أن عميل التنفيذ التلقائي الخاص بك يمكن تعبئة نص متغير في مكان محدد في المستند، كما يلي:
oDoc.Bookmarks("MyBookmark").Range.Text = "Some Text Here"				
ميزة أخرى لاستخدام قالب هي أنه يمكنك إنشاء وتخزين أنماط التنسيق الذي تريد تطبيقه في وقت التشغيل، كما يلي:
oDoc.Bookmarks("MyBookmark").Range.Style = "MyStyle"				
-أو-
oWord.Selection.Style = "MyStyle"				
مراجع
لمزيد من المعلومات، انقر فوق أرقام المقالات التالية لعرضها في "قاعدة معارف Microsoft":
220607 كيفية أتمتة Microsoft Word لتنفيذ دمج المراسلات من Visual Basic
285332 كيفية أتمتة Word 2002 باستخدام Visual Basic لإنشاء دمج المراسلات
285333 معلومات إضافية: Word 2002 دمج المراسلات حدث التعليمات البرمجية العرض التوضيحي
لمزيد من المعلومات، راجع مواقع شبكة مطوري Microsoft (MSDN) التالي على الويب:
تطوير Microsoft Office باستخدام Visual Studio
(office.10).aspx من http://msdn2.microsoft.com/en-us/library/aa188489
(ج) Microsoft Corporation 2001، جميع الحقوق محفوظة. المساهمات المقدمة من وري ب. تيرنر، Microsoft Corporation.

WD2007

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

خصائص

رقم الموضوع: 313193 - آخر مراجعة: 11/01/2015 00:58:00 - المراجعة: 8.0

Microsoft Visual Basic 6.0 Professional Edition, Microsoft Office Word 2007, Microsoft Word 2002 Standard Edition, Microsoft Word 2000 Standard Edition

  • kbexpertiseinter kbautomation kbhowtomaster kbmt KB313193 KbMtar
تعليقات
oft.com/c.gif?DI=4050&did=1&t=">/html>html>t=">>0&did=1&t=">