Sdílet prostřednictvím

ControlCollection.AddRichTextContentControl – metoda (ContentControl, String)

  • Článek

Přidá novou RichTextContentControl který je založen na nativní obsahu ovládacího prvku v dokumentu.

Obor názvů:  Microsoft.Office.Tools.Word
Sestavení:  Microsoft.Office.Tools.Word (v Microsoft.Office.Tools.Word.dll)

Syntaxe

'Deklarace
Function AddRichTextContentControl ( _
    contentControl As ContentControl, _
    name As String _
) As RichTextContentControl

RichTextContentControl AddRichTextContentControl(
    ContentControl contentControl,
    string name
)

Parametry

Vrácená hodnota

Typ: Microsoft.Office.Tools.Word.RichTextContentControl
RichTextContentControl , Byl přidán do dokumentu.

Výjimky

Výjimka Podmínka
ArgumentNullException

contentControl je nullodkaz null (Nothing v jazyce Visual Basic).

-nebo-

nameje nullodkaz null (Nothing v jazyce Visual Basic) nebo má nulovou délku.
ControlNameAlreadyExistsException

Ovládací prvek se stejným názvem je již ControlCollection.
ArgumentException

contentControlnení galerie stavebních bloků (to znamená Microsoft.Office.Interop.Word.ContentControl.Type vlastnost contentControl nemá hodnotu Microsoft.Office.Interop.Word.WdContentControlType.wdContentControlRichText).

Poznámky

Tuto metodu použijte, chcete-li přidat nový RichTextContentControl který je založen na nativní obsahu ovládacího prvku v dokumentu v době běhu.To je užitečné, když vytváříte RichTextContentControl za běhu, a chcete-li znovu vytvořit stejný ovládací prvek při příštím otevření dokumentu.Další informace naleznete v tématu Přidání ovládacích prvků do dokumentů sady Office v době spuštění.

Příklady

Následující příklad kódu vytvoří novou RichTextContentControl pro každý ovládací prvek nativní pole s formátovaným textem, který je v dokumentu.

Tato verze je pro přizpůsobení úroveň dokument.Chcete-li použít tento kód, vložte jej do ThisDocument třídy v projektu a volání CreateRichTextControlsFromNativeControls metoda z ThisDocument_Startup metoda.

Private richTextControls As New System.Collections.Generic.List _
        (Of Microsoft.Office.Tools.Word.RichTextContentControl)

Private Sub CreateRichTextControlsFromNativeControls()
    If Me.ContentControls.Count <= 0 Then
        Return
    End If

    Dim count As Integer = 0
    For Each nativeControl As Word.ContentControl In Me.ContentControls
        If nativeControl.Type = Word.WdContentControlType.wdContentControlRichText Then
            count += 1
            Dim tempControl As Microsoft.Office.Tools.Word.RichTextContentControl = _
                Me.Controls.AddRichTextContentControl(nativeControl, _
                "VSTORichTextContentControl" + count.ToString())
            richTextControls.Add(tempControl)
        End If
    Next nativeControl
End Sub

private System.Collections.Generic.List
    <Microsoft.Office.Tools.Word.RichTextContentControl> richTextControls;

private void CreateRichTextControlsFromNativeControls()
{
    if (this.ContentControls.Count <= 0)
        return;

    richTextControls = new System.Collections.Generic.List
        <Microsoft.Office.Tools.Word.RichTextContentControl>();
    int count = 0;

    foreach (Word.ContentControl nativeControl in this.ContentControls)
    {
        if (nativeControl.Type ==
            Microsoft.Office.Interop.Word.WdContentControlType.wdContentControlRichText)
        {
            count++;
            Microsoft.Office.Tools.Word.RichTextContentControl tempControl =
                this.Controls.AddRichTextContentControl(nativeControl,
                "VSTORichTextControl" + count.ToString());
            richTextControls.Add(tempControl);
        }
    }
}

Tato verze je pro úroveň aplikace doplněk který se zaměřuje .NET Framework 4 nebo .NET Framework 4.5.Chcete-li použít tento kód, vložte jej do ThisAddIn třídy v projektu a volání CreateRichTextControlsFromNativeControls metoda z ThisAddIn_Startup metoda.

Private richTextControls As New System.Collections.Generic.List _
        (Of Microsoft.Office.Tools.Word.RichTextContentControl)

