ControlCollection.AddBuildingBlockGalleryContentControl Метод (ContentControl, String) (2007 System)

Статья
11/16/2008

Обновлен: Июль 2008

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

Пространство имен: Microsoft.Office.Tools.Word
Сборка: Microsoft.Office.Tools.Word.v9.0 (в Microsoft.Office.Tools.Word.v9.0.dll)

Синтаксис

'Декларация
Public Function AddBuildingBlockGalleryContentControl ( _
    contentControl As ContentControl, _
    name As String _
) As BuildingBlockGalleryContentControl
'Применение
Dim instance As ControlCollection
Dim contentControl As ContentControl
Dim name As String
Dim returnValue As BuildingBlockGalleryContentControl

returnValue = instance.AddBuildingBlockGalleryContentControl(contentControl, _
    name)

public BuildingBlockGalleryContentControl AddBuildingBlockGalleryContentControl(
    ContentControl contentControl,
    string name
)

Параметры

contentControl
Тип: Microsoft.Office.Interop.Word.ContentControl
Элемент управления Microsoft.Office.Interop.Word.ContentControl, служащий основой для нового элемента управления.

name
Тип: System.String
Имя нового элемента управления.

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

Тип: Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl
Элемент управления BuildingBlockGalleryContentControl, добавленный в документ.

Исключения

Исключение	Условие
ArgumentNullException	Значение параметра contentControl равно nullссылка null (Nothing в Visual Basic). –или– Параметр name имеет значение nullссылка null (Nothing в Visual Basic) или нулевую длину.
ControlNameAlreadyExistsException	Элемент управления с таким именем уже имеется в данном экземпляре коллекции ControlCollection.
ArgumentException	Параметр contentControl не является коллекцией стандартных блоков (это значит, что свойству Type объекта contentControl не присвоено значение Microsoft.Office.Interop.Word.WdContentControlType.wdContentControlBuildingBlockGallery).

ArgumentNullException

Значение параметра contentControl равно nullссылка null (Nothing в Visual Basic).

–или–

Параметр name имеет значение nullссылка null (Nothing в Visual Basic) или нулевую длину.

ControlNameAlreadyExistsException

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

ArgumentException

Параметр contentControl не является коллекцией стандартных блоков (это значит, что свойству Type объекта contentControl не присвоено значение Microsoft.Office.Interop.Word.WdContentControlType.wdContentControlBuildingBlockGallery).

Заметки

Этот метод используется для добавления нового элемента управления BuildingBlockGalleryContentControl, основанного на исходном элементе управления содержимым в документе. Это полезно при создании элемента управления BuildingBlockGalleryContentControl во время выполнения, если необходимо повторно создать такой же элемент управления при следующем открытии документа. Дополнительные сведения см. в разделе Добавление элементов управления в документы Office во время выполнения.

Примеры

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

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

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

Private Sub CreateBuildingBlockGalleryControlsFromNativeControls()
    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.wdContentControlBuildingBlockGallery Then
            count += 1
            Dim tempControl As Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl = _
                Me.Controls.AddBuildingBlockGalleryContentControl(nativeControl, _
                "VSTOBuildingBlockGalleryContentControl" + count.ToString())
            buildingBlockControls.Add(tempControl)
        End If
    Next nativeControl
End Sub

private System.Collections.Generic.List
   <Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl> buildingBlockControls;

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

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

    foreach (Word.ContentControl nativeControl in this.ContentControls)
    {
        if (nativeControl.Type == Word.WdContentControlType.wdContentControlBuildingBlockGallery)
        {
            count++;
            Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl tempControl =
                this.Controls.AddBuildingBlockGalleryContentControl(nativeControl,
                "VSTOBuildingBlockContentControl" + count.ToString());
            buildingBlockControls.Add(tempControl);
        }
    }
}

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

Private buildingBlockControls As New System.Collections.Generic.List _
        (Of BuildingBlockGalleryContentControl)

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

    Dim vstoDoc As Document = Me.Application.ActiveDocument.GetVstoObject()
    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.wdContentControlBuildingBlockGallery Then
            count += 1
            Dim tempControl As Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl = _
                vstoDoc.Controls.AddBuildingBlockGalleryContentControl(nativeControl, _
                "VSTOBuildingBlockGalleryContentControl" + count.ToString())
            buildingBlockControls.Add(tempControl)
        End If
    Next nativeControl
End Sub

private System.Collections.Generic.List
   <Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl> buildingBlockControls;

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

    Document vstoDoc = this.Application.ActiveDocument.GetVstoObject();
    if (vstoDoc.ContentControls.Count <= 0)
    {
        System.Windows.Forms.MessageBox.Show("No content controls found in document.");                    
        return;
    }

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

    foreach (Word.ContentControl nativeControl in vstoDoc.ContentControls)
    {
        if (nativeControl.Type == Word.WdContentControlType.wdContentControlBuildingBlockGallery)
        {
            count++;
            Microsoft.Office.Tools.Word.BuildingBlockGalleryContentControl tempControl =
                vstoDoc.Controls.AddBuildingBlockGalleryContentControl(nativeControl,
                "VSTOBuildingBlockContentControl" + count.ToString());
            buildingBlockControls.Add(tempControl);
        }
    }
}

В приведенном ниже примере кода создается новый элемент управления BuildingBlockGalleryContentControl для каждой коллекции стандартных блоков, добавляемой пользователем в документ.

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

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

    If NewContentControl.Type = Word.WdContentControlType.wdContentControlBuildingBlockGallery Then
        Me.Controls.AddBuildingBlockGalleryContentControl(NewContentControl, _
            "BuildingBlockControl" + NewContentControl.ID)
    End If
End Sub

void ThisDocument_BuildingBlockContentControlAfterAdd(Word.ContentControl NewContentControl, bool InUndoRedo)
{
    if (NewContentControl.Type == Word.WdContentControlType.wdContentControlBuildingBlockGallery)
    {
        this.Controls.AddBuildingBlockGalleryContentControl(NewContentControl,
            "BuildingBlockControl" + NewContentControl.ID);
    }
}

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

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

    Dim vstoDoc As Document = Me.Application.ActiveDocument.GetVstoObject()
    If NewContentControl.Type = Word.WdContentControlType. _
        wdContentControlBuildingBlockGallery Then
        vstoDoc.Controls.AddBuildingBlockGalleryContentControl(NewContentControl, _
            "BuildingBlockControl" + NewContentControl.ID)
    End If
End Sub

void ActiveDocument_BuildingBlockContentControlAfterAdd(
    Word.ContentControl NewContentControl, bool InUndoRedo)
{
    Document vstoDoc = this.Application.ActiveDocument.GetVstoObject();
    if (NewContentControl.Type == Word.WdContentControlType.wdContentControlBuildingBlockGallery)
    {
        vstoDoc.Controls.AddBuildingBlockGalleryContentControl(NewContentControl,
            "BuildingBlockControl" + NewContentControl.ID);
    }
}

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

ControlCollection Класс

ControlCollection - члены

AddBuildingBlockGalleryContentControl - перегрузка

Microsoft.Office.Tools.Word - пространство имен

Другие ресурсы

Добавление элементов управления в документы Office во время выполнения

Вспомогательные методы для элементов управления ведущего приложения

Практическое руководство. Добавление элементов управления содержимым в документы Word

Журнал изменений

Дата	Журнал событий	Причина
Июль 2008	Добавлены версии примеров кода для надстройки уровня приложения.	Изменение функции SP1.

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