[文本处理] 批处理怎样将多个word合并成一个word?

dan5262

求一段代码,谢谢.

文件夹下有几百个word,怎样将它们合并成一个word?

可以统一格式,字体.

dan5262

Dim FSO, SHELL, Path, File, Output
Set SHELL = CreateObject("Wscript.Shell")
Path = SHELL.CurrentDirectory
Set SHELL = Nothing
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileEx ...
ArdentMan 发表于 2011-7-2 13:49

谢谢.不过,我运行你的代码,没反应啊

dan5262

谢谢.  我开始保持成BAT了.

我保存为VBS,   可以用, 但遇到出错的文档就中断了.

dan5262

可否将出错信息列出?
ArdentMan 发表于 2011-7-8 09:26

遇到加密文档,只读文档,就中断了.