방법: Excel 및 .NET Framework 4에서 사용자 지정 인식기를 사용하여 스마트 태그 만들기

아티클
08/10/2011

.NET Framework 4를 대상으로 하는 Excel 프로젝트에서는 ISmartTagExtension 인터페이스를 구현하여 Word에서 문서 내의 스마트 태그를 인식하는 방법을 제어할 수 있습니다.

스마트 태그를 실행하려면 최종 사용자의 Word 또는 Excel에서 스마트 태그를 사용하도록 설정되어 있어야 합니다. 자세한 내용은 방법: Word 및 Excel에서 스마트 태그 사용을 참조하십시오.

적용 대상: 이 항목의 정보는 Excel 2007의 문서 수준 프로젝트 및 응용 프로그램 수준 프로젝트에 적용됩니다. 자세한 내용은 Office 응용 프로그램 및 프로젝트 형식에 따라 사용 가능한 기능을 참조하십시오.

사용자 지정 인식자로 스마트 태그를 Excel 통합 문서에 추가하려면

Excel 2007용 문서 수준 또는 응용 프로그램 수준 프로젝트를 만듭니다. 자세한 내용은 방법: Visual Studio에서 Office 프로젝트 만들기를 참조하십시오.
참조 추가 대화 상자의 .NET 탭에서 Microsoft.Office.Interop.SmartTag 어셈블리(버전 12.0.0.0)에 대한 참조를 추가합니다.
프로젝트에 클래스 파일을 추가하고 ISmartTagExtension 인터페이스를 구현하는 클래스를 만듭니다.
새 클래스에서 스마트 태그를 나타내는 SmartTag 개체를 하나 만들고, 스마트 태그 동작을 나타내는 Action 개체를 하나 이상 만듭니다. 이러한 개체를 만들려면 Globals.Factory.CreateSmartTag 및 Globals.Factory.CreateAction 메서드를 사용합니다.
Recognize 메서드를 구현하고 사용자 지정 인식 동작을 작성합니다. 이 메서드의 구현에서는 context 매개 변수의 PersistTag 메서드를 호출하여 Excel에서 스마트 태그를 인식할 수 있게 해야 합니다.
SmartTag 개체를 반환하는 ExtensionBase 속성을 구현합니다.
앞서 만든 작업의 Click 이벤트와 필요할 경우 BeforeCaptionShow 이벤트에 응답하는 이벤트 처리기를 만듭니다.
프로젝트 통합 문서의 코드 파일에서 ThisWorkbook 클래스의 VstoSmartTags 속성(문서 수준 프로젝트의 경우) 또는 ThisAddIn 클래스의 VstoSmartTags 속성(응용 프로그램 수준 프로젝트의 경우)에 스마트 태그 인스턴스를 추가합니다.

예제

다음 코드 예제에서는 Excel 통합 문서에 사용자 지정 스마트 태그를 만드는 방법을 보여 줍니다. 이 예제에서는 Recognize 메서드를 구현하여 워크시트 셀에서 sales와 organization이라는 용어를 인식합니다. Recognize 메서드는 스마트 태그의 키 속성 컬렉션에 키-값 쌍을 추가한 다음 PersistTag 메서드를 호출하여 스마트 태그를 인식하고 새 스마트 태그 속성을 저장합니다. 예제를 테스트하려면 sales와 organization이라는 단어를 통합 문서의 각각 다른 셀에 입력한 다음 스마트 태그 작업을 시도합니다. 한 작업을 수행하면 인식된 단어에 해당하는 속성 값이 표시되고 또 다른 작업을 수행하면 스마트 태그 네임스페이스 및 캡션이 표시됩니다.

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; }
        }
    }

코드 컴파일

참조 추가 대화 상자의 COM 탭에서 Microsoft Smart Tags 2.0 Type Library에 대한 참조를 프로젝트에 추가합니다. 참조의 로컬 복사 속성이 false인지 확인합니다. 이 속성이 true이면 올바른 주 Interop 어셈블리가 참조되지 않으므로 Microsoft Office 설치 미디어를 사용하여 어셈블리를 설치해야 합니다. 자세한 내용은 방법: Office 주 Interop 어셈블리 설치를 참조하십시오.
예제 코드를 CustomSmartTag라는 새 클래스 파일에 저장합니다.
C#의 경우 프로젝트 이름과 일치하도록 네임스페이스를 변경합니다.
클래스 파일의 맨 위에 Microsoft.Office.Tools.Excel 및 Microsoft.Office.Interop.SmartTag 네임스페이스에 대한 Imports(Visual Basic의 경우) 또는 using(C#의 경우) 문을 추가합니다.
프로젝트의 ThisWorkbook_Startup 또는 ThisAddIn_Startup 이벤트 처리기에 다음 코드를 추가합니다. 이 코드는 통합 문서에 사용자 지정 스마트 태그를 추가합니다.
```
Me.VstoSmartTags.Add(New CustomSmartTag().Base)
```
```
this.VstoSmartTags.Add(new CustomSmartTag().Base);
```