Action Classe (sistema de 2007)

Artigo
08/25/2010

Representa um Visual Studio Tools for Office marca SMART ação em um documento do Microsoft Office palavra.

Namespace: Microsoft.Office.Tools.Word
Assembly: Microsoft.Office.Tools.Word.v9.0 (em Microsoft.Office.Tools.Word.v9.0.dll)

Sintaxe

<PermissionSetAttribute(SecurityAction.Demand, Name := "FullTrust")> _
Public Class Action _
    Inherits ActionBase

Dim instance As Action

[PermissionSetAttribute(SecurityAction.Demand, Name = "FullTrust")]
public class Action : ActionBase

Comentários

As ações são as escolhas disponível no marca SMART menu de atalho quando um marca SMART de um certo tipo é reconhecido.Um exemplo de uma ação possível é o nome "Adicionar nome na pasta Contatos" para uma seqüência de caracteres do tipo Person.Para obter mais informações sobre Rótulos inteligentes a Visual Studio Tools for Office, consulte Arquitetura de marcas inteligentes.

Exemplos

O exemplo de código a seguir demonstra como criar um marca SMART com uma ação.O marca SMART ação modifica a legenda do menu de ação em time de execução e exibe o local do texto foi reconhecido.Para testar o exemplo, digite o termo"palavras" e "reconhecer" em locais diferentes no documento e tente a marca SMART ação.

Este exemplo é para uma personalização em nível de documento.

PrivateWithEvents displayAddress As Microsoft.Office.Tools.Word.Action

PrivateSub AddSmartTag()
    Dim smartTagDemo AsNew  _
        Microsoft.Office.Tools.Word.SmartTag( _
        "www.microsoft.com/Demo#DemoSmartTag", _
        "Demonstration Smart Tag")

    ' Specify the terms to recognize.
    smartTagDemo.Terms.Add("term")
    smartTagDemo.Terms.Add("recognize")

    ' Create the action.
    displayAddress = New Microsoft.Office.Tools.Word.Action("To be replaced")

    ' Add the action to the smart tag.
    smartTagDemo.Actions = New Microsoft.Office.Tools.Word.Action() { _
            displayAddress}

    ' Add the smart tag.Me.VstoSmartTags.Add(smartTagDemo)
EndSubPrivateSub OpenMessageBox_BeforeCaptionShow(ByVal sender AsObject, _
    ByVal e As Microsoft.Office.Tools.Word.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

    Dim clickedAction As Microsoft.Office.Tools.Word.Action = _
        TryCast(sender, Microsoft.Office.Tools.Word.Action)

    If clickedAction IsNotNothingThen
        clickedAction.Caption = "Display the location of " & e.Text
    EndIfEndSubPrivateSub DisplayAddress_Click(ByVal sender AsObject, _
    ByVal e As Microsoft.Office.Tools.Word.ActionEventArgs) _
    Handles DisplayAddress.Click

    Dim termStart AsInteger = e.Range.Start
    Dim termEnd AsInteger = e.Range.End
    MsgBox("The recognized text '" & e.Text & _
            "' begins at position " & termStart & _
            " and ends at position " & termEnd)
EndSub

private Microsoft.Office.Tools.Word.Action displayAddress;

privatevoid AddSmartTag()
{
    Microsoft.Office.Tools.Word.SmartTag smartTagDemo =
        new Microsoft.Office.Tools.Word.SmartTag(
        "www.microsoft.com/Demo#DemoSmartTag",
        "Demonstration Smart Tag");

    // Specify the terms to recognize.
    smartTagDemo.Terms.Add("term");
    smartTagDemo.Terms.Add("recognize");

    // Create the action.
    displayAddress = new Microsoft.Office.Tools.Word.Action("To be replaced");

    // Add the action to the smart tag.
    smartTagDemo.Actions = new Microsoft.Office.Tools.Word.Action[] { 
        displayAddress };

    // Add the smart tag.this.VstoSmartTags.Add(smartTagDemo);

    displayAddress.BeforeCaptionShow += new
        Microsoft.Office.Tools.Word.BeforeCaptionShowEventHandler(
        displayAddress_BeforeCaptionShow);

    displayAddress.Click += new
        Microsoft.Office.Tools.Word.ActionClickEventHandler(
        displayAddress_Click);
}

void displayAddress_BeforeCaptionShow(object sender,
    Microsoft.Office.Tools.Word.ActionEventArgs e)
{
    Microsoft.Office.Tools.Word.Action clickedAction =
        sender as Microsoft.Office.Tools.Word.Action;

    if (clickedAction != null)
    {
        clickedAction.Caption = "Display the location of " +
            e.Text;
    }
}

void displayAddress_Click(object sender,
    Microsoft.Office.Tools.Word.ActionEventArgs e)
{
    int termStart = e.Range.Start;
    int termEnd = e.Range.End;
    System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
        "' begins at position " + termStart.ToString() +
        " and ends at position " + termEnd.ToString());
}

Hierarquia de herança

System.Object
Microsoft.Office.Tools.ActionBase
Microsoft.Office.Tools.Word.Action

Acesso thread-safe

Quaisquer membros static (Shared no Visual Basic) públicos deste tipo são thread-safe. Não há garantia de que qualquer membro de instância seja thread-safe.