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

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

قم باستخدام الأسلوب SetRange لتغيير حجم نطاق موجود في مستندات Microsoft Office Word.

لإعادة تعيين نطاق موجود

1. قم بتعيين نطاق أولي بدءاً بأول سبعة أحرف في المستند .

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

   Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
   

   object start = 0; 
   object end = 7; 
   Word.Range rng = this.Range(ref start,ref end); 
   

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

   Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
   

   Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
   

2. استخدم SetRange لبدء النطاق في الجملة الثانية وإنهائه في نهاية الجملة الخامسة.

   rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
   

   rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End); 
   

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

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

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

  Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
  
  ' Reset the existing Range.
  rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
  rng.Select()
  

  object start = 0; 
  object end = 7; 
  Word.Range rng = this.Range(ref start,ref end); 
  
  // Reset the existing Range. 
  rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End); 
  rng.Select();
  

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

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

• The following example shows the complete example for an application-level add-in. لاستخدام هذه التعليمات البرمجية، قم بتشغيلها من الفئة ThisAddIn في مشروعك.

  Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
  
  ' Reset the existing Range.
  rng.SetRange(Start:=Me.Application.ActiveDocument.Sentences(2).Start, _
      End:=Me.Application.ActiveDocument.Sentences(5).End)
  rng.Select()
  

  Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
  
  // Reset the existing Range. 
  rng.SetRange(this.Application.ActiveDocument.Sentences[2].Start,
      this.Application.ActiveDocument.Sentences[5].End);
  rng.Select();
  

راجع أيضًا:

المهام

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

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

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

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