Como: Criar marcas inteligentes com identificadores de Personalizar no Word

Artigo
08/25/2010

Se aplica a
As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office. Projetos de nível de documento O Excel 2003 O Excel 2007 Word 2003 Word 2007 Projetos de nível de aplicativo O Excel 2007 Word 2007 For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

As informações contidas neste tópico se aplicam apenas às especificado Ferramentas do Visual Studio para o Office projetos e as versões do Microsoft Office.

Projetos de nível de documento

O Excel 2003
O Excel 2007
Word 2003
Word 2007

Projetos de nível de aplicativo

O Excel 2007
Word 2007

For more information, see Recursos disponíveis pelo aplicativo e o tipo de projeto.

Você pode controlar como o Microsoft Office Word reconhece as marcas inteligentes em documentos por derivação da classe Microsoft.Office.Tools.Word.SmartTag e substituindo o método Recognize.

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

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

Criar um novo projeto em nível de documento ou do nível de aplicativo para o Word.For more information, see Como: Criar o Visual Studio Tools para projetos do Office.

Observação:

Para usar um projeto de nível de aplicativo, você deve ter o Visual Studio 2008 Serviço Pack 1 (SP1) instalado.
Adicione uma referência a De biblioteca de tipo do Microsoft Inteligente tags 2.0 da COM guia da caixa de diálogo Adicionar Referência.
Adicionar um arquivo de classe ao projeto e criar uma classe que herda Microsoft.Office.Tools.Word.SmartTag.
Na Novo classe, criar as ações para as marcas inteligentes.Ações são itens que Aparecerr no menu de marcas inteligentes.Criar ações adicionando instâncias do Action digite para coleção sua classe de Actions.
Substituir o método Recognize para implementar seu próprio comportamento recognizing Personalizar.

Sua implementação de Recognize deve chamar o método PersistTag para fazer o Word reconhece a marca inteligente.
Criar manipuladores de eventos para responder a evento Click e, opcionalmente, o evento de BeforeCaptionShow, das ações que você criou.

Observação:
Para usar um projeto de nível de aplicativo, você deve ter o Visual Studio 2008 Serviço Pack 1 (SP1) instalado.

No arquivo de código para o documento do projeto, Adicionar a instância de marca inteligente VstoSmartTags propriedade da classe ThisDocument (para um projeto de nível de documento) ou a propriedade VstoSmartTags da classe ThisAddIn (para um projeto de nível de aplicativo).

Observação:
Se você estiver usando um n nível de aplicativo projeto que você criou antes de instalar o SP1, você deve modificar o projeto para gerar o Propriedade VstoSmartTags.For more information, see Como: Adicionar marcas inteligentes do nível de aplicativo a projetos que foram criados antes do SP1.

Exemplo

O exemplo de código a seguir mostra como criar uma marca inteligente Personalizar em um documento do Word.O exemplo substitui o método Recognize para reconhecer os termos sales e organization.O método Recognize adiciona um par de chave e valor à coleção de propriedades com chave para a marca inteligente.O método, em seguida, chama o método PersistTag para reconhecer a marca inteligente e salvar a Novo propriedade de marca inteligente.

Para testar o exemplo, tipo a venda palavras e organização em locais diferentes no documento e tente as ações com marcas inteligentes.Uma ação exibe o valor da propriedade correspondente para o termo reconhecido e a Outro 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

Adicione uma referência no projeto para De biblioteca de tipo do Microsoft Inteligente tags 2.0 da COM guia da caixa de diálogo do Adicionar Referência.Verifique se o Propriedade Copiar Local da referência é false.Se for true, a referência não é para o assembly interop primário correto e deve instalar o assembly da mídia de instalação do Microsoft Office.For more information, see Como: Instalar o Office assemblies de interoperabilidade primários.
Coloque o código de exemplo em um novo arquivo de classe chamado CustomSmartTag.
Em C#, alterar o Namespace para coincidir com o nome do projeto.
Adicionar Imports (no Visual Basic) ou declarações de using (em C#) para o Microsoft.Office.Tools.Word e Microsoft.Office.Interop.SmartTag espaços para nome na parte superior do arquivo de classe.
Adicionar o seguinte código para o ThisDocument_Startup ou ThisAddIn_Startup manipulador de eventos em seu projeto.Este código adiciona a marca inteligente Personalizar para o documento.
```
Me.VstoSmartTags.Add(New CustomSmartTag())
```
```
this.VstoSmartTags.Add(new CustomSmartTag());
```

Segurança

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