[ناجي إبراهيم]

السلام عليكم...

أ. إذا كنت تقصد إنشاء مستند جديد فالأمر سهل... باستعمال الوظيفة Add التابعة للكائن Documents:

كود :

Dim WordApp As New Word.Application

WordApp.Documents.Add()

بل و يمكنك إضافة نص مبدئي له مباشرةً:

كود :

Dim WordApp As New Word.Application

WordApp.Documents.Add().Range.Text = "بسم الله الرحمن الرحيم"

ب. أما إذا كنت تقصد إضافة صفحة جديدة إلى مستند موجود أصلاً فالأمر يحتاج إلى الكائن Range:

كود :

Dim WordApp As New Word.Application
Dim WordDoc As Word.Document = WordApp.Documents.Open("E:\MyFiles\MyDoc.docx")
Dim DocRng As Word.Range = WordDoc.Range()    ' إنشاء نطاق لكامل المستند

DocRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)     ' نقل نقطة الإدراج إلى نهاية المستند
DocRng.InsertBreak(Word.WdBreakType.wdPageBreak)            ' إدراج فاصل صفحات لإنشاء صفحة جديدة

* ملاحظة مهمة:
لا تنس أن جملة Dim WordApp As New Word.Application تعمل على تحميل نسخة جديدة من برنامج Word في الذاكرة - و إن كانت غير مرئية على الشاشة - و لهذا من المستحسن أن نقوم بإغلاقها باستعمال الوظيفة Quit (و حفظ التغييرات إذا أردنا قبل ذلك) بمجرد الانتهاء من العمل مع Word.

نرجو الاستفادة و السلام.