通过

如何：向 Word 文档添加智能标记

  • 项目

更新：2007 年 11 月

适用对象

本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。

文档级项目

  • Word 2003

  • Word 2007

应用程序级项目

  • Word 2007

有关更多信息，请参见按应用程序和项目类型提供的功能。

可以向 Microsoft Office Word 文档中添加智能标记，以便识别文本并使用户能访问与识别到的术语相关的操作。

从 Visual Studio 2008 Service Pack 1 (SP1) 开始，您可以使用应用程序级外接程序向任何打开的文档添加智能标记。对于文档级项目和应用程序级项目，为创建和配置智能标记而编写的代码都是相同的，但在将智能标记与文档关联的方式上存在一些差异。智能标记在文档级项目和应用程序级项目中的作用域也是不同的。

本主题介绍了以下任务：

  • 通过使用文档级自定义项添加智能标记

  • 通过使用应用程序级外接程序添加智能标记

若要运行智能标记，最终用户必须在 Word 或 Excel 中启用智能标记。有关更多信息，请参见如何：在 Word 和 Excel 中启用智能标记。

通过使用文档级自定义项添加智能标记

文档级自定义项中的智能标记只能在与该自定义项关联的文档中识别。

通过使用文档级自定义项添加智能标记

  1. 创建一个 SmartTag 对象，然后对此对象进行配置以定义智能标记的行为：

    • 若要指定您希望识别的文本，请使用 Terms 或 Expressions 属性。

    • 若要定义用户可以在此智能标记上单击的操作，请将一个或多个 Action 对象添加到 Actions 属性。

    有关更多信息，请参见 智能标记的结构。

  2. 将 SmartTag 添加到 ThisDocument 类的 VstoSmartTags 属性。

下面的代码示例演示如何创建识别单词 term 和 recognize 的智能标记。当用户单击此智能标记时，它会显示识别到的单词的首字符和尾字符的位置。若要运行此代码，请将此代码添加到 ThisDocument 类中，然后从 ThisDocument_Startup 事件处理程序中调用 AddSmartTag 方法。

Private WithEvents displayAddress As Microsoft.Office.Tools.Word.Action

Private Sub AddSmartTag()
    Dim smartTagDemo As 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.
    Me.VstoSmartTags.Add(smartTagDemo)
End Sub

Private Sub OpenMessageBox_BeforeCaptionShow(ByVal sender As Object, _
    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 IsNot Nothing Then
        clickedAction.Caption = "Display the location of " & e.Text
    End If
End Sub

Private Sub DisplayAddress_Click(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Word.ActionEventArgs) _
    Handles DisplayAddress.Click

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

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

private void 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());
}

通过使用应用程序级外接程序添加智能标记

从 SP1 开始，您可以通过使用应用程序级外接程序添加智能标记。您可以指定是要让该智能标记仅在特定文档中起作用，还是要让它在所有打开的文档中都起作用（后面这种智能标记也称作“应用程序级智能标记”）。

向特定文档添加智能标记

  1. 创建一个 SmartTag 对象，然后对此对象进行配置以定义智能标记的行为：

    • 若要指定您希望识别的文本，请使用 Terms 或 Expressions 属性。

    • 若要定义用户可以在此智能标记上单击的操作，请将一个或多个 Action 对象添加到 Actions 属性。

    有关更多信息，请参见 智能标记的结构。

  2. 使用 GetVstoObject 方法为将承载此智能标记的文档创建一个 Document 宿主项。有关创建宿主项的更多信息，请参见在运行时在应用程序级外接程序中扩展 Word 文档和 Excel 工作簿。

    ms178787.alert_note(zh-cn,VS.90).gif说明：

    如果您使用的是在安装 SP1 前创建的项目，则您必须先修改此项目，然后才能使用 GetVstoObject 方法。有关更多信息，请参见 在运行时在应用程序级外接程序中扩展 Word 文档和 Excel 工作簿。

  3. 将 SmartTag 添加到 Document 的 VstoSmartTags 属性。