Private Sub CreateRichTextControlsFromNativeControls()
    If Me.Application.ActiveDocument Is Nothing Then
        Return
    End If

    Dim vstoDoc As Document = Globals.Factory.GetVstoObject(Me.Application.ActiveDocument)
    If vstoDoc.ContentControls.Count <= 0 Then
        Return
    End If

    Dim count As Integer = 0
    For Each nativeControl As Word.ContentControl In vstoDoc.ContentControls
        If nativeControl.Type = Word.WdContentControlType.wdContentControlRichText Then
            count += 1
            Dim tempControl As Microsoft.Office.Tools.Word.RichTextContentControl = _
                vstoDoc.Controls.AddRichTextContentControl(nativeControl, _
                "VSTORichTextContentControl" + count.ToString())
            richTextControls.Add(tempControl)
        End If
    Next nativeControl
End Sub

private System.Collections.Generic.List
    <Microsoft.Office.Tools.Word.RichTextContentControl> richTextControls;

private void CreateRichTextControlsFromNativeControls()
{
    if (this.Application.ActiveDocument == null)
        return;

    Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
    if (vstoDoc.ContentControls.Count <= 0)
        return;

    richTextControls = new System.Collections.Generic.List
        <Microsoft.Office.Tools.Word.RichTextContentControl>();
    int count = 0;

    foreach (Word.ContentControl nativeControl in vstoDoc.ContentControls)
    {
        if (nativeControl.Type ==
            Microsoft.Office.Interop.Word.WdContentControlType.wdContentControlRichText)
        {
            count++;
            Microsoft.Office.Tools.Word.RichTextContentControl tempControl =
                vstoDoc.Controls.AddRichTextContentControl(nativeControl,
                "VSTORichTextControl" + count.ToString());
            richTextControls.Add(tempControl);
        }
    }
}

Následující příklad kódu vytvoří novou RichTextContentControl pro každý ovládací prvek nativní pole s formátovaným textem, který uživatel přidá do dokumentu.

Tato verze je pro přizpůsobení úroveň dokument.Chcete-li použít tento kód, vložte jej do ThisDocument tříd v projektu.Pro jazyk C#, je třeba také připojit ThisDocument_RichTextContentControlAfterAdd obslužnou rutinu události ContentControlAfterAdd události ThisDocument třídy.

Private Sub ThisDocument_RichTextContentControlAfterAdd(ByVal NewContentControl As Word.ContentControl, _
    ByVal InUndoRedo As Boolean) Handles Me.ContentControlAfterAdd

    If NewContentControl.Type = Word.WdContentControlType.wdContentControlRichText Then
        Me.Controls.AddRichTextContentControl(NewContentControl, _
            "RichTextControl" + NewContentControl.ID)
    End If
End Sub

void ThisDocument_RichTextContentControlAfterAdd(Word.ContentControl NewContentControl, bool InUndoRedo)
{
    if (NewContentControl.Type == Word.WdContentControlType.wdContentControlRichText)
    {
        this.Controls.AddRichTextContentControl(NewContentControl,
            "RichTextControl" + NewContentControl.ID);
    }
}

Tato verze je pro úroveň aplikace doplněk který se zaměřuje .NET Framework 4 nebo .NET Framework 4.5.Chcete-li použít tento kód, vložte jej do ThisAddIn tříd v projektu.Navíc je nutné připojit ActiveDocument_RichTextContentControlAfterAdd obslužnou rutinu události ContentControlAfterAdd události aktivního dokumentu.

Private Sub ActiveDocument_RichTextContentControlAfterAdd( _
    ByVal NewContentControl As Word.ContentControl, _
    ByVal InUndoRedo As Boolean)

    Dim vstoDoc As Document = Globals.Factory.GetVstoObject(Me.Application.ActiveDocument)
    If NewContentControl.Type = Word.WdContentControlType. _
        wdContentControlRichText Then
        vstoDoc.Controls.AddRichTextContentControl(NewContentControl, _
            "RichTextControl" + NewContentControl.ID)
    End If
End Sub

void ActiveDocument_RichTextContentControlAfterAdd(
    Word.ContentControl NewContentControl, bool InUndoRedo)
{
    Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
    if (NewContentControl.Type == Word.WdContentControlType.wdContentControlRichText)
    {
        vstoDoc.Controls.AddRichTextContentControl(NewContentControl,
            "RichTextControl" + NewContentControl.ID);
    }
}

Zabezpečení rozhraní .NET Framework

Viz také

Referenční dokumentace

ControlCollection Rozhraní

AddRichTextContentControl – přetížení

Microsoft.Office.Tools.Word – obor názvů

Další zdroje

Přidání ovládacích prvků do dokumentů sady Office v době spuštění

Jak: přidání ovládacích prvků obsahu v dokumentech aplikace Word