我没听明白你的意思,你是要新建空白文档,那自然好办,新建一个,然后复制这个word 文件,之后再把两个选中复制,如此循环
如果你要新建不同的word 文件,那还是要一个个创建,因为为了区分文件,每个文本的名字是不一样的
PS:一个文件夹里面可以有无数个文件或文件夹,但前提是你的硬盘能存的小这个文件,如果这个文件比硬盘空间还大,那就没法完全保存或者没法保存
希望对你有用!
文件名是有序的吗?
-------------------------------------
以下代码使用VBS调用Word生成DOC文件:
Const ForReading = 1
strList = "c:\temp\1.txt"
strFolder = "c:\temp\"
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strList, ForReading)
Do While Not objFile.AtEndOfStream
strLine = objFile.ReadLine
Set objDoc = objWord.Documents.Add()
objDoc.SaveAs strFolder & strLine & ".doc"
objDoc.Close
Loop
objFile.Close
objWord.Quit
Set objFSO = Nothing
将要创建的文件名保存到c:\temp\1.txt中,代码保存为VBS扩展,双击VBS生成DOC文件。本机测试通过。路径可以按实际更改。 测试环境:xp sp3 - word 2007。
有你在这儿问的功夫你己经复制粘帖100多个了。
直接点击右键,新建即可