通过VBA代码,可以在Word文档中使用自定义文本属性设置的域中写入值。这需要使用Word文档CustomDocumentProperties属性的Item方法进行设置,其具体的语法格式如下:
[Word文档].CustomDocumentProperties.Item("[文档属性]").Value=[写入值]
|
使用上述代码写入的值,还保存在Word文档属性之中,还需要使用WholeStory方法选中整个文档,其具体语法格式如下:
然后使用Fields属性的Update方法更新Word文档中的所有域,语法格式如下:
最后保存通过模板和文档属性制作出的Word文档,可以使用word文档的SaveAs2方法以指定的文件名保存文档至指定位置,语法格式如下;
[Word文档].SaveAs2 [保存后的完整路径]
|
截 图:
附 件:
点击下载此附件