在VC中调用WORD（显示，修改，存盘，运行宏)之二去掉word的常用，格式工具栏

在VC中调用WORD（显示，修改，存盘，运行宏)之二去掉word的常用，格式工具栏

在View菜单中，选ClassWizard,选Automation选项卡,选Add Class,选择From a TypeLibrary, 在Office目录中选中Microsoft Word 97/2000 类型库MSO9.DLL，选中_CommandBars,CommandBar。单击ok

在officeView.h添加#include "mso9.h"

添加方法：

int CQsofficeView::hidetoolbar(BOOL hide)

{

TRY{

LPDISPATCH lpDisp;

lpDisp = m_pSelection->GetIDispatch();

Documents docs;

_Application app;

_Document mydoc;

_CommandBars mybars;

CommandBar mybar;

mydoc.AttachDispatch (lpDisp,TRUE);

app=mydoc.GetApplication ();

mydoc.Activate ();

mybars.AttachDispatch (mydoc.GetCommandBars (),TRUE);

mybar.AttachDispatch (mybars.GetItem (COleVariant(/*(short)1)*/"Standard")),TRUE);

mybar.SetVisible (hide);

mybar.AttachDispatch (mybars.GetItem (COleVariant(/*(short)2*/"Formatting")),TRUE);

mybar.SetVisible (hide);

CMDIFrameWnd * pwnd=(CMDIFrameWnd *)AfxGetMainWnd();

pwnd->GetActiveFrame ()->UpdateWindow ();

}

CATCH(CException, e)

{

TCHAR errormsg[255];

e->GetErrorMessage (errormsg,255,NULL);

}

END_CATCH

return 0;

}

bulid,insert object后，便可以调用hidetoolbar了。

我的经验：先用WORD的宏录制功能录制好宏后，选择工具下宏下VB编辑器看它的源码然后再根据msword.h和mso*.h的相应类来实现。

在VC中调用WORD（显示，修改，存盘，运行宏)一在这儿。

http://www.csdn.net/develop/article/10/10570.shtm

有了这个，可以替换掉word的菜单了：）也就是说，你可以完全不把word框架显示出来就可以完全实现WORD的功能了。

在View菜单中，选ClassWizard,选Automation选项卡,选Add Class,选择From a TypeLibrary, 在Office目录中选中Microsoft Word 97/2000 类型库Word8.olb或Word9.olb，选中Dialog,Dialogs,Selection。单击ok

调用word的对话框如下：

TRY{

LPDISPATCH lpDisp;

if (m_pSelection)

{

lpDisp = m_pSelection->GetIDispatch();

Documents docs;

_Application app;

_Document mydoc;

mydoc.AttachDispatch (lpDisp,TRUE);

app=mydoc.GetApplication ();

mydoc.Activate ();

Dialogs mydialogs;

Dialog mydialog;

mydialogs.AttachDispatch (app.GetDialogs (),TRUE);

mydialog.AttachDispatch (mydialogs.Item (112),TRUE);

/*112是查找替换*/

mydialog.Show (COleVariant((short)0));

mydialog.Execute ();

mydialog.DetachDispatch ();

}

}

CATCH(CException, e)

{

/*your pleaser to display error message*/

TCHAR errormsg[255];

e->GetErrorMessage (errormsg,255,NULL);

}

END_CATCH

return 0;

/*在WORD中录制新宏，输入Dialogs(这时会自动出现智能填充随便选择一个然后在其下右键单击定义。可以查看其详细信息。像新建文件是79,打开文件是80,页面设置是178 等等具体的吗？看字面意思了。再不成，就一个一个地试吧。把上面的112替换成你想要的就成了。show(COleVariant((short)0)就是一直显示，直到用户做出选择可以设成你想要的毫秒数。*/

下面是翻页的具体代码（带COPY&PASTE）：

int CQsofficeView::adjustpage(int oldstartpage, int totalpages,int nowstartpage,BOOL downorup)

{

TRY{

LPDISPATCH lpDisp;

if (m_pSelection)

{

lpDisp = m_pSelection->GetIDispatch();

Documents docs;

_Application app;

_Document mydoc;

mydoc.AttachDispatch (lpDisp,TRUE);

app=mydoc.GetApplication ();

mydoc.Activate ();

Selection myselection;

myselection.AttachDispatch (app.GetSelection (),TRUE);

myselection.GoTo (COleVariant((short)1),COleVariant((short)2),COleVariant((short)0),COleVariant((short)oldstartpage));

myselection.MoveDown (COleVariant((short)7),COleVariant((short)totalpages),COleVariant((short)2));

myselection.Cut ();

myselection.GoTo (COleVariant((short)1),COleVariant((short)2),COleVariant((short)0),COleVariant((short)nowstartpage));

myselection.Paste ();

}

}

CATCH(CException, e)

{

/*your pleaser to display error message*/

TCHAR errormsg[255];

e->GetErrorMessage (errormsg,255,NULL);

}

END_CATCH

return 0;

}