Поделиться через


ControlCollection.AddDropDownListContentControl Метод

Определение

Перегрузки

AddDropDownListContentControl(String)

Добавляет новый элемент управления DropDownListContentControl в выделенном фрагменте документа.

AddDropDownListContentControl(ContentControl, String)

Добавляет в коллекцию новый объект DropDownListContentControl. Новый элемент управления, основанный на собственном элементе управления содержимым в документе.

AddDropDownListContentControl(Range, String)

Добавляет новый объект DropDownListContentControl в указанный диапазон в документе.

AddDropDownListContentControl(String)

Добавляет новый элемент управления DropDownListContentControl в выделенном фрагменте документа.

public:
 Microsoft::Office::Tools::Word::DropDownListContentControl ^ AddDropDownListContentControl(System::String ^ name);
public Microsoft.Office.Tools.Word.DropDownListContentControl AddDropDownListContentControl (string name);
abstract member AddDropDownListContentControl : string -> Microsoft.Office.Tools.Word.DropDownListContentControl
Public Function AddDropDownListContentControl (name As String) As DropDownListContentControl

Параметры

name
String

Имя нового элемента управления.

Возвращаемое значение

Объект DropDownListContentControl, добавленный в документ.

Исключения

name имеет значение null или нулевую длину.

Элемент управления с таким именем уже содержится в ControlCollection.

Примеры

В следующем примере кода добавляется новый DropDownListContentControl объект в начало документа. В примере также добавляются имена нескольких дней в список элементов, которые пользователи могут выбрать в элементе управления .

Эта версия предназначена для настройки на уровне документа. Чтобы использовать этот код, вставьте его в ThisDocument класс в проекте и вызовите AddDropDownListControlAtSelection метод из ThisDocument_Startup метода .

private Microsoft.Office.Tools.Word.DropDownListContentControl dropDownListControl1;

private void AddDropDownListControlAtSelection()
{
    this.Paragraphs[1].Range.InsertParagraphBefore();
    this.Paragraphs[1].Range.Select();

    dropDownListControl1 = this.Controls.AddDropDownListContentControl("dropDownListControl1");
    dropDownListControl1.DropDownListEntries.Add("Monday", "Monday", 0);
    dropDownListControl1.DropDownListEntries.Add("Tuesday", "Tuesday", 1);
    dropDownListControl1.DropDownListEntries.Add("Wednesday", "Wednesday", 2);
    dropDownListControl1.PlaceholderText = "Choose a day";
}
Dim dropDownListControl1 As Microsoft.Office.Tools.Word.DropDownListContentControl

Private Sub AddDropDownListControlAtSelection()
    Me.Paragraphs(1).Range.InsertParagraphBefore()
    Me.Paragraphs(1).Range.Select()
    dropDownListControl1 = Me.Controls.AddDropDownListContentControl("dropDownListControl1")
    With dropDownListControl1
        .DropDownListEntries.Add("Monday", "Monday", 0)
        .DropDownListEntries.Add("Tuesday", "Tuesday", 1)
        .DropDownListEntries.Add("Wednesday", "Wednesday", 2)
        .PlaceholderText = "Choose a day"
    End With
End Sub

Эта версия предназначена для надстройки уровня приложения, предназначенной для платформа .NET Framework 4 или платформа .NET Framework 4.5. Чтобы использовать этот код, вставьте его в ThisAddIn класс в проекте и вызовите AddDropDownListControlAtSelection метод из ThisAddIn_Startup метода .

private Microsoft.Office.Tools.Word.DropDownListContentControl dropDownListControl1;

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

    Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
    vstoDoc.Paragraphs[1].Range.InsertParagraphBefore();
    vstoDoc.Paragraphs[1].Range.Select();

    dropDownListControl1 = vstoDoc.Controls.AddDropDownListContentControl("dropDownListControl1");
    dropDownListControl1.DropDownListEntries.Add("Monday", "Monday", 0);
    dropDownListControl1.DropDownListEntries.Add("Tuesday", "Tuesday", 1);
    dropDownListControl1.DropDownListEntries.Add("Wednesday", "Wednesday", 2);
    dropDownListControl1.PlaceholderText = "Choose a day";
}
Dim dropDownListControl1 As Microsoft.Office.Tools.Word.DropDownListContentControl

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

    Dim vstoDoc As Document = Globals.Factory.GetVstoObject(Me.Application.ActiveDocument)
    vstoDoc.Paragraphs(1).Range.InsertParagraphBefore()
    vstoDoc.Paragraphs(1).Range.Select()
    dropDownListControl1 = vstoDoc.Controls.AddDropDownListContentControl("dropDownListControl1")
    With dropDownListControl1
        .DropDownListEntries.Add("Monday", "Monday", 0)
        .DropDownListEntries.Add("Tuesday", "Tuesday", 1)
        .DropDownListEntries.Add("Wednesday", "Wednesday", 2)
        .PlaceholderText = "Choose a day"
    End With
