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

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

توجد ثلاث طرق أساسية لإدراج نص في مستندات Microsoft Office Word:

• إدراج نص في نطاق.

• استبدال نص في نطاق بنص جديد.

• استخدم الأسلوب TypeText الخاص بكائن Selection لإدراج النص عند المؤشر أو التحديد.

ملاحظة

يمكنك أيضاً إدراج النص فى عناصر تحكم المحتوى و الإشارات المرجعية. للمزيد من المعلومات، راجع عناصر تحكم المحتوى وعنصر تحكم الإشارة المرجعية.

إدراج نص في نطاق

استخدم الخاصية Text الخاصة بكائن Range لإدراج نص في المستند.

لإدراج نص في نطاق.

1. حدد نطاقا في بداية المستند و قم بإدراج النص نص جديد.

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

   Dim rng As Word.Range = Me.Range(Start:=0, End:=0)
   rng.Text = " New Text "
   

   object start = 0; 
   object end = 0; 
   
   Word.Range rng = this.Range(ref start, ref end); 
   rng.Text = "New Text"; 
   

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

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

   Word.Range rng = this.Application.ActiveDocument.Range(0, 0);
   rng.Text = "New Text";
   

2. حدد الكائن Range الذي تم توسيعه من حرف واحد إلى طول النص المدرج.

   rng.Select()
   

   rng.Select();
   

استبدال نص في نطاق

إذا كان النطاق المحدد يحتوي على نص ، يتم استبدال كل النص في النطاق بالنص المدرج.

لاستبدال نص في نطاق.

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

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

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

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

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

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

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

2. استبدل تلك الأحرف بالسلسلة نص جديد .

   rng.Text = " New Text "
   

   rng.Text = "New Text"; 
   

3. حدد النطاق .

   rng.Select()
   

   rng.Select();
   

إدراج نص باستخدام TypeText

The TypeText method inserts text at the selection. TypeText behaves differently depending on the options set on the user's computer. تقوم التعليمات البرمجية في الإجراء التالي بتعريف متغير كائن Selection كما تقوم بإيقاف تشغيل الخيار Overtype إذا كان قد تم تشغيله. إذا كان الخيار Overtype قد تم تنشيطه، فإن أي نص إلى جانب المؤشر يتم الكتابة فوقه .

لإدراج نص باستخدام الأسلوب TypeText

1. قم بتعريف متغير الكائن Selection .

   Dim currentSelection As Word.Selection = Application.Selection
   

   Word.Selection currentSelection = Application.Selection; 
   

2. قم بإيقاف تشغيل الخيار Overtype إذا كان قد تم تشغيله .

   If Application.Options.Overtype Then
       Application.Options.Overtype = False
   End If
   

   if (Application.Options.Overtype) 
   { 
       Application.Options.Overtype = false; 
   } 
   

3. اختبر لترى ما إذا كان التحديد الحالي هو نقطة إدراج.

   إذا كان كذلك، تقوم التعليمات البرمجية بإدراج الجملة باستخدام TypeText ، ثم علامة الفقرة باستخدام الأسلوب TypeParagraph .

   With currentSelection
   
       ' Test to see if selection is an insertion point.
       If .Type = Word.WdSelectionType.wdSelectionIP Then
           .TypeText("Inserting at insertion point. ")
           .TypeParagraph()
   

   // Test to see if selection is an insertion point.
   if (currentSelection.Type == Word.WdSelectionType.wdSelectionIP) 
   { 
       currentSelection.TypeText("Inserting at insertion point. ");
       currentSelection.TypeParagraph(); 
   } 
   

4. التعليمات البرمجية في كتلة ElseIf تختبر لترى ما إذا كان التحديد هو تحديد عادي. إذا كان كذلك، فإن كتلة If أخرى تختبر لترى ما إذا كان الخيار ReplaceSelection قد تم تشغيله . إذا كان كذلك ، تستخدم التعليمات البرمجية الأسلوب Collapse الخاص بالتحديد لطي التحديد إلى نقطة الإدراج في بداية كتلة النص المحددة. قم بإدراج النص و علامة فقرة.

   ElseIf .Type = Word.WdSelectionType.wdSelectionNormal Then
       ' Move to start of selection.
       If Application.Options.ReplaceSelection Then
           .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
       End If
       .TypeText("Inserting before a text block. ")
       .TypeParagraph()
   

   else 
       if (currentSelection.Type == Word.WdSelectionType.wdSelectionNormal)
       { 
           // Move to start of selection.
           if (Application.Options.ReplaceSelection)
           { 
               object direction = Word.WdCollapseDirection.wdCollapseStart;
               currentSelection.Collapse(ref direction);
           }
           currentSelection.TypeText("Inserting before a text block. ");
           currentSelection.TypeParagraph();
       }
   

5. إذا لم يكن التحديد نقطة إدراج أو كتلة من النص المحدد فإن التعليمات البرمجية في كتلة Else لا تفعل شيئاً .

   Else
       ' Do nothing.
   End If
   

   else
   {
       // Do nothing.
   }
   

يمكنك أيضاً استخدام الأسلوب TypeBackspace الخاص بكائن Selection الذي يحاكي وظيفة مفتاح "مسافة الخلف" على لوحة المفاتيح. ومع ذلك، فعندما يتعلق الأمر بإدراج نص و التعامل معه، فإن كائن Range يوفر لك أكثر من عنصر تحكم.

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

Friend Sub SelectionInsertText()
    Dim currentSelection As Word.Selection = Application.Selection

    ' Store the user's current Overtype selection
    Dim userOvertype As Boolean = Application.Options.Overtype

    ' Make sure Overtype is turned off.
    If Application.Options.Overtype Then
        Application.Options.Overtype = False
    End If

    With currentSelection

        ' Test to see if selection is an insertion point.
        If .Type = Word.WdSelectionType.wdSelectionIP Then
            .TypeText("Inserting at insertion point. ")
            .TypeParagraph()

        ElseIf .Type = Word.WdSelectionType.wdSelectionNormal Then
            ' Move to start of selection.
            If Application.Options.ReplaceSelection Then
                .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseStart)
            End If
            .TypeText("Inserting before a text block. ")
            .TypeParagraph()

        Else
            ' Do nothing.
        End If
    End With

    ' Restore the user's Overtype selection
    Application.Options.Overtype = userOvertype
End Sub

private void SelectionInsertText() 
{ 
    Word.Selection currentSelection = Application.Selection; 

    // Store the user's current Overtype selection
    bool userOvertype = Application.Options.Overtype;

    // Make sure Overtype is turned off.
    if (Application.Options.Overtype) 
    { 
        Application.Options.Overtype = false; 
    } 

    // Test to see if selection is an insertion point.
    if (currentSelection.Type == Word.WdSelectionType.wdSelectionIP) 
    { 
        currentSelection.TypeText("Inserting at insertion point. ");
        currentSelection.TypeParagraph(); 
    } 
    else 
        if (currentSelection.Type == Word.WdSelectionType.wdSelectionNormal)
        { 
            // Move to start of selection.
            if (Application.Options.ReplaceSelection)
            { 
                object direction = Word.WdCollapseDirection.wdCollapseStart;
                currentSelection.Collapse(ref direction);
            }
            currentSelection.TypeText("Inserting before a text block. ");
            currentSelection.TypeParagraph();
        }
        else
        {
            // Do nothing.
        }

    // Restore the user's Overtype selection
    Application.Options.Overtype = userOvertype;
}

راجع أيضًا:

المهام

كيفية القيام بما يلي: تنسيق النص في المستندات

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

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