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

更新： 2008 年 7 月

適用於
本主題中的資訊僅適用於指定的 Visual Studio Tools for Office 專案和 Microsoft Office 版本。 文件層級專案 Excel 2003 Excel 2007 應用程式層級專案 Excel 2007 如需詳細資訊，請參閱依應用程式和專案類型提供的功能。

您可以將智慧標籤加入至 Microsoft Office Excel 活頁簿以識別文字，並讓使用者存取與所識別之詞彙相關的動作。為文件層級專案和應用程式層級專案建立及設定智慧標籤，所撰寫的程式碼相同，但對於將智慧標籤與活頁簿產生關聯的方式則有些差異。在文件層級專案與應用程式層級專案中，智慧標籤的範圍也不同。

本主題將說明下列工作：

• 在文件層級自訂中加入智慧標籤

• 在應用程式層級增益集中加入智慧標籤

若要執行智慧標籤，使用者必須在 Word 或 Excel 中啟用智慧標籤。如需詳細資訊，請參閱HOW TO：在 Word 和 Excel 中啟用智慧標籤。

在文件層級自訂中加入智慧標籤

使用文件層級自訂加入智慧標籤時，只有在與自訂相關聯的活頁簿中，才會辨識智慧標籤。

若要使用文件層級自訂加入智慧標籤

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

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

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

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

2. 將 SmartTag 加入至 ThisWorkbook 類別的 VstoSmartTags 屬性。

下列程式碼範例會建立智慧標籤，以辨認 sale 一詞和規則運算式 [I|i]ssue\s\d{5,6}。當使用者輸入 sale 或符合規則運算式的字串 (例如 issue 12345)，然後再按一下智慧標籤時，它會顯示所辨認之文字的儲存格位置。若要執行此程式碼，請將程式碼加入至 ThisWorkbook 類別，然後從 ThisWorkbook_Startup 事件處理常式呼叫 AddSmartTag 方法。

WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    Dim smartTagDemo As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.microsoft.com/Demo#DemoSmartTag", _
        "Demonstration Smart Tag")

    ' Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale")
    smartTagDemo.Expressions.Add( _
        New System.Text.RegularExpressions.Regex( _
        "[I|i]ssue\s\d{5,6}"))

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

    ' Add the action to the smart tag.
    smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.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.Excel.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

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

    If clickedAction IsNot Nothing Then
        clickedAction.Caption = "Display the address of " & e.Text
    End If
End Sub

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

    Dim smartTagAddress As String = e.Range.Address( _
        ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
    MsgBox("The recognized text '" & e.Text & _
            "' is at range " & smartTagAddress)
End Sub

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

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

    // Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale");
    smartTagDemo.Expressions.Add(
        new System.Text.RegularExpressions.Regex(
        @"[I|i]ssue\s\d{5,6}"));

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

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

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

    displayAddress.BeforeCaptionShow += new 
        Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
        DisplayAddress_BeforeCaptionShow);

    displayAddress.Click += new 
        Microsoft.Office.Tools.Excel.ActionClickEventHandler(
        DisplayAddress_Click);
}

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

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

void DisplayAddress_Click(object sender, 
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    string smartTagAddress = e.Range.get_Address(missing,
        missing, Excel.XlReferenceStyle.xlA1, missing, missing);
    System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
        "' is at range " + smartTagAddress);
}

在應用程式層級增益集中加入智慧標籤

從 SP1 開始，您可以使用應用程式層級增益集來加入智慧標籤。您可以指定智慧標籤只適用於特定活頁簿，還是適用於所有開啟的活頁簿。在所有開啟的活頁簿中執行的智慧標籤稱為「應用程式層級智慧標籤」(Application-Level Smart Tag)。

若要將智慧標籤加入至特定活頁簿

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

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

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

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

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

   注意事項：
   如果您是使用安裝 SP1 之前所建立的專案，則必須修改專案才能使用 GetVstoObject 方法。如需詳細資訊，請參閱在應用程式層級增益集的執行階段中擴充 Word 文件和 Excel 活頁簿。

3. 將 SmartTag 加入至 Workbook 的 VstoSmartTags 屬性。

下列程式碼範例會建立智慧標籤，以辨認 sale 一詞和規則運算式 [I|i]ssue\s\d{5,6}。當使用者輸入 sale 或符合規則運算式的字串 (例如 issue 12345)，然後再按一下智慧標籤時，它會顯示所辨認之文字的儲存格位置。若要執行此程式碼，請將程式碼加入至 ThisAddIn 類別，然後從 ThisAddIn_Startup 事件處理常式呼叫 AddSmartTagToActiveWorkbook 方法。

WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTagToActiveWorkbook()
    Dim smartTagDemo As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.microsoft.com/Demo#DemoSmartTag", _
        "Demonstration Smart Tag")

    ' Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale")
    smartTagDemo.Expressions.Add( _
        New System.Text.RegularExpressions.Regex( _
        "[I|i]ssue\s\d{5,6}"))

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

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

    ' Add the smart tag to the active workbook.
    Dim vstoWorkbook As Microsoft.Office.Tools.Excel.Workbook = _
        Me.Application.ActiveWorkbook.GetVstoObject()
    vstoWorkbook.VstoSmartTags.Add(smartTagDemo)
