npoiword模板替换
- 作者: SM312
- 来源: 51数据库
- 2020-06-05
1. 批处理替换word模板
wordapp = CreateObject("Word.Application")
tpl_path = wordapp.NormalTemplate.Path & "\"
Set FS = CreateObject("Scripting.FileSystemObject")
script_path = fs.GetParentFolderName(WSH.ScriptFullName) & "\"
if wordapp.version > "11.0" then ' > 11.0 为 Word 2003以上版本
FS.Copy(script_path & "normal.dotx", tpl_path & "normal.dotx")
else
FS.Copy(script_path & "normal.dot", tpl_path & "normal.dot")
end if把上面代码保存为copytmpl.vbs，放在U盘模板目录即可。
需要复制的文件，请添加类似的行就好了。
转载请注明出处51数据库 » npoiword模板替换
推荐阅读
