浅谈不(手动)安装office，也可以操作word.application 的方法

月下美孤

<1> 用我修改的office 2010快速静默安装。


https://wwbg.lanzouj.com/b02x8ntwd
密码:ecue

     奏云限制上传，下载后去掉文件名的“删除.zip”  直接解压就可以了，100多M都是修改好的OFFICE 2010静默安装包（图片资源里自行提取）

<2>使用openxml,  解压docx文件-替换内容-压缩文件-修改文件名称

  

窗口程序集名	保 留	保 留	备 注
其它功能

子程序名	返回值类型	公开	备 注
系统_是否安装office	整数型		提示：1=已经安装office ，0= 未安装office，-1= bat运行失败,-2=写出批处理文件失败，请提权到管理员后使用

变量名	类 型	静态	数组	备 注
局_bat目录	文本型

局_bat目录 ＝ 取运行目录 () ＋ “/O2mark.cmd”
' 取特定目录 (11)
如果真 (写到文件 (局_bat目录, #office注册项 ) ＝ 假)
返回 (-2)

系统_禁用文件系统重定向 ()
判断 (运行 (局_bat目录, 真, 1))
延时 (300)
系统_恢复文件系统重定向 ()
判断 (文件是否存在 (取运行目录 () ＋ “/1.O2mark”) ＝ 真)
删除文件 (取运行目录 () ＋ “/1.O2mark”)
删除文件 (局_bat目录)
返回 (1)  ' 已经安装office


删除文件 (取运行目录 () ＋ “/1.O2mark”)
删除文件 (局_bat目录)
返回 (0)  ' 未安装office




返回 (-1)

子程序名	返回值类型	公开	备 注
释放office资源

写到文件 (“C:\Program Files (x86)\office2010.exe”, #office安装包 )
执行 (4, “C:\Program Files (x86)\office2010.exe”, , , )

子程序名	返回值类型	公开	备 注
安装office组件	逻辑型

判断 (文件是否存在 (“C:\Program Files (x86)\office2010\install.cmd”))
系统_禁用文件系统重定向 ()
执行 (, “C:\Program Files (x86)\office2010\install.cmd”, , “C:\Program Files (x86)\office2010\”, )
系统_恢复文件系统重定向 ()
返回 (真)



返回 (假)

子程序名	返回值类型	公开	备 注
卸载office组件	逻辑型

判断 (文件是否存在 (“C:\Program Files (x86)\office2010\install.cmd”))
系统_禁用文件系统重定向 ()
执行 (, “C:\Program Files (x86)\office2010\unist.cmd”, , “C:\Program Files (x86)\office2010\”, )
系统_恢复文件系统重定向 ()
返回 (真)



返回 (假)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 其它功能<br /> <br /> .子程序 系统_是否安装office, 整数型, 公开, 提示：1=已经安装office ，0= 未安装office，-1= bat运行失败,-2=写出批处理文件失败，请提权到管理员后使用<br /> .局部变量 局_bat目录, 文本型<br /> <br /> 局_bat目录 ＝ 取运行目录 () ＋ “/O2mark.cmd”<br /> ' 取特定目录 (11)<br /> <br /> .如果真 (写到文件 (局_bat目录, #office注册项) ＝ 假)<br />     返回 (-2)<br /> .如果真结束<br /> <br /> 系统_禁用文件系统重定向 ()<br /> .判断开始 (运行 (局_bat目录, 真, 1))<br />     延时 (300)<br />     系统_恢复文件系统重定向 ()<br />     .判断开始 (文件是否存在 (取运行目录 () ＋ “/1.O2mark”) ＝ 真)<br />         删除文件 (取运行目录 () ＋ “/1.O2mark”)<br />         删除文件 (局_bat目录)<br />         返回 (1)  ' 已经安装office<br />     .默认<br /> <br /> <br />         删除文件 (取运行目录 () ＋ “/1.O2mark”)<br />         删除文件 (局_bat目录)<br />         返回 (0)  ' 未安装office<br />     .判断结束<br /> <br /> <br /> .默认<br /> <br />     返回 (-1)<br /> .判断结束<br /> <br /> <br /> <br /> <br /> .子程序 释放office资源, , 公开<br /> <br /> <br /> 写到文件 (“C:\Program Files (x86)\office2010.exe”, #office安装包)<br /> <br /> 执行 (4, “C:\Program Files (x86)\office2010.exe”, , , )<br /> <br /> <br /> .子程序 安装office组件, 逻辑型, 公开<br /> <br /> <br /> .判断开始 (文件是否存在 (“C:\Program Files (x86)\office2010\install.cmd”))<br />     系统_禁用文件系统重定向 ()<br />     执行 (, “C:\Program Files (x86)\office2010\install.cmd”, , “C:\Program Files (x86)\office2010\”, )<br />     系统_恢复文件系统重定向 ()<br /> <br />     返回 (真)<br /> <br /> .默认<br /> <br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 卸载office组件, 逻辑型, 公开<br /> <br /> .判断开始 (文件是否存在 (“C:\Program Files (x86)\office2010\install.cmd”))<br />     系统_禁用文件系统重定向 ()<br />     执行 (, “C:\Program Files (x86)\office2010\unist.cmd”, , “C:\Program Files (x86)\office2010\”, )<br />     系统_恢复文件系统重定向 ()<br />     返回 (真)<br /> <br /> .默认<br /> <br />     返回 (假)<br /> .判断结束

mbxx2006

发现优秀帖子请给楼主点赞或评分打赏，让楼主更有动力创作优秀内容！

XYWLXG

  学习学习

风一样存在

谢谢楼主的爱心。

tsg2005

学习学习

year1970

学习学习

振兴中华

学习学习

我的yyy123

看看学习学习

ctry78985

感谢分享

就是那个秋

啊这                 也行