RetrieveDefinition 方法示例

下列示例获得标签组文件所含的定义。

Dim sTokenList() as String, TokenList as Variant

Dim sReplacementList() as String, ReplacementList as Variant

Dim sDescriptionList() as String, DescriptionList as Variant

' 创建标签组文件对象

Dim TGD As Object

Set TGD = CreateObject("TagGroupDefinitionInterfaceDll.TagGroupDefinitionInterface")

TGD.RetrieveDefinition "Test", 2, TokenList, ReplacementList, DescriptionList