共用方式為

HOW TO：將置智慧標籤加入至 Word 文件

  • 發行項

更新： 2008 年 7 月

適用於

本主題中的資訊僅適用於指定的 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 中啟用智慧標籤。如需詳細資訊，請參閱HOW TO：在 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 開始，您可以使用應用程式層級增益集來加入智慧標籤。您可以指定智慧標籤只適用於特定文件，還是適用於所有開啟的文件 (也稱為「應用程式層級智慧標籤」(Application-Level Smart Tag)。

若要將智慧標籤加入至特定文件

  1. 建立 SmartTag 物件並設定此物件，以定義智慧標籤的行為：

    • 若要指定您想要辨認的文字，請使用 Terms 或 Expressions 屬性。

    • 若要在智慧標籤上定義使用者可以按一下的動作，請將一個或多個 Action 物件加入至 Actions 屬性。

    如需詳細資訊，請參閱智慧標籤架構。

  2. 使用 GetVstoObject 方法，為將裝載智慧標籤的文件建立 Document 主項目。如需建立主項目的詳細資訊，請參閱在應用程式層級增益集的執行階段中擴充 Word 文件和 Excel 活頁簿。

    注意事項：

    如果您是使用安裝 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 屬性。

    注意事項：

    如果您是使用安裝 SP1 之前所建立的專案，則必須修改專案才能產生 VstoSmartTags 屬性。如需詳細資訊，請參閱HOW TO：將應用程式層級智慧標籤加入至在 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 中的智慧標籤。根據預設，它們都不會啟用。如需詳細資訊，請參閱HOW TO：在 Word 和 Excel 中啟用智慧標籤。

請參閱

工作

HOW TO：在 Word 和 Excel 中啟用智慧標籤

HOW TO：在 Excel 活頁簿中加入智慧標籤

HOW TO：將應用程式層級智慧標籤加入至在 SP1 前建立的專案中

HOW TO：在 Word 中使用自訂辨識器建立智慧標籤

HOW TO：在 Excel 中使用自訂辨識器建立智慧標籤

逐步解說：使用文件層級自訂建立智慧標籤

逐步解說：使用應用程式層級增益集建立智慧標籤

概念

智慧標籤概觀

智慧標籤架構

智慧標籤架構

開發 Office 方案

變更記錄

日期

記錄

原因

2008 年 7 月

已加入應用程式層級增益集的新程序。

SP1 功能變更。