Dim o As Application
Dim obj As Object

Sub AutoExec()
    Set obj = CreateObject("_ИМЯ_ТВОЕГО_ОБЪЕКТА_")
    Set o = ThisDocument.Application
    obj.Initialize o
End Sub

Sub AutoExit()
    If Not obj Is Nothing Then
        obj.UnInitialize
    End If
    Set obj = Nothing
    Set o = Nothing
End Sub

STDMETHODIMP CWTWordAddin::Initialize(IDispatch *Application)
{
    CComQIPtr<_Application> pApp(Application);
    ATLASSERT(pApp);
    if( pApp == NULL )
    return S_FALSE;

    // далее делай все как обычно
    .....
}

G>Здраствуйте Dmitriy Yakovlev & All. Есть у меня COM-аддин для Word, Excel & PowerPoint. Я понял как передать Application в Ворд 97, а как с меню и тулбаром. Я добавляю их в своем COM сервере, неужели надо делать тоже самое только на ВБА и задавать OnAction для меню и тулбара. Вы, Dmitriy Yakovlev, в своем посте написали что Вам удалось заставить заработать Add-in в Word97, Excel97, PowerPoint97. Плз. поделитесь инфой м если можно куски кода ка поймать события от кнопок меню и тулбаров в 97 офисе

pCBButton ->Tag = _bstr_t(sTag);
#ifdef __OFFICE_97
    pCBButton->OnAction = _bstr_t(_T("OnCmd"));
#endif // __OFFICE_97

Sub OnCmd()
    If Not obj Is Nothing Then
        obj.DoCmd97 CommandBars.ActionControl.Tag
    End If
End Sub

STDMETHODIMP CWTWordAddin::DoCmd97(BSTR Tag)
{
    bool bRet = false;
    if( m_pWTToolbar != NULL )
        bRet = m_pWTToolbar->OnDoCmd( Tag );

    return bRet ? S_OK : S_FALSE;
}

DY>Dim o As Application
DY>Dim obj As Object

DY>Sub AutoExec()
DY>    Set obj = CreateObject("_ИМЯ_ТВОЕГО_ОБЪЕКТА_")
DY>    Set o = ThisDocument.Application
DY>    obj.Initialize o
DY>End Sub

DY>Sub AutoExit()
DY>    If Not obj Is Nothing Then
DY>        obj.UnInitialize
DY>    End If
DY>    Set obj = Nothing
DY>    Set o = Nothing
DY>End Sub
DY>

DY>STDMETHODIMP CWTWordAddin::Initialize(IDispatch *Application)
DY>{
DY>    CComQIPtr<_Application> pApp(Application);
DY>    ATLASSERT(pApp);
DY>    if( pApp == NULL )
DY>    return S_FALSE;

DY>    // далее делай все как обычно
DY>    .....
DY>}
DY>

interface IAddin : IDispatch
{
    [id(1),helpstring("method Init")] HRESULT  Initialize([in] IDispatch *pDisp);
    [id(2),helpstring("method Uninit")] HRESULT  Uninitialize([in] IDispatch *pDisp);
};

G>interface IAddin : IDispatch
G>{
G>    [id(1),helpstring("method Init")] HRESULT  Initialize([in] IDispatch *pDisp);
G>    [id(2),helpstring("method Uninit")] HRESULT  Uninitialize([in] IDispatch *pDisp);
G>};
G>

interface IWTWordAddin : IDispatch
{
    [id(1), helpstring("method Init")] HRESULT Init(IDispatch * Application);
    [id(2), helpstring("method Uninit")] HRESULT Uninit();
    [id(3), helpstring("method DoCmd97")] HRESULT DoCmd97(BSTR Tag );
};

public:
STDMETHOD(DoCmd97)(BSTR Tag );
STDMETHOD(Uninit)();
STDMETHOD(Init)(IDispatch * Application);

////

STDMETHODIMP CWTWordAddin::Init(IDispatch *Application)
{
    // ...
}

STDMETHODIMP CWTWordAddin::Uninit()
{
    // ...
}

STDMETHODIMP CWTWordAddin::DoCmd97(BSTR Tag)
{
    // ...
}

Dim o As Application
Dim obj As Object

Sub AutoExec()
    Set obj = CreateObject("WTOfficeAddin.WTWordAddin.1")
    Set o = ThisDocument.Application
    obj.Init o
End Sub

Sub AutoExit()
    If Not obj Is Nothing Then
        obj.Uninit
    End If
    Set obj = Nothing
    Set o = Nothing
End Sub

Sub OnCmd()
    If Not obj Is Nothing Then
        obj.DoCmd97 CommandBars.ActionControl.Tag
    End If
End Sub

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

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

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

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

G>obj.Initialize o
G>

Property Application As Application
    read-only
    Member of Word.Application

MSWORD::_ApplicationPtr spApp = m_spApp;
MSWORD::_DocumentPtr spDoc = spApp->GetActiveDocument();
_variant_t vt(1);
int cnt = spDoc->GetHyperlinks()->GetCount();
MSWORD::HyperlinkPtr spLink = spDoc->GetHyperlinks()->Item(&vt);
// сначада использовал 
// bstr_t bstrAddress = GetAddress();
BSTR bstr = NULL;
HRESULT hr = spLink->get_Address(&bstr);

First-chance exception at 0x00000000 in WINWORD.EXE: 0xC0000005: Access violation reading location 0x00000000.
First-chance exception at 0x7c81eb33 in WINWORD.EXE: 0x80010105: The server threw an exception.

