كيفية القيام بما يلي: طي النطاقات أو التحديدات في المستندات

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى المستند مشروعات على مستوى التطبيق إصدار Microsoft Office Word 2007 Word 2010

إذا كنت تعمل مع كائن Range أو Selection ، قد ترغب في تغيير التحديد على نقطة إدراجٍ ما قبل إدراج النص لتجنب الكتابة فوق النص الموجود. كل من كائنات Range و Selection تحتوي على الأسلوب Collapse ، الذي يقوم باستخدام قيم التعداد WdCollapseDirection :

• wdCollapseStart تقوم بطي التحديد إلى بداية التحديد. هذا هو الإعداد الافتراضي إذا لم تقم بتعيين قيمة تعداد.

• wdCollapseEnd تقوم بطي التحديد إلى نهاية التحديد.

لطي نطاق و إدراج نص جديد

1. قم بإنشاء كائن Range يتكون من أول فقرة في المستند.

   يمكن استخدام مثال التعليمات البرمجية التالي في تخصيص على مستوى المستند.

   Dim rng As Word.Range = Me.Paragraphs(1).Range
   

   Word.Range rng = this.Paragraphs[1].Range; 
   

   يمكن استخدام مثال التعليمة البرمجية التالية في المستوى تطبيق إضافة-في. وهذا تعليمات برمجية يستخدم مستند النشط.

   Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
   

   Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
   

2. قم باستخدام قيمة التعداد wdCollapseStart لطي النطاق.

   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
   

   rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 
   

3. قم بإدراج النص الجديد.

   rng.Text = " New Text "
   

   rng.Text = " New Text ";
   

4. حدد الـ Range

   rng.Select()
   

   rng.Select();
   

إذا استخدمت قيمة التعداد wdCollapseEnd يتم إدراج النص في بداية الفقرة التالية.

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);

قد تتوقع أن إدراج جملة جديدة سيقوم بإدراجها قبل علامة الفقرة ولكن الأمر ليس كذلك لأن النطاق الأصلي يتضمن علامة الفقرة. لمزيد من المعلومات، راجع كيفية القيام بما يلي: استبعاد علامات الفقرة عند إنشاء النطاقات.

مثال تخصيص على مستوى المستند

لطي نطاق في تخصيص على مستوى المستند

• يُظهر المثال التالي الأسلوب الكامل لتخصيص على مستوى المستند. لاستخدام هذه التعليمات البرمجية، قم بتشغيلها من الفئة ThisDocument في مشروعك.

  Dim rng As Word.Range = Me.Paragraphs(1).Range
  
  rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
  
  rng.Text = " New Text "
  rng.Select()
  

  Word.Range rng = this.Paragraphs[1].Range; 
  
  rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 
  
  rng.Text = " New Text ";
  rng.Select();
  

مثال لوظيفة إضافية على مستوى التطبيق

لطي نطاق في وظيفة إضافية على مستوى التطبيق

• يوضح المثال التالي طريقة كاملة المستوى تطبيق إضافة-في. لاستخدام هذه التعليمات البرمجية، قم بتشغيلها من الفئة ThisAddIn في مشروعك.

  Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
  
  rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)
  
  rng.Text = " New Text "
  rng.Select()
  

  Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
  
  rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);
  
  rng.Text = " New Text ";
  rng.Select();
  

راجع أيضًا:

المهام

كيفية القيام بما يلي: إدراج نص في مستندات Word

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

كيفية القيام بما يلي: استرداد أحرف البداية والنهاية في النطاقات

كيفية القيام بما يلي: استبعاد علامات الفقرة عند إنشاء النطاقات

كيفية القيام بما يلي: توسيع النطاقات في المستندات

كيفية القيام بما يلي: إعادة تعيين النطاقات في مستندات Word