End Sub

Комментарии

Используйте этот метод, чтобы добавить новый DropDownListContentControl объект в текущем выделенном фрагменте документа во время выполнения. Для получения дополнительной информации см. Adding Controls to Office Documents at Run Time.

Применяется к

AddDropDownListContentControl(ContentControl, String)

Добавляет в коллекцию новый объект DropDownListContentControl. Новый элемент управления, основанный на собственном элементе управления содержимым в документе.

public:
 Microsoft::Office::Tools::Word::DropDownListContentControl ^ AddDropDownListContentControl(Microsoft::Office::Interop::Word::ContentControl ^ contentControl, System::String ^ name);
public Microsoft.Office.Tools.Word.DropDownListContentControl AddDropDownListContentControl (Microsoft.Office.Interop.Word.ContentControl contentControl, string name);
abstract member AddDropDownListContentControl : Microsoft.Office.Interop.Word.ContentControl * string -> Microsoft.Office.Tools.Word.DropDownListContentControl
Public Function AddDropDownListContentControl (contentControl As ContentControl, name As String) As DropDownListContentControl

Параметры

contentControl
ContentControl

Объект ContentControl, который является основой для нового элемента управления.

name
String

Имя нового элемента управления.

Возвращаемое значение

Объект DropDownListContentControl, добавленный в документ.

Исключения

contentControl имеет nullзначение .-or- name is null или имеет нулевую длину.

Элемент управления с таким именем уже содержится в ControlCollection.

contentControlне является коллекцией стандартных блоков (то есть Type свойство contentControl не имеет значения Microsoft.Office.Interop.Word. WdContentControlType.wdContentControlDropdownList).

Примеры

В следующем примере кода создается новый DropDownListContentControl для каждого раскрывающегося списка машинного кода, который находится в документе.

Эта версия предназначена для настройки на уровне документа. Чтобы использовать этот код, вставьте его в ThisDocument класс в проекте и вызовите CreateDropDownListControlsFromNativeControls метод из ThisDocument_Startup метода .

private System.Collections.Generic.List
    <Microsoft.Office.Tools.Word.DropDownListContentControl> dropDownControls;

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

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

    foreach (Word.ContentControl nativeControl in this.ContentControls)
    {
        if (nativeControl.Type == Word.WdContentControlType.wdContentControlDropdownList)
        {
            count++;
            Microsoft.Office.Tools.Word.DropDownListContentControl tempControl =
                this.Controls.AddDropDownListContentControl(nativeControl,
                "VSTODropDownListContentControl" + count.ToString());
            dropDownControls.Add(tempControl);
        }
    }
}
Private dropDownListControls As New System.Collections.Generic.List _
        (Of Microsoft.Office.Tools.Word.DropDownListContentControl)

Private Sub CreateDropDownListControlsFromNativeControls()
    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.wdContentControlDropdownList Then
            count += 1
            Dim tempControl As Microsoft.Office.Tools.Word.DropDownListContentControl = _
                Me.Controls.AddDropDownListContentControl(nativeControl, _
                "VSTODropDownListContentControl" + count.ToString())
            dropDownListControls.Add(tempControl)
        End If
    Next nativeControl
End Sub

Эта версия предназначена для надстройки уровня приложения, предназначенной для платформа .NET Framework 4 или платформа .NET Framework 4.5. Чтобы использовать этот код, вставьте его в ThisAddIn класс в проекте надстройки CreateDropDownListControlsFromNativeControls и вызовите метод из ThisAddIn_Startup метода .

