如何在Vista里批量新建word文档？

来源：百度知道 编辑：UC知道 时间：2024/04/30 05:48:52
我想在一个文件夹里新建一百多个word文档，文件名我自己输入
文件名没有序啊。我知道怎么新建，但是我想在一个软件里或表格里把这一百多个文件的名称整理好，一下子生成以这些名字命名的文件。一个个地重命名太慢了

我是想命名，命名！文件名不一样

我没听明白你的意思，你是要新建空白文档，那自然好办，新建一个，然后复制这个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中，代码保存为VB