封装vba代码

Question

我现在是vb动态库封装了vba中的代码，但是存在一个这样的问题，就是我想把vba中的用到的thisdocument对象当参数入动态库中的函数中，但不知道如何处理？本人是菜鸟，可以详细一点，呵呵，谢

Answer 1

关键的问题是我试过用Object传递，它会提示类型不匹配。

Answer 2

好，请你看看，我只是在测试。请你指正。
Public Sub Myf(Doc As Object)
If MsgBox("HAHA", vbOKCancel) = vbOK Then
End IfEnd Sub
Private Sub CommandButton1_Click()
Myf (ThisDocument)
End Sub

Answer 3

Public Sub Myf(Doc As Object) 
If MsgBox("HAHA", vbOKCancel) = vbOK Then 
End If End Sub 
Private Sub CommandButton1_Click() 
Call Myf (ThisDocument) 
End Sub