private System.Collections.Generic.List
    <Microsoft.Office.Tools.Word.DropDownListContentControl> dropDownControls;

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

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

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

    foreach (Word.ContentControl nativeControl in vstoDoc.ContentControls)
    {
        if (nativeControl.Type == Word.WdContentControlType.wdContentControlDropdownList)
        {
            count++;
            Microsoft.Office.Tools.Word.DropDownListContentControl tempControl =
                vstoDoc.Controls.AddDropDownListContentControl(nativeControl,
                "VSTODropDownListContentControl" + count.ToString());
            dropDownControls.Add(tempControl);
        }
    }
}
Private dropDownListControls As New System.Collections.Generic.List _
        (Of Microsoft.Office.Tools.Word.DropDownListContentControl)

Private Sub CreateDropDownListControlsFromNativeControls()
    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.wdContentControlDropdownList Then
            count += 1
            Dim tempControl As Microsoft.Office.Tools.Word.DropDownListContentControl = _
                vstoDoc.Controls.AddDropDownListContentControl(nativeControl, _
                "VSTODropDownListContentControl" + count.ToString())
            dropDownListControls.Add(tempControl)
        End If
    Next nativeControl
End Sub

В следующем примере кода создается новый DropDownListContentControl для каждого раскрывающегося списка машинного кода, добавляемого пользователем в документ.

Эта версия предназначена для настройки на уровне документа. Чтобы использовать этот код, вставьте его в ThisDocument класс в проекте. Для C# необходимо также прикрепить ThisDocument_DropDownListContentControlAfterAdd обработчик событий к событию ContentControlAfterAddThisDocument класса .

void ThisDocument_DropDownListContentControlAfterAdd(Word.ContentControl NewContentControl, bool InUndoRedo)
{
    if (NewContentControl.Type == Word.WdContentControlType.wdContentControlDropdownList)
    {
        this.Controls.AddDropDownListContentControl(NewContentControl,
            "DropDownListControl" + NewContentControl.ID);
    }
}
Private Sub ThisDocument_DropDownListContentControlAfterAdd(ByVal NewContentControl As Word.ContentControl, _
    ByVal InUndoRedo As Boolean) Handles Me.ContentControlAfterAdd

    If NewContentControl.Type = Word.WdContentControlType.wdContentControlDropdownList Then
        Me.Controls.AddDropDownListContentControl(NewContentControl, _
            "DropDownListControl" + NewContentControl.ID)
    End If
End Sub

Эта версия предназначена для надстройки уровня приложения, предназначенной для платформа .NET Framework 4 или платформа .NET Framework 4.5. Чтобы использовать этот код, вставьте его в ThisAddIn класс в проекте. Кроме того, необходимо прикрепить ActiveDocument_DropDownListContentControlAfterAdd обработчик событий к событию ContentControlAfterAdd активного документа.

void ActiveDocument_DropDownListContentControlAfterAdd(
    Word.ContentControl NewContentControl, bool InUndoRedo)
{
    Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
    if (NewContentControl.Type == Word.WdContentControlType.wdContentControlDropdownList)
    {
        vstoDoc.Controls.AddDropDownListContentControl(NewContentControl,
            "DropDownListControl" + NewContentControl.ID);
    }
}
Private Sub ActiveDocument_DropDownListContentControlAfterAdd( _
    ByVal NewContentControl As Word.ContentControl, _
    ByVal InUndoRedo As Boolean)

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

Комментарии

Используйте этот метод для добавления нового DropDownListContentControl объекта, основанного на собственном элементе управления содержимым, в документе во время выполнения. Это полезно при создании DropDownListContentControl во время выполнения и при следующем открытии документа необходимо повторно создать тот же элемент управления. Для получения дополнительной информации см. Adding Controls to Office Documents at Run Time.

Применяется к

AddDropDownListContentControl(Range, String)

Добавляет новый объект DropDownListContentControl в указанный диапазон в документе.

public:
 Microsoft::Office::Tools::Word::DropDownListContentControl ^ AddDropDownListContentControl(Microsoft::Office::Interop::Word::Range ^ range, System::String ^ name);
public Microsoft.Office.Tools.Word.DropDownListContentControl AddDropDownListContentControl (Microsoft.Office.Interop.Word.Range range, string name);
abstract member AddDropDownListContentControl : Microsoft.Office.Interop.Word.Range * string -> Microsoft.Office.Tools.Word.DropDownListContentControl
Public Function AddDropDownListContentControl (range As Range, name As String) As DropDownListContentControl

