基于Word VBA开发卫生行政处罚文书管理系统.docx

基于WordVBA开发卫生行政处罚文书管理系统摘要：卫生行政处罚案件涉及到大量的文书，处罚文书之间存在共享的数据，并具有一定的逻辑关系。如果能有一个管理系统来辅助管理，可以减少出错，提高效率，对处罚文书的制作有很大的帮助。本文基于Word VBA开发的卫生行政处罚文书管理系统，采用主程序+模板文件的架构模式。主程序文档集中了所有的代码，模板文件是启用了限制编辑功能的Word填写窗体，主程序通过调用模板文件生成各种文书。系统将行政处罚文书中的共享数据划分为系统共享数据、案件共享数据和案件关联数据三种，通过字典和For-Each循环等技术，降低代码与界面的耦合度，提高了程序的可扩展性与健壮性,极大的减少了赋值语句。卫生行政处罚案件中，要涉及到20多种法定文书，还有一些自制的文书。这些文书相互之间存在共享的数据，或者具有一定的逻辑关系。如果能有一个管理系统来辅助管理，可以减少出错，提高效率，对文书的制作有很大的帮助。本文提出一种基于WordVBA开发的卫生行政处罚文书管理系统，旨在保证行政处罚文书的正确、快速制作。1 管理系统简介、流程、特点1.1简介 整个卫生行政处罚管理系统的架构是主程序+模板文件。所有的代码均在主程序文档中，主程序是一个启用了宏的Word文档（文件扩展名为.docm），启动后在文档的顶层显示一个用户自定义的主窗体（见图1），完成各种文书的管理。模板文件是启用了限制编辑功能的Word填写窗体[1]，对所有需要输入数据的地方使用内容控件来规范输入。存储于“文档模板”目录中，包括各种执法文书模板和系统需要的辅助性文档模板（比如案件共享数据模板、案件关联数据模板）。系统在Word2010-2016版本中均可以运行，推荐在Word2013以上版本中使用。图1、管理系统主窗体1.2流程用户进入系统后，可以用“新建案件”按钮建立一个新的案件。新建案件后，管理系统根目录下就生成一个目录名为新建案件名称的目录，用于存储该案件涉及到的所有文书和辅助性文档。如果要操作已存在的案件，可以在窗体右上的下拉列表框中选择案件。案件的共享数据全部放在窗体左侧中间区域的分组框控件（控件名为：FrmBasicInfo）内。右侧的多页控件包含了一个案件涉及到的所有文书。打开一个新文书时，系统先复制“文档模板”目录里相应的模板文件，再将各种数据填充到文档中，用户只需编辑部分内容即可。关闭文书时，系统将一些关联数据存储到案件的“案件关联数据”文档里。1.3特点该系统是采用WordVBA开发的单机版管理系统，但也可在局域网中通过共享目录的方式实现多用户共享操作。当执法文书变化或要添加新的执法文书时，几乎不需改动主程序的任何代码，只要按照规则做好文档模板即可，提高了系统的可扩展性。系统运行于MicosoftWord软件之下，是对Word进行的二次开发，只要有了Word就可运行。因此，该系统易于部署，维护方便。2 关键技术2.1检索案件已经建好的案件在系统根目录下有一个目录，在主窗体的Initialize事件中，通过检索当前已经存在的案件目录，来填充选择案件的下拉列表框。代码如下：Dim ThisDocumentPath As StringThisDocumentPath = ThisDocument.PathDim Fso, Folder, sFolders, sFolderSet Fso = CreateObject(Scripting.FileSystemObject)Set Folder = Fso.GetFolder(ThisDocumentPath) Set sFolders = Folder.subfoldersFor Each sFolder In sFolders 遍历子文件夹 If Mid(sFolder, Len(ThisDocumentPath) + 2) 文书模板 ThenMe.CmbListCase.AddItem Mid(sFolder, Len(ThisDocumentPath) + 2) End IfNext2.2处理共享数据系统将行政处罚文书中的共享数据划分为系统共享数据、案件共享数据和案件关联数据三种。代码中采用字典（Dictionary）和For-Each循环的方式降低代码与界面或文档的耦合度，提高程序的可扩展性与健壮性,极大的减少了赋值语句。字典对象[2]是微软Windows脚本语言中的一个很有用的对象。字典对象可以用来存储数据对，每对数据由数据内容（Item）和数据的键值（Key）组成，每个数据内容有唯一的一个键值与之匹配。数据内容可以是任何形式的数据，因此可以将窗体中的文本框、组合框等控件存储在字典中。For-Each 循环可遍历集合对象中的每一项，对集合中的每个对象重复同一组语句。对于使