ISmartTagExtension Interface
Represents an extension of a smart tag in an Excel worksheet that is customized by using Office development tools in Visual Studio. The extension defines a custom recognizer for the smart tag.
Namespace: Microsoft.Office.Tools.Excel
Assembly: Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)
Syntax
'Declaration
<GuidAttribute("baa275c5-e25c-49ba-87be-dbe0712f7eb1")> _
Public Interface ISmartTagExtension _
Inherits IExtension
[GuidAttribute("baa275c5-e25c-49ba-87be-dbe0712f7eb1")]
public interface ISmartTagExtension : IExtension
The ISmartTagExtension type exposes the following members.
Properties
| Name | Description | |
|---|---|---|
.gif "Public property") |
ExtensionBase | Gets the object that is being extended by this IExtension. (Inherited from IExtension.) |
Top
Methods
| Name | Description | |
|---|---|---|
.gif "Public method") |
Recognize | Searches text in the cell for recognized terms. This type or member is intended to be used only in projects for the 2007 Microsoft Office system. Smart tags are deprecated in Office 2010. . |
Top
Remarks
Implement the ISmartTagExtension interface if you want to control how Excel recognizes smart tags in worksheets.
Usage
This type is intended to be used only in projects for Excel 2007. Smart tags are deprecated in Excel 2010.
Examples
The following code example demonstrates how to implement ISmartTagExtension to create your own smart tag recognizer. The example implements the Recognize method to recognize each smart tag term found in a cell. This example assumes that you have added a reference to Microsoft.Office.Interop.SmartTag from the .NET tab of the Add Reference dialog box.
Imports System
Imports System.Windows.Forms
Imports Microsoft.Office.Interop.SmartTag
Imports Microsoft.Office.Tools.Excel
Public Class CustomSmartTag
Implements ISmartTagExtension
' Declare the smart tag.
Private smartTagDemo As Microsoft.Office.Tools.Excel.SmartTag
' Declare actions for this smart tag.
WithEvents Action1 As Microsoft.Office.Tools.Excel.Action
WithEvents Action2 As Microsoft.Office.Tools.Excel.Action
Public Sub New()
Me.smartTagDemo = Globals.Factory.CreateSmartTag(
"https://www.contoso.com/Demo#DemoSmartTag", "Custom Smart Tag", Me)
Action1 = Globals.Factory.CreateAction("Display property value")
Action2 = Globals.Factory.CreateAction("Display smart tag details")
smartTagDemo.Terms.AddRange(New String() {"sales", "organization"})
smartTagDemo.Actions = New Microsoft.Office.Tools.Excel.Action() {Action1, Action2}
End Sub
Private Sub Recognize(ByVal text As String,
ByVal site As ISmartTagRecognizerSite, ByVal tokenList As ISmartTagTokenList,
ByVal context As SmartTagRecognizeContext) Implements ISmartTagExtension.Recognize
' Determine whether each smart tag term exists in the document text.
Dim Term As String
For Each Term In smartTagDemo.Terms
' Search the cell text for the first instance of
' the current smart tag term.
Dim index As Integer = context.CellText.IndexOf(Term, 0)
If (index >= 0) Then
' 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.
context.PersistTag(propertyBag)
' This implementation only finds the first instance
' of a smart tag term in the cell.
Exit For
End If
Next
End Sub
' This action displays the property value for the term.
Private Sub Action1_Click(ByVal sender As Object,
ByVal e As Microsoft.Office.Tools.Excel.ActionEventArgs) Handles Action1.Click
Dim propertyBag As ISmartTagProperties = e.Properties
Dim key As String = "Key1"
MessageBox.Show("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 Microsoft.Office.Tools.Excel.ActionEventArgs) Handles Action2.Click
MessageBox.Show("The current smart tag caption is '" &
smartTagDemo.Caption & "'. The current smart tag type is '" &
smartTagDemo.SmartTagType & "'.")
End Sub
Public ReadOnly Property Base() As Microsoft.Office.Tools.Excel.SmartTag
Get
Return smartTagDemo
End Get
End Property
Public ReadOnly Property ExtensionBase() As Object Implements ISmartTagExtension.ExtensionBase
Get
Return smartTagDemo
End Get
End Property
End Class
using System;
using System.Windows.Forms;
using Microsoft.Office.Interop.SmartTag;
using Microsoft.Office.Tools.Excel;
namespace Trin_ExcelDerivedSmartTags4
{
class CustomSmartTag : ISmartTagExtension
{
// Declare the smart tag.
Microsoft.Office.Tools.Excel.SmartTag smartTagDemo;
// Declare actions for this smart tag.
private Microsoft.Office.Tools.Excel.Action Action1;
private Microsoft.Office.Tools.Excel.Action Action2;
public CustomSmartTag()
{
this.smartTagDemo = Globals.Factory.CreateSmartTag(
"https://www.contoso.com/Demo#DemoSmartTag", "Custom Smart Tag", this);
Action1 = Globals.Factory.CreateAction("Display property value");
Action2 = Globals.Factory.CreateAction("Display smart tag details");
smartTagDemo.Terms.AddRange(new string[] { "sales", "organization" });
smartTagDemo.Actions = new Microsoft.Office.Tools.Excel.Action[] {
Action1, Action2 };
Action1.Click += new ActionClickEventHandler(Action1_Click);
Action2.Click += new ActionClickEventHandler(Action2_Click);
}
void ISmartTagExtension.Recognize(string text, ISmartTagRecognizerSite site,
ISmartTagTokenList tokenList, SmartTagRecognizeContext context)
{
// Determine whether each smart tag term exists in the document text.
foreach (string term in smartTagDemo.Terms)
{
// Search the cell text for the first instance of the current smart tag term.
int index = context.CellText.IndexOf(term, 0);
if (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
context.PersistTag(propertyBag);
// This implementation only finds the first instance of a
// smart tag term in the cell.
break;
}
}
}
// This action displays the property value for the term.
private void Action1_Click(object sender,
Microsoft.Office.Tools.Excel.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.Excel.ActionEventArgs e)
{
MessageBox.Show("The current smart tag caption is '" +
smartTagDemo.Caption + "'. The current smart tag type is '" +
smartTagDemo.SmartTagType + "'.");
}
public Microsoft.Office.Tools.Excel.SmartTag Base
{
get { return smartTagDemo; }
}
public object ExtensionBase
{
get { return smartTagDemo; }
}
}