DocumentBase.SelectContentControlsByTag 方法
返回文档中具有指定标记的所有内容控件。
命名空间: Microsoft.Office.Tools.Word
程序集: Microsoft.Office.Tools.Word.v4.0.Utilities(在 Microsoft.Office.Tools.Word.v4.0.Utilities.dll 中)
语法
声明
Public Function SelectContentControlsByTag ( _
tag As String _
) As ContentControls
public ContentControls SelectContentControlsByTag(
string tag
)
参数
- tag
类型:System.String
要返回的内容控件的标记。
返回值
类型:Microsoft.Office.Interop.Word.ContentControls
一个 ContentControls 集合,包含文档中具有指定标记的内容控件。
示例
下面的代码示例将在文档中添加三个段落,然后分别向每个新段落添加一个控件:RichTextContentControl、ComboBoxContentControl 和 DropDownListContentControl。 该示例还将设置每个控件的“Tag”和“Title”属性。 接下来,该代码将调用 SelectContentControlsByTag 方法,以获取标记值等于客户的本机内容控件的集合,然后在消息框中显示所返回集合中的每个控件的标题。 若要使用此示例,请从文档级项目内的 ThisDocument 类中运行此示例。
Private Sub ContentControlsTag()
Dim par1 As Word.Paragraph = Me.Paragraphs.Add()
Dim richTextControl As _
Microsoft.Office.Tools.Word.RichTextContentControl = _
Me.Controls.AddRichTextContentControl(par1.Range, "richTextControl")
richTextControl.Tag = "Customer"
richTextControl.Title = "Customer Name"
Dim par2 As Word.Paragraph = Me.Paragraphs.Add()
Dim comboBoxControl As _
Microsoft.Office.Tools.Word.ComboBoxContentControl = _
Me.Controls.AddComboBoxContentControl(par2.Range, "comboBoxControl")
comboBoxControl.Tag = "Customer"
comboBoxControl.Title = "Customer Title"
Dim par3 As Word.Paragraph = Me.Paragraphs.Add()
Dim dropDownListControl As _
Microsoft.Office.Tools.Word.DropDownListContentControl = _
Me.Controls.AddDropDownListContentControl(par3.Range, _
"dropDownListControl")
dropDownListControl.Tag = "Products"
dropDownListControl.Title = "List of Products"
Dim relatedControls As Word.ContentControls = _
Me.SelectContentControlsByTag("Customer")
MessageBox.Show("Displaying all controls with a Tag value of" + _
" 'Customer'. Click OK to continue.")
For Each ctrl As Word.ContentControl In relatedControls
MessageBox.Show("Control title: " + ctrl.Title)
Next
End Sub
private void ContentControlsTag()
{
Word.Paragraph par1 = this.Paragraphs.Add(ref missing);
Microsoft.Office.Tools.Word.RichTextContentControl richTextControl =
this.Controls.AddRichTextContentControl(par1.Range,
"richTextControl");
richTextControl.Tag = "Customer";
richTextControl.Title = "Customer Name";
Word.Paragraph par2 = this.Paragraphs.Add(ref missing);
Microsoft.Office.Tools.Word.ComboBoxContentControl comboBoxControl =
this.Controls.AddComboBoxContentControl(par2.Range,
"comboBoxControl");
comboBoxControl.Tag = "Customer";
comboBoxControl.Title = "Customer Title";
Word.Paragraph par3 = this.Paragraphs.Add(ref missing);
Microsoft.Office.Tools.Word.DropDownListContentControl
dropDownListControl = this.Controls.AddDropDownListContentControl(
par3.Range, "dropDownListControl");
dropDownListControl.Tag = "Products";
dropDownListControl.Title = "List of Products";
Word.ContentControls relatedControls =
this.SelectContentControlsByTag("Customer");
MessageBox.Show("Displaying all controls with a Tag value of" +
" 'Customer'. Click OK to continue.");
foreach (Word.ContentControl ctrl in relatedControls)
{
MessageBox.Show("Control title: " + ctrl.Title);
}
}
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息,请参见通过部分受信任的代码使用库。