下面的代码示例在活动文档中创建了一个识别单词 term 和 recognize 的智能标记。当用户单击此智能标记时，它会显示识别到的单词的首字符和尾字符的位置。若要运行此代码，请将此代码添加到 ThisAddIn 类中，然后从 ThisAddIn_Startup 事件处理程序中调用 AddSmartTagToActiveDocument 方法。

Private WithEvents displayAddress As Microsoft.Office.Tools.Word.Action

Private Sub AddSmartTagToActiveDocument()
    Dim smartTagDemo As 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}

    ' Get a Document host item, and add the smart tag to the document.
    Dim vstoDocument As Microsoft.Office.Tools.Word.Document = _
        Me.Application.ActiveDocument.GetVstoObject()
    vstoDocument.VstoSmartTags.Add(smartTagDemo)
End Sub

Private Sub OpenMessageBox_BeforeCaptionShow(ByVal sender As Object, _
    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 IsNot Nothing Then
        clickedAction.Caption = "Display the location of " & e.Text
    End If
End Sub

Private Sub DisplayAddress_Click(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Word.ActionEventArgs) _
    Handles displayAddress.Click

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

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

private void AddSmartTagToActiveDocument()
{
    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 to the document.
    Microsoft.Office.Tools.Word.Document vstoDocument =
        this.Application.ActiveDocument.GetVstoObject();
    vstoDocument.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());
}

添加在所有打开的文档中都起作用的智能标记

  1. 创建一个 SmartTag 对象，然后对此对象进行配置以定义智能标记的行为：

    • 若要指定您希望识别的文本，请使用 Terms 或 Expressions 属性。

    • 若要定义用户可以在此智能标记上单击的操作，请将一个或多个 Action 对象添加到 Actions 属性。

    有关更多信息，请参见 智能标记的结构。

  2. 将 SmartTag 添加到 ThisAddIn 类的 VstoSmartTags 属性。

    ms178787.alert_note(zh-cn,VS.90).gif说明：

    如果您使用的是在安装 SP1 前创建的项目，则您必须修改此项目才能生成 VstoSmartTags 属性。有关更多信息，请参见 如何：向在 SP1 之前创建的项目中添加应用程序级智能标记。

下面的代码示例演示如何创建识别单词 term 和 recognize 的智能标记。当用户单击此智能标记时，它会显示识别到的单词的首字符和尾字符的位置。若要运行此代码，请将此代码添加到 ThisAddIn 类中，然后从 ThisAddIn_Startup 事件处理程序中调用 AddSmartTag 方法。

Private WithEvents displayAddress As Microsoft.Office.Tools.Word.Action

Private Sub AddSmartTag()
    Dim smartTagDemo As 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.
    Me.VstoSmartTags.Add(smartTagDemo)
End Sub

Private Sub OpenMessageBox_BeforeCaptionShow(ByVal sender As Object, _
    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 IsNot Nothing Then
        clickedAction.Caption = "Display the location of " & e.Text
    End If
End Sub

Private Sub DisplayAddress_Click(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Word.ActionEventArgs) _
    Handles DisplayAddress.Click

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

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

private void 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());
}

安全性

必须在 Word 中启用智能标记。默认情况下，它们未处于启用状态。有关更多信息，请参见如何：在 Word 和 Excel 中启用智能标记。

请参见

任务

如何：在 Word 和 Excel 中启用智能标记

如何：向 Excel 工作簿添加智能标记

如何：向在 SP1 之前创建的项目中添加应用程序级智能标记

如何：在 Word 中创建具有自定义识别器的智能标记

如何：在 Excel 中创建具有自定义识别器的智能标记

演练：使用文档级自定义项创建智能标记

演练：使用应用程序级外接程序创建智能标记

概念

智能标记概述

智能标记的结构

智能标记的结构

开发 Office 解决方案

修订记录

日期

修订

原因

2008 年 7 月

增加了针对应用程序级外接程序的新过程。

SP1 功能更改。