npoiword模板替换

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盘模板目录即可。

需要复制的文件，请添加类似的行就好了。