Здравствуйте, Dmitriy Yakovlev, большое спасибо за Вашу поддержку, вот написал

Dim o As Application // или Object - все равно

Sub AutoExec()
    Set obj = CreateObject("PXCOfficeAddin.Addin")
    Set o = ThisDocument.Application
    obj.Initialize o.Application
End Sub

Так работает Вот не понимаю только почему так работает а так

obj.Initialize o

не работает...