在VC中调用WORD(显示,修改,存盘,运行宏)之二去掉word的常用,格式工具栏
2015-01-21 14:35
507 查看
在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;
}
在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;
}
相关文章推荐
- 在VC中调用WORD(显示,修改,存盘,运行宏)之二去掉word的常用,格式工具栏
- 在VC中调用WORD(显示,修改,存盘,运行宏)之二去掉word的常用,格式工具栏
- 在VC中调用WORD(显示,修改,存盘,运行宏)
- 在VC中调用WORD(显示,修改,存盘,运行宏)
- 在VC中调用WORD(显示,修改,存盘,运行宏)
- 在VC中调用WORD(显示,修改,存盘,运行宏)
- 在VC中调用WORD(显示,修改,存盘,运行宏)之三。调用word的各种对话框翻页等。
- 在VC中调用WORD(显示,修改,存盘,运行宏)
- 在VC中调用WORD(显示,修改,存盘,运行宏)之三。调用word的各种对话框翻页等
- 创建进程,调用Rscript运行相关算法[基于本公司的底层,可以修改,完全去掉依赖这个底层]
- JACOB调用WORD书签修改WORD文档,并生成html显示到页面中
- 关于ringpringvc集成fastjson后空值默认去掉空值的处理后修改显示空值
- 动态调整对话框属性(去掉标题栏,去掉边框,修改类似成Border:NONE样式)(调用ModifyStyle和ModifyStyleEx,然后调用SetWindowPos重新显示)
- VC++中调用word
- vc 修改控件ID出现运行异常的原因
- 使用word中的宏脚本批量修改图片的显示比例及更新交叉引用的颜色
- MFC/VC++调用word进行报表制作
- 如何发布vc调用Python的独立运行的程序
- 在vc++中调用Excel,怎样设置单元格的格式可以得到科学计数法显示,且保留两位小数
- 怎么让word文档不显示标记及修改的状态