Question

如何用VB批量新建不同文件名的Word文件?

不是要那种批量按序号排列生成的文件名，文件名取自TEXT文件中不同行的文本内容，内容不固定

例如TEXT文本中的内容如下：

移动设备制造
制造模式
Microsoft制造操作系统
刷机工具
重新启动到刷机模式并获取版本信息

自动根据这个文本中不同行的文本内容批量新建生成对应文件名的WORD文档

VB代码要怎么写？
鉴于楼下的回答，有必要补充一点，直接由TEXT文件更改扩展名得来的word文档用Word2016软件打开是出错的，提示内容有问题，网上什么直接用软件批量更改TXT文件的扩展名来生成word都是扯淡！可能在非常老的版本的Office中没有问题，但是在Office2016中这个文档就是错误的不能被识别，所以那些网上复制来的用txt文件改名生成word就不要来回答了，我知道VB命令可以批量把TXT文件转换成Word文档，可不是仅仅改扩展名这么简单！还有为了解决这个问题我上网查资料研究了半天，发现Dos命令根本就没办法直接新建正确的Word文档

Answer 1

要实现要求的操作，需要进入dos状态：

1、程序--〉附件--〉命令提示符：

2、为了操作方法，我们把所有的word复制进D盘“1”这个文件夹内。

3、转到D盘文件夹“1”，先按D：回车

4、接着按cd D:\1回车（cd与1之间要一个空格符）

5、输入命令dir *.* >>abc.txt（意思为显示当前文件夹下所有内容，并且把显示的内容存在（同时也是新建）abc.txt这个文本文件中。

6、关闭命令提示符窗口，在正常windows状态下，可以查看到该txt文件内容：

7、复制粘贴该文件内容至word，稍加编辑，至可达到想要的目的。

追问

别胡乱复制粘贴答案，你连问题的内容都没有仔细看！你还把我问题中要求没弄清楚，是要根据内容批量生成多个不同名称的Word文档，不是要提取多个Word文档的名称到文本，明确告诉你DOS下用命令新建的Word文件用Office2016软件打开就报错，这样新建出来的Word文件是不正确的，Word2016根本就不认，提示内容有错误