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

月下美孤 · 发表于 2023-11-5 20:02:10

<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 />
.判断结束