Como: Criar marcas inteligentes com reconhecedores de personalizadas no Excel e.NET Framework 4

Artigo
08/08/2011

No Excel projetos destinados a .NET Framework 4, você pode controlar como o Word reconhece as marcas inteligentes em documentos, Implementando o ISmartTagExtension interface.

Para executar uma marca inteligente, os usuários finais devem ter marcas inteligentes ativadas no Word ou Excel. For more information, see Como: Ativar marcas inteligentes no Word e Excel.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Excel 2007. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Para adicionar uma marca inteligente com um reconhecedor personalizado para uma pasta de trabalho do Excel

Crie um projeto de nível de documento ou no nível do aplicativo para o Excel 2007. For more information, see Como: Criar projetos do Office em Visual Studio.
Adicione uma referência ao assembly Microsoft.Office.Interop.SmartTag (versão 12.0.0.0) (em inglês) da .NET guia de Add Reference caixa de diálogo.
Adicionar um arquivo de classe ao projeto e criar uma classe que implementa o ISmartTagExtension interface.
Na nova classe, criar uma SmartTag objeto que representa a marca inteligente e criar uma ou mais Action objetos que representam as ações de marca inteligente. Use o Globals.Factory.CreateSmartTag e Globals.Factory.CreateAction métodos para criar esses objetos.
Implementar a Recognize método e escrever seu próprio personalizado reconhecendo comportamento. Sua implementação deve chamar o PersistTag método de context parâmetro para tornar o Excel reconhece a marca inteligente.
Implementar a ExtensionBase propriedade para retornar o SmartTag objeto.
Criar manipuladores de eventos para responder ao Click evento e opcionalmente a BeforeCaptionShow o evento, as ações que você criou.
No arquivo de código para a pasta de trabalho do projeto, adicione a instância de marca inteligente para o VstoSmartTags propriedade da ThisWorkbook classe (para um projeto de nível de documento) ou o VstoSmartTags propriedade da ThisAddIn classe (para um projeto de nível de aplicativo).

Exemplo

O exemplo de código a seguir mostra como criar uma marca inteligente personalizada em uma pasta de trabalho do Excel. O exemplo implementa o Recognize método para reconhecer os termos sales e organization em uma célula de planilha. O Recognize método adiciona um par de chave e valor para a coleção de propriedades com chave para a marca inteligente. O método chama o PersistTag método para reconhecer a marca inteligente e salvar a nova propriedade de marca inteligente. Para testar o exemplo, digite as palavras vendas e organização em células diferentes de trabalho e em seguida, tente as ações de marca inteligente. Uma ação exibe o valor da propriedade correspondente para o termo reconhecido e a outra ação exibe o namespace de marca inteligente e a legenda.

Imports System
Imports System.Windows.Forms
Imports Microsoft.Office.Interop.SmartTag
Imports Microsoft.Office.Tools.Excel

Public Class CustomSmartTag
    Implements ISmartTagExtension

    ' Declare the smart tag.
    Private smartTagDemo As Microsoft.Office.Tools.Excel.SmartTag

    ' Declare actions for this smart tag.
    WithEvents Action1 As Microsoft.Office.Tools.Excel.Action
    WithEvents Action2 As Microsoft.Office.Tools.Excel.Action

    Public Sub New()
        Me.smartTagDemo = Globals.Factory.CreateSmartTag(
            "https://www.contoso.com/Demo#DemoSmartTag", "Custom Smart Tag", Me)

        Action1 = Globals.Factory.CreateAction("Display property value")
        Action2 = Globals.Factory.CreateAction("Display smart tag details")

        smartTagDemo.Terms.AddRange(New String() {"sales", "organization"})
        smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.Action() {Action1, Action2}
    End Sub

    Private Sub Recognize(ByVal text As String, 
        ByVal site As ISmartTagRecognizerSite, ByVal tokenList As ISmartTagTokenList, 
        ByVal context As SmartTagRecognizeContext) Implements ISmartTagExtension.Recognize

        ' Determine whether each smart tag term exists in the document text.
        Dim Term As String
        For Each Term In smartTagDemo.Terms

            ' Search the cell text for the first instance of 
            ' the current smart tag term.
            Dim index As Integer = context.CellText.IndexOf(Term, 0)

            If (index >= 0) Then

                ' Create a smart tag token and a property bag for the 
                ' recognized term.
                Dim propertyBag As ISmartTagProperties = site.GetNewPropertyBag()

                ' Write a new property value.
                Dim key As String = "Key1"
                propertyBag.Write(key, DateTime.Now)

                ' Attach the smart tag to the term in the document.
                context.PersistTag(propertyBag)

                ' This implementation only finds the first instance
                ' of a smart tag term in the cell. 
                Exit For
            End If
        Next
    End Sub

    ' This action displays the property value for the term.
    Private Sub Action1_Click(ByVal sender As Object,
        ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) Handles Action1.Click

        Dim propertyBag As ISmartTagProperties = e.Properties
        Dim key As String = "Key1"
        MessageBox.Show("The corresponding value of " & key & " is: " &
            propertyBag.Read(key))
    End Sub

    ' This action displays smart tag details.
    Private Sub Action2_Click(ByVal sender As Object,
        ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) Handles Action2.Click
        MessageBox.Show("The current smart tag caption is '" &
        smartTagDemo.Caption & "'. The current smart tag type is '" &
        smartTagDemo.SmartTagType & "'.")
    End Sub

    Public ReadOnly Property Base() As Microsoft.Office.Tools.Excel.SmartTag
        Get
            Return smartTagDemo
        End Get
    End Property

    Public ReadOnly Property ExtensionBase() As Object Implements ISmartTagExtension.ExtensionBase
        Get
            Return smartTagDemo
        End Get
    End Property
