Batcher

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTxt = objFSO.OpenTextFile("C:\test\a.txt",1,True)
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
strText = objTxt.ReadAll
objSelection.TypeText strText
objDoc.SaveAs("C:\test\a.doc")
objWord.Quit
objTxt.Close
Set objWord = Nothing
Set objTxt = Nothing
Set objFSO = Nothing
复制代码

Batcher

我的思路跟zqz兄略有不同。
他是打开Word之后，插入txt的内容；我是打开Word和txt，把txt的全部内容复制到Word。
相比之下，他的更加简洁。