批处理替换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盘模板目录即可。

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

自动识别数字批处理处理起来很麻烦，但是我帮您想了一个变通的方法，只需要多存两个文件即可。

请您在要建立这些文件夹的文件夹里保存如下批处理为mycreatedir.bat，然后再新建一个名为_.docx的空docx文件，最后再建立一个名为max_no.log的文本文件，并在其中填写您希望起始的第一个数字（未来下一个要建立的文件夹数字）。

@echo off

@set /p new=<max_no.log

@md %new%

@copy _.docx %new%\%new%.docx

@cd %new%

@explorer .

@start %new%.docx

@cd ..

@set /a new=new+1

@echo %new%>max_no.log

已在win7下测试通过：

---