End Class

using System;
using System.Windows.Forms;
using Microsoft.Office.Interop.SmartTag;
using Microsoft.Office.Tools.Excel;

namespace Trin_ExcelDerivedSmartTags4
{
    class CustomSmartTag : ISmartTagExtension
    {
        // Declare the smart tag.
        Microsoft.Office.Tools.Excel.SmartTag smartTagDemo;

        // Declare actions for this smart tag.
        private Microsoft.Office.Tools.Excel.Action Action1;
        private Microsoft.Office.Tools.Excel.Action Action2;

        public CustomSmartTag()
        {
            this.smartTagDemo = Globals.Factory.CreateSmartTag(
                "https://www.contoso.com/Demo#DemoSmartTag", "Custom Smart Tag", this);

            Action1 = Globals.Factory.CreateAction("Display property value");
            Action2 = Globals.Factory.CreateAction("Display smart tag details");

            smartTagDemo.Terms.AddRange(new string[] { "sales", "organization" });
            smartTagDemo.Actions = new Microsoft.Office.Tools.Excel.Action[] { 
                Action1, Action2 };

            Action1.Click += new ActionClickEventHandler(Action1_Click);
            Action2.Click += new ActionClickEventHandler(Action2_Click);
        }

        void ISmartTagExtension.Recognize(string text, ISmartTagRecognizerSite site, 
            ISmartTagTokenList tokenList, SmartTagRecognizeContext context)
        {

            // Determine whether each smart tag term exists in the document text.
            foreach (string term in smartTagDemo.Terms)
            {
                // Search the cell text for the first instance of the current smart tag term.
                int index = context.CellText.IndexOf(term, 0);

                if (index >= 0)
                {
                    // Create a smart tag token and a property bag for the recognized term.
                    ISmartTagProperties propertyBag = site.GetNewPropertyBag();

                    // Write a new property value.                 
                    string key = "Key1";
                    propertyBag.Write(key, DateTime.Now.ToString());

                    // Attach the smart tag to the term in the document
                    context.PersistTag(propertyBag);

                    // This implementation only finds the first instance of a 
                    // smart tag term in the cell. 
                    break;
                }
            }
        }

        // This action displays the property value for the term.
        private void Action1_Click(object sender,
            Microsoft.Office.Tools.Excel.ActionEventArgs e)
        {
            ISmartTagProperties propertyBag = e.Properties;
            string key = "Key1";
            MessageBox.Show("The corresponding value of " + key +
                " is: " + propertyBag.get_Read(key));
        }

        // This action displays smart tag details.
        private void Action2_Click(object sender,
            Microsoft.Office.Tools.Excel.ActionEventArgs e)
        {
            MessageBox.Show("The current smart tag caption is '" +
                smartTagDemo.Caption + "'. The current smart tag type is '" +
                smartTagDemo.SmartTagType + "'.");
        }

        public Microsoft.Office.Tools.Excel.SmartTag Base
        {
            get { return smartTagDemo; }
        }

        public object ExtensionBase
        {
            get { return smartTagDemo; }
        }
    }

Compilando o código

Adicionar uma referência do projeto Biblioteca de tipos do Microsoft Smart Tags 2.0 da COM guia da Add Reference caixa de diálogo. Certifique-se de que o Copy Local é de propriedade da referência da false. Se for true, a referência não é o assembly de interoperabilidade primário correto e você deve instalar o assembly da mídia de instalação Microsoft Office. For more information, see Como: Instalar Assemblies de interoperabilidade primária do Office.
Coloque o código de exemplo em um novo arquivo de classe chamado CustomSmartTag.
No C#, altere o namespace para coincidir com o nome do projeto.
Adicionar Imports (em Visual Basic) ou using (em C#) instruções para a Microsoft.Office.Tools.Excel e Microsoft.Office.Interop.SmartTag namespaces no topo do arquivo de classe.
Adicione o seguinte código para o ThisWorkbook_Startup ou ThisAddIn_Startup o manipulador de eventos em seu projeto. Este código adiciona a marca inteligente personalizada para a pasta de trabalho.
```
Me.VstoSmartTags.Add(New CustomSmartTag().Base)
```
```
this.VstoSmartTags.Add(new CustomSmartTag().Base);
```

Segurança

Você deve ativar marcas inteligentes no Excel. Por padrão, eles não estão ativados. For more information, see Como: Ativar marcas inteligentes no Word e Excel.

Consulte também

Compartilhar via

Como: Criar marcas inteligentes com reconhecedores de personalizadas no Excel e.NET Framework 4

Para adicionar uma marca inteligente com um reconhecedor personalizado para uma pasta de trabalho do Excel

Exemplo

Compilando o código

Segurança

Consulte também

Tarefas

Conceitos

Outros recursos

Recursos adicionais