[VBS]WORD公文自动排软件

zds0616

　　已加入编号转文本开关、自定义工作目录、简繁转换开关、域转文本开关功能。下载链接已删除，请需要的朋友联系本人ＱＱ：５１８２１６６１。


　　请家多反映程序的BUG和运行情况及错误代码，出错时请附带说明您电脑的OFFICE、IE和系统版本。





　　程序界面截图：
　　
　　自己用VBS编写的公文自动排版程序，用于WORD公文自动排版，程序功能如下：
　　　　1．全文自动将",()<>[]【】-:"替换为"，（）〈〉〔〕〔〕—："、全文自动将全角数字替换为半角数字
　　　　2．按照公文格式要求自动调整全文（除表格）字体段落格式；
　　　　3．按照用户输入的文件字号、主题词、信息公开类别、抄送、印发时间（自动生成、可修改）等信息自动填写公文相应内容；
　　　　4．完成排版的文件自动以文件字号保存，如填写了并联审批选项或为上行文，则在文件名中以标记，便函文件名为日期加便函例如"2011-10-08-便函.doc"
　　　　注意：３６０及某些杀软可能会报警，请大家自行决定，本软件无任何恶意代码，所有ＶＢＳ代码均用于控制WORD排版。MSE扫描通过。瑞星扫描通过。


　　欢迎大家提出修改建议及程序BUG，本人会抽时间不断完善，免费供大家使用。
　　程序执行条件：
　　1．系统当前用户为有权限运行VBS脚本程序（否则无法打开程序）。
　　2．原始WORD文件的标题与正文之间空一行，否则无法判断标题行；
　　3．本程序支持的文件格式为.DOC后缀的WORD文件，WORD2003以上的WORD文件如有WORD2003以上才支持的样式类型，请手动删除；
　　4．本程序对于文件中的表格不进行更改；
　　5．WORD宏安全性->安全级别->中；
　　6．WORD宏安全性->可靠发行商->勾选"信任对于"Visual Basic项目"的访问"；
　　7．使用本程序开始排版时请关闭其它所有WORD程序，如果启动出错，请将默认浏览器及HTML文件默认打开程序设为IE。

zds0616

沙发自己坐，这软件，我是基于WORD２００３写的

zds0616

地板也自己做，声明一下，联合发文我只做到４家，而且比较粗糙，希望大家多提宝贵意见，格式方面我是按照公文手册来参考的。而且只做了国家行政机关的公文格式，没有做党机关的公文格式，一是因为程序整体框架未完成，二来也是因为单位以党的机关公文格式发的文件较少，所以就没做了。。

tangqingfu

下载了，老是提示：

zds0616

现在在做自定义功能，也就是简单的让用户自定义文件的页边距及页眉页脚、标题及正文的行距、标题、正文以及一级、二级子标题的字体、字号，还有上行文及平行文的文号前空行数，做这些是为了方便用户自行调节文件的细节部分，毕竟做文件的都知道文件红头有可能印得不好，有个几毫米的差错都是正常的。

zds0616

tangqingfu 发表于 2012-1-27 16:08
下载了，老是提示：

建议你换台机器试试，我在单位的几台机器上试过，你装OFFICE没有，我是在２００３下面开发的，没装OFFICE肯定不行，还有，程序执行条件如下：

　　程序执行条件：
　　1．系统当前用户为有权限运行VBS脚本程序（否则无法打开程序）。
　　2．原始WORD文件的标题与正文之间空一行，否则无法判断标题行；
　　3．本程序支持的文件格式为.DOC后缀的WORD文件，WORD2003以上的WORD文件如有WORD2003以上才支持的样式类型，请手动删除；
　　4．本程序对于文件中的表格不进行更改；
　　5．EXCEL、WORD宏安全性->安全级别->中；
　　6．EXCEL、WORD宏安全性->可靠发行商->勾选"信任对于"Visual Basic项目"的访问"；

tangqingfu

装了Office完全版的。
可是程序根本不能运行。不知其他用户有没有这样的情况？
我再试试看……

zds0616

应该是你的系统或设置问题，我在笔记本上试过，单位其它同事的电脑上也试过，WIN７和XP都用运行，OFFICE２００３和OFFICE2010也试过。

zds0616

tangqingfu 发表于 2012-1-27 16:54
装了Office完全版的。
可是程序根本不能运行。不知其他用户有没有这样的情况？
我再试试看……

程序界面应该是IE，你看看这个界面出来没有？

tangqingfu

没有啊，要不您将您的软件通过邮箱发给我：
tangqingfu@126.com