Практическое руководство. Добавление смарт-тегов в книги Excel
Можно добавить смарт-теги в книгах Microsoft Office Excel, чтобы распознать текст и предоставить пользователю доступ к действиям, связанным с распознанными элементами. Код, написанный для создания и настройки смарт-тегов, одинаков для проектора на уровне документа и проектов на уровне приложения, но существуют некоторые отличия в способе связывания смарт-тегов с книгами. Смарт-теги также имеют различные области в проектах на уровне документа и на уровне приложения.
Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Excel 2007. Дополнительные сведения см. в разделе Доступность функций по типам приложений Office и проектов.
В этом разделе описаны следующие задачи:
Добавление смарт-тегов в настройки на уровне документа
Добавление смарт-тегов в надстройки уровня приложения
Чтобы выполнить смарт-тег, конечным пользователям должно быть предоставлено разрешение на выполнение смарт-тегов в приложениях Word или Excel. Дополнительные сведения см. в разделе Практическое руководство. Разрешение смарт-тегов в Word и Excel.
Для просмотра видеоверсии этого раздела перейдите по ссылке Инструкции. Добавление смарт-тегов в книги Excel (на английском языке).
Добавление смарт-тегов в настройки на уровне документа
При добавлении смарт-тегов с использованием настроек на уровне документа смарт-тег распознается только в рабочей книге, связанной с настройкой.
Пошаговое руководство. Добавление смарт-тега с помощью настройки уровня документа.
Создайте объект SmartTag и настройте объект, чтобы определить поведение смарт-тега:
Чтобы указать текст, который необходимо распознать, воспользуйтесь свойством Terms или Expressions.
Чтобы определить действия, для которых пользователи могут щелкнуть смарт-тег, добавьте один или несколько объектов Action в свойство Actions.
Дополнительные сведения см. в разделе Архитектура смарт-тегов.
Добавьте SmartTag в свойство VstoSmartTags класса ThisWorkbook.
Следующий пример кода создает смарт-тег, распознающий слово sale и регулярное выражение [I|i]ssue\s\d{5,6}. Когда пользователь вводит sale или строку, совпадающую с регулярным выражением (таким как issue 12345), и щелкает смарт-тег, он отображает место расположенния ячейки с распознанным текстом. Для выполнения этого кода добавьте в класс ThisWorkbook код и вызовите метод AddSmartTag из обработчика событий ThisWorkbook_Startup.
Примечание
В следующем примере описывается работа с проектами, ориентированными на .NET Framework 4.Для использования этого примера в проектах, ориентированных на платформу .NET Framework 3.5, см. комментарии в коде.
WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action
Private Sub AddSmartTag()
' Create the smart tag for .NET Framework 4 projects.
Dim smartTagDemo As Microsoft.Office.Tools.Excel.SmartTag = _
Globals.Factory.CreateSmartTag(
"www.microsoft.com/Demo#DemoSmartTag",
"Demonstration Smart Tag")
' For .NET Framework 3.5 projects, use the following code to create the smart tag.
' Dim smartTagDemo As New _
' Microsoft.Office.Tools.Excel.SmartTag( _
' "www.microsoft.com/Demo#DemoSmartTag", _
' "Demonstration Smart Tag")
' Specify a term and an expression to recognize.
smartTagDemo.Terms.Add("sale")
smartTagDemo.Expressions.Add( _
New System.Text.RegularExpressions.Regex( _
"[I|i]ssue\s\d{5,6}"))
' Create the action for .NET Framework 4 projects.
displayAddress = Globals.Factory.CreateAction("To be replaced")
' For .NET Framework 3.5 projects, use the following code to create the action.
' displayAddress = New Microsoft.Office.Tools.Excel.Action("To be replaced")
' Add the action to the smart tag.
smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.Action() { _
displayAddress}
' Add the smart tag.
Me.VstoSmartTags.Add(smartTagDemo)
End Sub
Private Sub DisplayAddress_BeforeCaptionShow(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
Handles DisplayAddress.BeforeCaptionShow
Dim clickedAction As Microsoft.Office.Tools.Excel.Action = _
TryCast(sender, Microsoft.Office.Tools.Excel.Action)
If clickedAction IsNot Nothing Then
clickedAction.Caption = "Display the address of " & e.Text
End If
End Sub
Private Sub DisplayAddress_Click(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
Handles DisplayAddress.Click
Dim smartTagAddress As String = e.Range.Address( _
ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
MsgBox("The recognized text '" & e.Text & _
"' is at range " & smartTagAddress)
End Sub
private Microsoft.Office.Tools.Excel.Action displayAddress;
private void AddSmartTag()
{
// Create the smart tag for .NET Framework 4 projects.
Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
Globals.Factory.CreateSmartTag(
"www.microsoft.com/Demo#DemoSmartTag",
"Demonstration Smart Tag");
// For .NET Framework 3.5 projects, use the following code to create the smart tag.
// Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
// new Microsoft.Office.Tools.Excel.SmartTag(
// "www.microsoft.com/Demo#DemoSmartTag",
// "Demonstration Smart Tag");
// Specify a term and an expression to recognize.
smartTagDemo.Terms.Add("sale");
smartTagDemo.Expressions.Add(
new System.Text.RegularExpressions.Regex(
@"[I|i]ssue\s\d{5,6}"));
// Create the action for .NET Framework 4 projects.
displayAddress = Globals.Factory.CreateAction("To be replaced");
// For .NET Framework 3.5 projects, use the following code to create the action.
// displayAddress = new Microsoft.Office.Tools.Excel.Action("To be replaced");
// Add the action to the smart tag.
smartTagDemo.Actions = new Microsoft.Office.Tools.Excel.Action[] {
displayAddress };
// Add the smart tag.
this.VstoSmartTags.Add(smartTagDemo);
displayAddress.BeforeCaptionShow += new
Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
DisplayAddress_BeforeCaptionShow);
displayAddress.Click += new
Microsoft.Office.Tools.Excel.ActionClickEventHandler(
DisplayAddress_Click);
}
void DisplayAddress_BeforeCaptionShow(object sender,
Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
Microsoft.Office.Tools.Excel.Action clickedAction =
sender as Microsoft.Office.Tools.Excel.Action;
if (clickedAction != null)
{
clickedAction.Caption = "Display the address of " +
e.Text;
}
}
void DisplayAddress_Click(object sender,
Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
string smartTagAddress = e.Range.get_Address(missing,
missing, Excel.XlReferenceStyle.xlA1, missing, missing);
System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
"' is at range " + smartTagAddress);
}
Добавление смарт-тегов в надстройки уровня приложения
При добавлении смарт-тега с помощью надстройки уровня приложения можно задать функционирование смарт-тега только в определенной книге или во всех открытых книгах. Смарт-теги, выполняемые во всех книгах, называются смарт-тегами уровня приложения.
Добавление смарт-тега для конкретной книги
Создайте объект SmartTag и настройте объект, чтобы определить поведение смарт-тега:
Чтобы указать текст, который необходимо распознать, воспользуйтесь свойством Terms или Expressions.
Чтобы задать действия, которые будут доступны пользователю при щелчке по смарт-тегу, добавьте один или несколько объектов Action в свойство Actions.
Дополнительные сведения см. в разделе Архитектура смарт-тегов.
Чтобы создать ведущий элементMicrosoft.Office.Tools.Excel.Workbook для книги, в которой должен быть размещен смарт-тег, используйте метод GetVstoObject. Дополнительные сведения о создании ведущих элементов см. в разделе Расширение документов Word и книг Excel в надстройках уровня приложения во время выполнения.
Добавьте объект SmartTag в свойство VstoSmartTags объекта Microsoft.Office.Tools.Excel.Workbook.
Следующий пример кода создает смарт-тег, распознающий слово sale и регулярное выражение [I|i]ssue\s\d{5,6}. Когда пользователь вводит sale или строку, совпадающую с регулярным выражением (таким как issue 12345), и щелкает смарт-тег, он отображает место расположенния ячейки с распознанным текстом. Для выполнения этого кода добавьте в класс ThisAddIn код, вызовите метод AddSmartTagToWorkbook из обработчика событий ThisAddIn_Startup и передайте объект Microsoft.Office.Interop.Excel.Workbook методу AddSmartTagToWorkbook.
Примечание
В следующем примере описывается работа с проектами, ориентированными на .NET Framework 4.Для использования этого примера в проектах, ориентированных на платформу .NET Framework 3.5, см. комментарии в коде.
WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action
Private Sub AddSmartTagToWorkbook(ByVal workbook As Excel.Workbook)
' Create a smart tag for .NET Framework 3.5 projects.
' Dim smartTagDemo As New _
' Microsoft.Office.Tools.Excel.SmartTag( _
' "www.microsoft.com/Demo#DemoSmartTag", _
' "Demonstration Smart Tag")
' Create a smart tag for .NET Framework 4 projects.
Dim smartTagDemo As SmartTag = Globals.Factory.CreateSmartTag(
"www.microsoft.com/Demo#DemoSmartTag",
"Demonstration Smart Tag")
' Specify a term and an expression to recognize.
smartTagDemo.Terms.Add("sale")
smartTagDemo.Expressions.Add( _
New System.Text.RegularExpressions.Regex( _
"[I|i]ssue\s\d{5,6}"))
' Create the action for .NET Framework 3.5 projects.
' displayAddress = New Microsoft.Office.Tools.Excel.Action( _
' "To be replaced")
' Create the action for .NET Framework 4 projects.
displayAddress = Globals.Factory.CreateAction("To be replaced")
' Add the action to the smart tag.
smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.Action() { _
displayAddress}
' Get the host item for the workbook in .NET Framework 3.5 projects.
' Dim vstoWorkbook As Microsoft.Office.Tools.Excel.Workbook = _
' workbook.GetVstoObject()
' Get the host item for the workbook in .NET Framework 4 projects.
Dim vstoWorkbook As Microsoft.Office.Tools.Excel.Workbook = _
Globals.Factory.GetVstoObject(workbook)
' Add the smart tag to the active workbook.
vstoWorkbook.VstoSmartTags.Add(smartTagDemo)
End Sub
Private Sub DisplayAddress_BeforeCaptionShow(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
Handles displayAddress.BeforeCaptionShow
Dim clickedAction As Microsoft.Office.Tools.Excel.Action = _
TryCast(sender, Microsoft.Office.Tools.Excel.Action)
If clickedAction IsNot Nothing Then
clickedAction.Caption = "Display the address of " & e.Text
End If
End Sub
Private Sub DisplayAddress_Click(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
Handles displayAddress.Click
Dim smartTagAddress As String = e.Range.Address( _
ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
MsgBox("The recognized text '" & e.Text & _
"' is at range " & smartTagAddress)
End Sub
private Microsoft.Office.Tools.Excel.Action displayAddress;
private void AddSmartTagToWorkbook(Excel.Workbook workbook)
{
Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
// Create a smart tag for .NET Framework 3.5 projects.
// new Microsoft.Office.Tools.Excel.SmartTag(
// "www.microsoft.com/Demo#DemoSmartTag",
// "Demonstration Smart Tag");
// Create a smart tag for .NET Framework 4 projects.
Globals.Factory.CreateSmartTag(
"www.microsoft.com/Demo#DemoSmartTag",
"Demonstration Smart Tag");
// Specify a term and an expression to recognize.
smartTagDemo.Terms.Add("sale");
smartTagDemo.Expressions.Add(
new System.Text.RegularExpressions.Regex(
@"[I|i]ssue\s\d{5,6}"));
// Create the action for .NET Framework 3.5 projects.
// displayAddress = new Microsoft.Office.Tools.Excel.Action(
// "To be replaced");
// Create the action for .NET Framework 4 projects.
displayAddress = Globals.Factory.CreateAction("To be replaced");
// Add the action to the smart tag.
smartTagDemo.Actions = new
Microsoft.Office.Tools.Excel.Action[] { displayAddress };
// Get the host item for the workbook in .NET Framework 3.5 projects.
// Microsoft.Office.Tools.Excel.Workbook vstoWorkbook =
// workbook.GetVstoObject();
// Get the host item for the workbook in .NET Framework 4 projects.
Microsoft.Office.Tools.Excel.Workbook vstoWorkbook =
Globals.Factory.GetVstoObject(workbook);
// Add the smart tag to the active workbook.
vstoWorkbook.VstoSmartTags.Add(smartTagDemo);
displayAddress.BeforeCaptionShow += new
Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
DisplayAddress_BeforeCaptionShow);
displayAddress.Click += new
Microsoft.Office.Tools.Excel.ActionClickEventHandler(
DisplayAddress_Click);
}
void DisplayAddress_BeforeCaptionShow(object sender,
Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
Microsoft.Office.Tools.Excel.Action clickedAction =
sender as Microsoft.Office.Tools.Excel.Action;
if (clickedAction != null)
{
clickedAction.Caption = "Display the address of " +
e.Text;
}
}
void DisplayAddress_Click(object sender,
Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
string smartTagAddress = e.Range.get_Address(missing,
missing, Excel.XlReferenceStyle.xlA1, missing, missing);
System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
"' is at range " + smartTagAddress);
}
Добавление смарт-тега, работающего во всех открытых рабочих книгах
Создайте объект SmartTag и настройте объект, чтобы определить поведение смарт-тега:
Чтобы указать текст, который необходимо распознать, воспользуйтесь свойством Terms или Expressions.
Чтобы определить действия, для которых пользователи могут щелкнуть смарт-тег, добавьте один или несколько объектов Action в свойство Actions.
Дополнительные сведения см. в разделе Архитектура смарт-тегов.
Добавьте SmartTag в свойство VstoSmartTags класса ThisAddIn.
Следующий пример кода создает смарт-тег, распознающий слово sale и регулярное выражение [I|i]ssue\s\d{5,6}. Когда пользователь вводит sale или строку, совпадающую с регулярным выражением (таким как issue 12345), и щелкает смарт-тег, он отображает место расположенния ячейки с распознанным текстом. Для выполнения этого кода добавьте в класс ThisAddIn код и вызовите метод AddSmartTag из обработчика событий ThisAddIn_Startup.
Примечание
В следующем примере описывается работа с проектами, ориентированными на .NET Framework 4.Для использования этого примера в проектах, ориентированных на платформу .NET Framework 3.5, см. комментарии в коде.
WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action
Private Sub AddSmartTag()
' Create the smart tag for .NET Framework 4 projects.
Dim smartTagDemo As Microsoft.Office.Tools.Excel.SmartTag = _
Globals.Factory.CreateSmartTag(
"www.microsoft.com/Demo#DemoSmartTag",
"Demonstration Smart Tag")
' For .NET Framework 3.5 projects, use the following code to create the smart tag.
' Dim smartTagDemo As New _
' Microsoft.Office.Tools.Excel.SmartTag( _
' "www.microsoft.com/Demo#DemoSmartTag", _
' "Demonstration Smart Tag")
' Specify a term and an expression to recognize.
smartTagDemo.Terms.Add("sale")
smartTagDemo.Expressions.Add( _
New System.Text.RegularExpressions.Regex( _
"[I|i]ssue\s\d{5,6}"))
' Create the action for .NET Framework 4 projects.
displayAddress = Globals.Factory.CreateAction("To be replaced")
' For .NET Framework 3.5 projects, use the following code to create the action.
' displayAddress = New Microsoft.Office.Tools.Excel.Action("To be replaced")
' Add the action to the smart tag.
smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.Action() { _
displayAddress}
' Add the smart tag.
Me.VstoSmartTags.Add(smartTagDemo)
End Sub
Private Sub DisplayAddress_BeforeCaptionShow(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
Handles DisplayAddress.BeforeCaptionShow
Dim clickedAction As Microsoft.Office.Tools.Excel.Action = _
TryCast(sender, Microsoft.Office.Tools.Excel.Action)
If clickedAction IsNot Nothing Then
clickedAction.Caption = "Display the address of " & e.Text
End If
End Sub
Private Sub DisplayAddress_Click(ByVal sender As Object, _
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
Handles DisplayAddress.Click
Dim smartTagAddress As String = e.Range.Address( _
ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
MsgBox("The recognized text '" & e.Text & _
"' is at range " & smartTagAddress)
End Sub
private Microsoft.Office.Tools.Excel.Action displayAddress;
private void AddSmartTag()
{
// Create the smart tag for .NET Framework 4 projects.
Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
Globals.Factory.CreateSmartTag(
"www.microsoft.com/Demo#DemoSmartTag",
"Demonstration Smart Tag");
// For .NET Framework 3.5 projects, use the following code to create the smart tag.
// Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
// new Microsoft.Office.Tools.Excel.SmartTag(
// "www.microsoft.com/Demo#DemoSmartTag",
// "Demonstration Smart Tag");
// Specify a term and an expression to recognize.
smartTagDemo.Terms.Add("sale");
smartTagDemo.Expressions.Add(
new System.Text.RegularExpressions.Regex(
@"[I|i]ssue\s\d{5,6}"));
// Create the action for .NET Framework 4 projects.
displayAddress = Globals.Factory.CreateAction("To be replaced");
// For .NET Framework 3.5 projects, use the following code to create the action.
// displayAddress = new Microsoft.Office.Tools.Excel.Action("To be replaced");
// Add the action to the smart tag.
smartTagDemo.Actions = new Microsoft.Office.Tools.Excel.Action[] {
displayAddress };
// Add the smart tag.
this.VstoSmartTags.Add(smartTagDemo);
displayAddress.BeforeCaptionShow += new
Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
DisplayAddress_BeforeCaptionShow);
displayAddress.Click += new
Microsoft.Office.Tools.Excel.ActionClickEventHandler(
DisplayAddress_Click);
}
void DisplayAddress_BeforeCaptionShow(object sender,
Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
Microsoft.Office.Tools.Excel.Action clickedAction =
sender as Microsoft.Office.Tools.Excel.Action;
if (clickedAction != null)
{
clickedAction.Caption = "Display the address of " +
e.Text;
}
}
void DisplayAddress_Click(object sender,
Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
string smartTagAddress = e.Range.get_Address(missing,
missing, Excel.XlReferenceStyle.xlA1, missing, missing);
System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
"' is at range " + smartTagAddress);
}
Безопасность
Необходимо включить смарт-теги в Excel. По умолчанию они не включены. Дополнительные сведения см. в разделе Практическое руководство. Разрешение смарт-тегов в Word и Excel.
См. также
Задачи
Практическое руководство. Разрешение смарт-тегов в Word и Excel
Практическое руководство. Добавление смарт-тегов в документы Word
Пошаговое руководство. Создание смарт-тега с помощью настройки уровня документа
Пошаговое руководство. Создание смарт-тега с помощью надстройки уровня приложения