hr 0x80010105 The server threw an exception.     HRESULT

#ifdef __OFFICE_97
DY>    pCBButton->OnAction = _bstr_t(_T("OnCmd"));
DY>#endif // __OFFICE_97

G>Здравствуйте, Dmitriy Yakovlev, по ходу приспосабливания своего аддина под Ворд появились новые к Вам вопросы.

G>В своем проекте подключаю с помощью директивы #import нужную вордовскую тайп либу (MSWORD.OLB). Ну и работаю через смарт-поинтеры. Так мне проще Возникла одна ситуация, ниже кусок кода:

G>MSWORD::_ApplicationPtr spApp = m_spApp;
G>MSWORD::_DocumentPtr spDoc = spApp->GetActiveDocument();
G>_variant_t vt(1);
G>int cnt = spDoc->GetHyperlinks()->GetCount();
G>MSWORD::HyperlinkPtr spLink = spDoc->GetHyperlinks()->Item(&vt);
G>// сначада использовал 
G>// bstr_t bstrAddress = GetAddress();
G>BSTR bstr = NULL;
G>HRESULT hr = spLink->get_Address(&bstr);
G>

G>First-chance exception at 0x00000000 in WINWORD.EXE: 0xC0000005: Access violation reading location 0x00000000.
G>First-chance exception at 0x7c81eb33 in WINWORD.EXE: 0x80010105: The server threw an exception.
G>

G>hr 0x80010105 The server threw an exception.     HRESULT
G>

G>#ifdef __OFFICE_97
DY>>    pCBButton->OnAction = _bstr_t(_T("OnCmd"));
DY>>#endif // __OFFICE_97
G>

G>Я думаю Вы поняли мою проблему, в двох словах — Как надо сделать чтобы работало и в 2000 и в 97 офисе. Но если другие тайплибы, то ведь код совсем другой получется — это ж надо будет с другого неймспейса выбирать интерфейсы. Или возможно, Вы сразу ОЛБ 8 версии подключали и таким образом у Вас работает аддин везде. Да если это так, прийдется переписывать ух-как не хочется то

G>Уже уверен на 90% что Вы наверное подключали msword8.olb И зачем я 2000 то подключал ....

#if (defined __OFFICE_97) // Office 97

    #import "D:\Program Files\Common Files\Designer\msaddndr.dll" \
        raw_interfaces_only, \
        raw_native_types, \
        no_namespace, \
        named_guids 

    #import "D:\Program Files\Microsoft Office\Office\mso97.dll" \
        rename_namespace("Office") 

    #import "D:\Program Files\Common Files\Microsoft Shared\VBA\VBEEXT1.olb"

    #define _CommandBarButtonEvents VBIDE::_CommandBarControlEvents
    #define _CommandBarsEvents VBIDE::CommandBarEvents
    #define _CommandBarsPtr Office::CommandBarsPtr
    #define _CommandBarButtonPtr Office::CommandBarButtonPtr

    // access
    #pragma message("   Linking with MS Access")
    #import "D:\Program Files\Microsoft Office\Office\msacc8.olb" \
        raw_interfaces_only \
        rename("SHIFT_MASK","SHIFT_MASK_X") \
        rename("CTRL_MASK","CTRL_MASK_X") \
        rename("ALT_MASK","ALT_MASK_X") \
        rename("LEFT_BUTTON","LEFT_BUTTON_X") \
        rename("RIGHT_BUTTON","RIGHT_BUTTON_X") \
        rename("MIDDLE_BUTTON","MIDDLE_BUTTON_X") \
        rename("Property","IDispatch")
    #import "d:\Program Files\Common Files\Microsoft Shared\dao\dao360.dll" \
        rename("EOF","_EOF") 

    // excel
    #pragma message("   Linking with MS Excel")
    #import "D:\Program Files\Microsoft Office\Office\excel8.olb" \
        rename("DialogBox","_DialogBox"), \
        rename("RGB","_RGB") 

    // outlook
    #pragma message("   Linking with MS Outlook")
    #import "D:\Program Files\Microsoft Office\office\msoutl8.olb" \
        rename("IPage","IDispatch") \
        rename("Font","IFont")

    // power point
    #pragma message("   Linking with MS PowerPoint")
    #import "D:\Program Files\Microsoft Office\office\msppt8.olb"

    // word
    #pragma message("   Linking with MS Word")
    #import "D:\Program Files\Microsoft Office\office\msword8.olb" \
        rename("ExitWindows", "_ExitWindows") 

#endif

MSEXCEL::_ApplicationPtr spExcelApp(Application);
Office::CommandBarsPtr spBars = spExcelApp->GetCommandBars();
Office::CommandBarPtr spMenuBar = spBars->GetActiveMenuBar();

Run-Time Check Failure #0 - The value of ESP was not properly saved across a function call.
This is usually a result of calling a function declared with one calling convention with a function pointer declared with a different calling convention.

MSEXCEL::_ApplicationPtr spExcelApp(Application);
Office::CommandBarsPtr spBars = spExcelApp->GetCommandBars();
Office::CommandBarPtr spMenuBar = spBars->GetActiveMenuBar();

#pragma implementation_key(1)
inline IDispatchPtr MSEXCEL::Adjustments::GetApplication ( ) {
    IDispatch * _result = 0;
    _com_dispatch_method(this, 0x60020000, DISPATCH_PROPERTYGET, VT_DISPATCH, (void*)&_result, NULL);
    return IDispatchPtr(_result, false);
}