dimappwordand声明对象setappwordcreateobject()构造函数对象例子.doc可以打开巳经存在地的word文档在文档开头输入“您好！wordvba”selection.typetexttext:您好！wordvbatrue存放修改appword.quit直接关闭wordsetappwordnothing能量资源
添加“自动撤销”，设置把那个字符撤销为填写的序列
具体操作见：
自动启动更正拼写和再插入文本及符号
估计可以基于，删除掉最后一页也可以吧
！！！！！！！！！！！
sub删除之后页()
dimrasuchrange
dimra_1thoughrange
dimra_2suchrangepagecountactivedocument.builtindocumentproperties(wdpropertypages)
setraselection.range
what:wdgotopage,which:wdgotonext,name:pagecountsetra_1selection.rangeselection.endkeyunit:wdstory
r
setra_2selection.range
ra_
ra.endra_2.endrselection.typebackspaceendsub
在excelvbe里刚刚进入菜单栏的工具、摘录，选项卡“microsoftword15.0objectlibrary”，其中我的版本号是15.0，有所不同office版本号完全不同，不能识别其它字段再试一下，然后把启动下宏：
subexcelworddemo()dimwdapplike,wddoclikesetwdappcreateobject()truesetwddoc(1).paragraphs(1).range.text[a1]endsub
