Como: Criar marcas inteligentes com reconhecedores de personalizado no Word e.NET Framework 3.5

Artigo
08/08/2011

No Word projetos destinados a.NET Framework 3.5, você pode controlar como o Word reconhece as marcas inteligentes em documentos, derivando da Microsoft.Office.Tools.Word.SmartTag classe e substituindo o Recognize método.

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 Word 2007. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

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

link para vídeo Para obter uma versão de vídeo deste tópico, consulte Fazer como i: Criar marcas inteligentes no Word. Para uma demonstração de vídeo relacionada, consulte Fazer como i: Usar marcas inteligentes no Microsoft Word?.

Para adicionar uma marca inteligente com um reconhecedor personalizado para um documento do Word

Crie um novo projeto de nível de aplicativo ou de nível de documento do Word 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 herda de Microsoft.Office.Tools.Word.SmartTag.
Na nova classe, crie as ações para as marcas inteligentes. As ações são itens que aparecem no menu de marcas inteligentes. Criar ações adicionando instâncias de Action tipo à sua classe Actions coleção.
Substituir o SmartTagBase.Recognize método para implementar seu próprio comportamento reconhecendo personalizado.

A substituição da Recognize deve chamar o método de Microsoft.Office.Tools.Word.SmartTag.PersistTag método para tornar o Word reconhece a marca inteligente.
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 o documento de projeto, adicione a instância de marca inteligente VstoSmartTags propriedade da ThisDocument 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 um documento do Word. O exemplo substitui o Recognize método para reconhecer os termos sales e organization. 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 diferentes coloca no documento 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 Microsoft.Office.Tools.Word
Imports Microsoft.Office.Interop.SmartTag

Public Class CustomSmartTag
    Inherits SmartTag

    ' Declare Actions for this SmartTag
    WithEvents Action1 As New Action("Display property value")
    WithEvents Action2 As New Action("Display smart tag details")

    Public Sub New()
        MyBase.New("https://www.contoso.com/Demo#DemoSmartTag", _
            "Custom Smart Tag")
        Me.Terms.AddRange(New String() {"sales", "organization"})
        Actions = New Action() {Action1, Action2}
    End Sub

    Protected Overrides Sub Recognize(ByVal text As String, _
        ByVal site As ISmartTagRecognizerSite, _
        ByVal tokenList As ISmartTagTokenList)

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

            ' Search the text for the current smart tag term.
            Dim index As Integer = Me.ParagraphText.IndexOf(Term, 0)

            While (index >= 0)

                ' 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
                Me.PersistTag(index, Term.Length, propertyBag)

                ' Increment the index and then find the next
                ' instance of the smart tag term.
                index += Term.Length
                index = ParagraphText.IndexOf(Term, index)
            End While
        Next
    End Sub

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

        Dim propertyBag As ISmartTagProperties = e.Properties
        Dim key As String = "Key1"
        MsgBox("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 ActionEventArgs) Handles Action2.Click

        MsgBox("The current smart tag caption is '" & _
            Me.Caption & "'. The current smart tag type is '" & _
            Me.SmartTagType & "'.")
    End Sub
End Class

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

public class CustomSmartTag : Microsoft.Office.Tools.Word.SmartTag
{

    // Declare Actions for this SmartTag
    private Microsoft.Office.Tools.Word.Action Action1 =
        new Microsoft.Office.Tools.Word.Action("Display property value");
    private Microsoft.Office.Tools.Word.Action Action2 =
        new Microsoft.Office.Tools.Word.Action("Display smart tag details");

    public CustomSmartTag() : base(
        "https://www.contoso.com/Demo#DemoSmartTag", 
        "Custom Smart Tag")
    {
        this.Terms.AddRange(new string[] { 
            "sales", "organization" });
        Actions = new Microsoft.Office.Tools.Word.Action[] { 
            Action1, Action2 };
        Action1.Click += 
            new ActionClickEventHandler(Action1_Click);
        Action2.Click += 
            new ActionClickEventHandler(Action2_Click);
    }

    protected override void Recognize(string text, 
        ISmartTagRecognizerSite site, ISmartTagTokenList tokenList)
    {
        foreach (string term in this.Terms)
        {
            // Search the text for the current smart tag term.
            int index = this.ParagraphText.IndexOf(term, 0);

            while (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
                this.PersistTag(index, term.Length, propertyBag);

                // Increment the index and then find the next
                // instance of the smart tag term.
                index += term.Length;
                index = ParagraphText.IndexOf(term, index);
            }
        }
    }

    // This action displays the property value for the term.
    private void Action1_Click(object sender, 
        Microsoft.Office.Tools.Word.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.Word.ActionEventArgs e)
    {
        MessageBox.Show("The current smart tag caption is '" + 
            this.Caption + "'. The current smart tag type is '" + 
            this.SmartTagType + "'.");
    }
}

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.Word e Microsoft.Office.Interop.SmartTag namespaces no topo do arquivo de classe.
Adicione o seguinte código para o ThisDocument_Startup ou ThisAddIn_Startup o manipulador de eventos em seu projeto. Este código adiciona a marca inteligente personalizada ao documento.
```
Me.VstoSmartTags.Add(New CustomSmartTag())
```
```
this.VstoSmartTags.Add(new CustomSmartTag());
```

Segurança

Para executar a marca inteligente, as marcas inteligentes devem ser habilitadas no Word. For more information, see Como: Ativar marcas inteligentes no Word e Excel.

Consulte também

Compartilhar via

Como: Criar marcas inteligentes com reconhecedores de personalizado no Word e.NET Framework 3.5

Para adicionar uma marca inteligente com um reconhecedor personalizado para um documento do Word

Exemplo

Compilando o código

Segurança

Consulte também

Tarefas

Conceitos

Outros recursos

Recursos adicionais