addin.bas

来自「c#设计模式WithCla」· BAS 代码 · 共 12 行

Attribute VB_Name = "AddIn"
Public Sub Register()
Dim MyDoc As With_Class.Document
Set MyDoc = ActiveDocument
MyDoc.RegisterAddIn "MyFile.dat", "MyCommand", "Menu Text"
MsgBox ("Registered MyAddin")
End Sub

Public Sub MyCommand()
MsgBox ("Hello")
End Sub