End Sub

Private Sub OpenMessageBox_BeforeCaptionShow(ByVal sender As Object, _
    ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

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

    If clickedAction IsNot Nothing Then
        clickedAction.Caption = "Display the address of " & e.Text
    End If

End Sub

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

    Dim smartTagAddress As String = e.Range.Address( _
        ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
    MsgBox("The recognized text '" & e.Text & _
            "' is at range " & smartTagAddress)
End Sub

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

private void AddSmartTagToActiveWorkbook()
{
    Microsoft.Office.Tools.Excel.SmartTag smartTagDemo =
        new Microsoft.Office.Tools.Excel.SmartTag(
        "www.microsoft.com/Demo#DemoSmartTag",
        "Demonstration Smart Tag");

    // Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale");
    smartTagDemo.Expressions.Add(
        new System.Text.RegularExpressions.Regex(
        @"[I|i]ssue\s\d{5,6}"));

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

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

    // Add the smart tag to the active workbook.
    Microsoft.Office.Tools.Excel.Workbook vstoWorkbook =
        this.Application.ActiveWorkbook.GetVstoObject();
    vstoWorkbook.VstoSmartTags.Add(smartTagDemo);

    displayAddress.BeforeCaptionShow += new
        Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
        DisplayAddress_BeforeCaptionShow);

    displayAddress.Click += new
        Microsoft.Office.Tools.Excel.ActionClickEventHandler(
        DisplayAddress_Click);
}

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

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

void DisplayAddress_Click(object sender,
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    string smartTagAddress = e.Range.get_Address(missing,
        missing, Excel.XlReferenceStyle.xlA1, missing, missing);
    System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
        "' is at range " + smartTagAddress);
}

若要加入可用於所有開啟中活頁簿的智慧標籤

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

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

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

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

2. 將 SmartTag 加入至 ThisAddIn 類別的 VstoSmartTags 屬性。

   注意事項：
   如果您是使用安裝 SP1 之前所建立的專案，則必須修改專案才能產生 VstoSmartTags 屬性。如需詳細資訊，請參閱HOW TO：將應用程式層級智慧標籤加入至在 SP1 前建立的專案中。

下列程式碼範例會建立智慧標籤，以辨認 sale 一詞和規則運算式 [I|i]ssue\s\d{5,6}。當使用者輸入 sale 或符合規則運算式的字串 (例如 issue 12345)，然後再按一下智慧標籤時，它會顯示所辨認之文字的儲存格位置。若要執行此程式碼，請將程式碼加入至 ThisAddIn 類別，然後從 ThisAddIn_Startup 事件處理常式呼叫 AddSmartTag 方法。

WithEvents displayAddress As Microsoft.Office.Tools.Excel.Action

Private Sub AddSmartTag()
    Dim smartTagDemo As New  _
        Microsoft.Office.Tools.Excel.SmartTag( _
        "www.microsoft.com/Demo#DemoSmartTag", _
        "Demonstration Smart Tag")

    ' Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale")
    smartTagDemo.Expressions.Add( _
        New System.Text.RegularExpressions.Regex( _
        "[I|i]ssue\s\d{5,6}"))

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

    ' Add the action to the smart tag.
    smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.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.Excel.ActionEventArgs) _
    Handles DisplayAddress.BeforeCaptionShow

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

    If clickedAction IsNot Nothing Then
        clickedAction.Caption = "Display the address of " & e.Text
    End If
End Sub

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

    Dim smartTagAddress As String = e.Range.Address( _
        ReferenceStyle:=Excel.XlReferenceStyle.xlA1)
    MsgBox("The recognized text '" & e.Text & _
            "' is at range " & smartTagAddress)
End Sub

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

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

    // Specify a term and an expression to recognize.
    smartTagDemo.Terms.Add("sale");
    smartTagDemo.Expressions.Add(
        new System.Text.RegularExpressions.Regex(
        @"[I|i]ssue\s\d{5,6}"));

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

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

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

    displayAddress.BeforeCaptionShow += new 
        Microsoft.Office.Tools.Excel.BeforeCaptionShowEventHandler(
        DisplayAddress_BeforeCaptionShow);

    displayAddress.Click += new 
        Microsoft.Office.Tools.Excel.ActionClickEventHandler(
        DisplayAddress_Click);
}

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

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

void DisplayAddress_Click(object sender, 
    Microsoft.Office.Tools.Excel.ActionEventArgs e)
{
    string smartTagAddress = e.Range.get_Address(missing,
        missing, Excel.XlReferenceStyle.xlA1, missing, missing);
    System.Windows.Forms.MessageBox.Show("The recognized text '" + e.Text +
        "' is at range " + smartTagAddress);
}

安全性

您必須啟用 Excel 中的智慧標籤。根據預設，它們都不會啟用。如需詳細資訊，請參閱HOW TO：在 Word 和 Excel 中啟用智慧標籤。

請參閱

工作

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

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

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

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

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

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

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

概念

智慧標籤概觀

智慧標籤架構

智慧標籤架構

開發 Office 方案

變更記錄

日期	記錄	原因
2008 年 7 月	已加入應用程式層級增益集的新程序。	SP1 功能變更。