RetrieveDefinition方法示例
2015-12-15 22:24:20 来源： 评论：0 点击：
下列示例获得标签组文件所含的定义。Dim sTokenList() as String, TokenList as Variant Dim sReplacementList() as String, ReplacementList as Variant Dim sDescriptionList() as String,
下列示例获得标签组文件所含的定义。
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