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

Практическое руководство. Добавление смарт-тегов в книги Excel

  • Статья

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

Применение

Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям приложений Microsoft Office.

Проекты уровня документа

  • Excel 2003

  • Excel 2007

Проекты уровня приложения

  • Excel 2007

Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

Можно добавить смарт-теги в книгах Microsoft Office Excel, чтобы распознать текст и предоставить пользователю доступ к действиям, связанным с распознанными элементами. Код, написанный для создания и настройки смарт-тегов, одинаков для проектора на уровне документа и проектов на уровне приложения, но существуют некоторые отличия в способе связывания смарт-тегов с книгами. Смарт-теги также имеют различные области в проектах на уровне документа и на уровне приложения.

В этом разделе описаны следующие задачи:

  • Добавление смарт-тегов в настройки на уровне документа

  • Добавление смарт-тегов в надстройки уровня приложения

Чтобы выполнить смарт-тег, конечным пользователям должно быть предоставлено разрешение на выполнение смарт-тегов в приложениях Word или Excel. Дополнительные сведения см. в разделе Практическое руководство. Разрешение смарт-тегов в Word и Excel.

Добавление смарт-тегов в настройки на уровне документа

При добавлении смарт-тегов с использованием настроек на уровне документа смарт-тег распознается только в рабочей книге, связанной с настройкой.

Пошаговое руководство. Добавление смарт-тега с помощью настройки уровня документа.

  1. Создайте объект SmartTag и настройте объект, чтобы определить поведение смарт-тега:

    • Чтобы указать текст, который необходимо распознать, воспользуйтесь свойством Terms и/или Expressions.

    • Чтобы определить действия, для которых пользователи могут щелкнуть смарт-тег, добавьте один или несколько объектов Action в свойство Actions.

    Дополнительные сведения см. в разделе Архитектура смарт-тега.

  2. Добавьте SmartTag в свойство VstoSmartTags класса ThisWorkbook.

Следующий пример кода создает смарт-тег, распознающий слово sale и регулярное выражение [I|i]ssue\s\d{5,6}. Когда пользователь набирает вводит sale или строку, совпадающую с регулярным выражением (таким как issue 12345), и щелкает смарт-тег, он отображает место расположения ячейки с распознанным текстом. Для выполнения этого кода добавьте в класс ThisWorkbook код и вызовите метод AddSmartTag из обработчика событий ThisWorkbook_Startup.

WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    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.
    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 OpenMessageBox_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()
{
    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.
    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);
}

Добавление смарт-тегов в надстройки уровня приложения

Начиная с пакета обновления 1 (SP1), можно добавлять смарт-тег с помощью надстройки уровня приложения. Можно указать, где именно должен работать смарт-тег: в конкретной книге или во всех книгах. Смарт-теги, выполняемые во всех книгах, называются смарт-тегами уровня приложения.

Добавление смарт-тега для конкретной книги

  1. Создайте объект SmartTag и настройте объект, чтобы определить поведение смарт-тега:

    • Чтобы указать текст, который необходимо распознать, воспользуйтесь свойством Terms и/или Expressions.

    • Чтобы определить действия, для которых пользователи могут щелкнуть смарт-тег, добавьте один или несколько объектов Action в свойство Actions.

    Дополнительные сведения см. в разделе Архитектура смарт-тега.

  2. Воспользуйтесь методом GetVstoObject для создания ведущего элемента Workbook для рабочей книги, в которой необходимо разместить смарт-тег. Дополнительные сведения о создании ведущих элементов см. в разделе Расширение документов Word и книг Excel в надстройках уровня приложения во время выполнения.

    ms178788.alert_note(ru-ru,VS.90).gifПримечание.

    Если используется проект, созданный до установки пакета обновления 1, следует изменить проект до использования метода GetVstoObject. Дополнительные сведения см. в разделе Расширение документов Word и книг Excel в надстройках уровня приложения во время выполнения.

  3. Добавьте SmartTag в свойство VstoSmartTags класса Workbook.

Следующий пример кода создает смарт-тег, распознающий слово sale и регулярное выражение [I|i]ssue\s\d{5,6}. Когда пользователь набирает вводит sale или строку, совпадающую с регулярным выражением (таким как issue 12345), и щелкает смарт-тег, он отображает место расположения ячейки с распознанным текстом. Для выполнения этого кода добавьте в класс ThisAddIn код и вызовите метод AddSmartTagToActiveWorkbook из обработчика событий ThisAddIn_Startup.

WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTagToActiveWorkbook()
    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.
    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 to the active workbook.
    Dim vstoWorkbook As Microsoft.Office.Tools.Excel.Workbook = _
        Me.Application.ActiveWorkbook.GetVstoObject()
    vstoWorkbook.VstoSmartTags.Add(smartTagDemo)
End Sub

Private Sub OpenMessageBox_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 AddSmartTagToActiveWorkbook()
{
    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.
    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 to the active workbook.
    Microsoft.Office.Tools.Excel.Workbook vstoWorkbook =
        this.Application.ActiveWorkbook.GetVstoObject();
    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);
}

Добавление смарт-тега, работающего во всех открытых рабочих книгах

  1. Создайте объект SmartTag и настройте объект, чтобы определить поведение смарт-тега:

    • Чтобы указать текст, который необходимо распознать, воспользуйтесь свойством Terms и/или Expressions.

    • Чтобы определить действия, для которых пользователи могут щелкнуть смарт-тег, добавьте один или несколько объектов Action в свойство Actions.

    Дополнительные сведения см. в разделе Архитектура смарт-тега.

  2. Добавьте SmartTag в свойство VstoSmartTags класса ThisAddIn.

    ms178788.alert_note(ru-ru,VS.90).gifПримечание.

    Если используется проект, созданный до установки пакета обновления 1, следует изменить проект, чтобы создать свойство VstoSmartTags. Дополнительные сведения см. в разделе Практическое руководство. Добавление смарт-тегов уровня приложения в проекты, созданные до версии пакета обновлений 1..

Следующий пример кода создает смарт-тег, распознающий слово sale и регулярное выражение [I|i]ssue\s\d{5,6}. Когда пользователь вводит sale или строку, совпадающую с регулярным выражением (таким как issue 12345), и щелкает смарт-тег, он отображает место расположенния ячейки с распознанным текстом. Для выполнения этого кода добавьте в класс ThisAddIn код и вызовите метод AddSmartTag из обработчика событий ThisAddIn_Startup.

WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    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.
    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 OpenMessageBox_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()
{
    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.
    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

Практическое руководство. Добавление смарт-тегов уровня приложения в проекты, созданные до версии пакета обновлений 1.

Практическое руководство. Создание в приложении Word смарт-тегов с настраиваемыми распознавателями

Практическое руководство. Создание смарт-тегов с настраиваемыми распознавателями в Excel

Пошаговое руководство. Создание смарт-тега с помощью настройки уровня документа.

Пошаговое руководство. Создание смарт-тега с помощью надстройки уровня приложения

Основные понятия

Общие сведения о смарт-тегах

Архитектура смарт-тега

Архитектура смарт-тега

Разработка решений Office

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

Дата

Журнал

Причина

Июль 2008

Добавлены новые процедуры для надстроек уровня приложения.

Изменение функции SP1.