Параметры

range
Range

Объект Range, предоставляющий границы для нового элемента управления.

name
String

Имя нового элемента управления.

Возвращаемое значение

Объект DropDownListContentControl, добавленный в документ.

Исключения

name имеет значение null или нулевую длину.

Элемент управления с таким именем уже содержится в ControlCollection.

Примеры

В следующем примере кода добавляется новый DropDownListContentControl объект в начало документа. В примере также добавляются имена нескольких дней в список элементов, которые пользователи могут выбрать в элементе управления .

Эта версия предназначена для настройки на уровне документа. Чтобы использовать этот код, вставьте его в ThisDocument класс в проекте и вызовите AddDropDownListControlAtRange метод из ThisDocument_Startup метода .

private Microsoft.Office.Tools.Word.DropDownListContentControl dropDownListControl2;

private void AddDropDownListControlAtRange()
{
    this.Paragraphs[1].Range.InsertParagraphBefore();

    dropDownListControl2 = this.Controls.AddDropDownListContentControl(this.Paragraphs[1].Range,
        "dropDownListControl2");
    dropDownListControl2.DropDownListEntries.Add("Monday", "Monday", 0);
    dropDownListControl2.DropDownListEntries.Add("Tuesday", "Tuesday", 1);
    dropDownListControl2.DropDownListEntries.Add("Wednesday", "Wednesday", 2);
    dropDownListControl2.PlaceholderText = "Choose a day";
}
Dim dropDownListControl2 As Microsoft.Office.Tools.Word.DropDownListContentControl

Private Sub AddDropDownListControlAtRange()
    Me.Paragraphs(1).Range.InsertParagraphBefore()
    dropDownListControl2 = Me.Controls.AddDropDownListContentControl(Me.Paragraphs(1).Range, _
        "dropDownListControl2")
    With dropDownListControl2
        .DropDownListEntries.Add("Monday", "Monday", 0)
        .DropDownListEntries.Add("Tuesday", "Tuesday", 1)
        .DropDownListEntries.Add("Wednesday", "Wednesday", 2)
        .PlaceholderText = "Choose a day"
    End With
End Sub

Эта версия предназначена для надстройки уровня приложения, предназначенной для платформа .NET Framework 4 или платформа .NET Framework 4.5. Чтобы использовать этот код, вставьте его в ThisAddIn класс в проекте и вызовите AddDropDownListControlAtRange метод из ThisAddIn_Startup метода .

private Microsoft.Office.Tools.Word.DropDownListContentControl dropDownListControl2;

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

    Document vstoDoc = Globals.Factory.GetVstoObject(this.Application.ActiveDocument);
    vstoDoc.Paragraphs[1].Range.InsertParagraphBefore();

    dropDownListControl2 = vstoDoc.Controls.AddDropDownListContentControl(
        vstoDoc.Paragraphs[1].Range,
        "dropDownListControl2");
    dropDownListControl2.DropDownListEntries.Add("Monday", "Monday", 0);
    dropDownListControl2.DropDownListEntries.Add("Tuesday", "Tuesday", 1);
    dropDownListControl2.DropDownListEntries.Add("Wednesday", "Wednesday", 2);
    dropDownListControl2.PlaceholderText = "Choose a day";
}
Dim dropDownListControl2 As Microsoft.Office.Tools.Word.DropDownListContentControl

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

    Dim vstoDoc As Document = Globals.Factory.GetVstoObject(Me.Application.ActiveDocument)
    vstoDoc.Paragraphs(1).Range.InsertParagraphBefore()
    dropDownListControl2 = vstoDoc.Controls.AddDropDownListContentControl( _
        vstoDoc.Paragraphs(1).Range, _
        "dropDownListControl2")
    With dropDownListControl2
        .DropDownListEntries.Add("Monday", "Monday", 0)
        .DropDownListEntries.Add("Tuesday", "Tuesday", 1)
        .DropDownListEntries.Add("Wednesday", "Wednesday", 2)
        .PlaceholderText = "Choose a day"
    End With
End Sub

Комментарии

Используйте этот метод для добавления нового DropDownListContentControl объекта в указанном диапазоне в документе во время выполнения. Для получения дополнительной информации см. Adding Controls to Office Documents at Run Time.

Применяется к