Word文档VBA读写Properties文件,让文档动起来
1、问题背景 由于最近写Word文档比较多,发现文档中很多内容有重复。当然常用手法就是Ctrl+V、Ctrl+C,开始可能还行。但随后客户提出修改要求时就疯了。 Word中为啥没有个变量? 我开始只知道Word有域的概念,但在界面上操作时遇到了困难,很难定义。 2、分析解决 首先有一个域(Field),引起了我的关注 它就是Document Automation下的DocVariable。 如果可以定义这个值和修改(name=value),从某种意义上讲word也可以像程序一样定义变量了。 但问题来了,如果想改变这个值必须通过VBA开发来完成。(-_-写VB吧) 3、VBA程序代码 首先按Alt+F11呼出VBA控制台,选择你Word文档的ThisDocument,粘贴以下代码 '配置文件名默认为 word文件名-docvar.txt '配置文件格式 key=value,#为注释 '解除DovVariable Field,转换为普通文字 Sub unlinkDocVarFields() Dim varResponse As Variant varResponse = MsgBox("是否把文档中的DocumentVariable域替换为普通文字?", vbYesNo) If varResponse = vbYes Then Dim bTrack As Boolean bTrack