用bat把TXT批量改成doc，但是打开提示文本编码

Question

copy G:\1\0000\*.txt G:\2\*.doc
我用这样，结果是可以生成word的，但是每次打开都提示编码问题，怎么解决呢？就是批量把TXT转换成了WROD后，WORD能直接打开，不要每次打开就提示这个编码，可以默认是UTF8

Answer 1

建议您这样操作：把下面的编码内容复制到txt(记事本)里然后把*.txt改为*.vbs格式类型文件。再把这个文件放在你要批量修改的txt文件夹里。双击执行便可以把该目录下的txt文件转换成word文档。（注意：转换的数量不宜过多，不然会出现乱码）
Dim FSO,s

Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
For Each file In AllF.Files
if right(file,3)="txt" then zhuanhuan file
Next
msgbox "已经将所有文本文件转换成WORD文件！",48+4096,"操作成功"
sub zhuanhuan(filename)
name=fso.getbasename(filename)
set file=fso.opentextfile(filename)
s=file.readall
file.close
Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set objDoc = objWord.Documents.Add()
objword.Selection.TypeText s
objword.ActiveDocument.SaveAs AllF & "\" & name & ".doc"
objword.quit
end sub
我以前都是这样操作的，很方便。

追问

我运行了是这样啊

追答

我想给你发VBS文件，可是系统不让我发，只有再贴了，您再查查，我刚运行了，没问题的
Dim FSO,s
Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))
For Each file In AllF.Files
if right(file,3)="txt" then zhuanhuan file
Next
msgbox "已经将所有文本文件转换成WORD文件！",48+4096,"操作成功"
sub zhuanhuan(filename)
name=fso.getbasename(filename)
set file=fso.opentextfile(filename)
s=file.readall
file.close
Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set objDoc = objWord.Documents.Add()
objword.Selection.TypeText s
objword.ActiveDocument.SaveAs AllF & "\" & name & ".doc"
objword.quit
end sub

追问

是不是要先安装什么东西？我运行了还是提示上面那个，字符都没复制少的。而且这段代码百度其他地方也有，应该是没复制错的，可我这边就是运行不了

追答

开始-运行-wscript.exe g:\thua\00.vbs回车看看，还不行的话，看看您的explorer有无问题，杀毒修复下，只要系统没问题，是可以执行的

追问

是可以了，但是我的文本是UTF8的，转了之后，word全部是乱码的

Answer 2

首先手动改了一下后缀名，发现同样存在问题，说明命令行本身是没有问题的，自然也不用其他回复说的其他方法。
然后，根据以下命令结果，
C:\Users\Administrator>ftype Word.Document.8
Word.Document.8="C:\Program Files\Microsoft Office\Office14\WINWORD.EXE" /n "%1"
判断得知，在运行doc文件的时候，实际上是相当于实行了C:\Program Files\Microsoft Office\Office14\WINWORD.EXE <文件全路径>。
所以，我在想应该是要想办法在"C:\Program Files\Microsoft Office\Office14\WINWORD.EXE" /n "%1"这条命令里添加一些参数，使默认以utf8编码打开。暂时还没发现具体的方法，研究一下，有结果了再来回复。

查了一下，只有一下参数，看来要换思路了。
/a 启动 Word 并防止自动加载加载项和全局模板（包括 Normal 模板）。
/l 启动 Word，然后加载特定的 Word 加载项。
/m 启动 Word 的新实例时不运行任何 AutoExec 宏。
/n 启动 Word 的一个新实例，且不在其中打开任何文档。在 Word 的每个实例中打开的文档将不显示为其他实例的“窗口”菜单中的选项。
/t 启动 Word，并打开基于 Normal 模板之外的其他模板的新文档。
/w 启动一个含有空白文档的新 Word 实例。在 Word 的每个实例中打开的文档将不显示为其他实例的“窗口”菜单中的选项。

追问

谢谢，我想的太简单了，以为是转后默认UTF8,在bat里加几条代码而已

Answer 3

试试这个看看。

追问

谢谢，我就是想问一下简单的处理像BAT,VBS,PYTHON之类的有没几行代码可以搞定，不用去安装那么庞大的软件

追答

用VBS可能可以。bat不行，肯定会报告编码转换的消息框的。它必须后台调用word打开txt文件，然后另存为doc，将word的转换消息框禁止掉。bat没法做到。python好像没有vbs的功能，如果没有类似vbs的功能，那它也不行。

用vbs的关键代码 Word.Displayalerts=0一定要加上，那个消息框就不会再弹出来了，自动默认编码处理了。

另外，直接改后缀名将txt改为doc的，是错误的但也能用的方法，不是普适正确的方法。楼上用的vbs中的fso的方法，同样，也是一种错误的，但也可行的方法。

正确的方法只能是后台用Word打开txt然后另存为doc的方法才是正确普适的方法。

 用这个普适正确的方法编制的vbs文件拷贝到需要处理的txt的文件夹下，双击运行即可，转换结果直接保存在原文件夹中，以后打开就不会出现乱码和编码转换的消息了。

追问

谢谢，这个VBS是可以转换成word文档的，但是打开还是提示编码问题。如果我的文档是纯数字+字母的，就没问题。但是我的文档里有汉字，这一转换，就打开还是要编码问题了

追答

哦。把你的txt文件发几份给我来测试看看？

追问

就是内容有汉字就会这样呢。。你可以把下面的存在txt去转看看，例如：
请联系群主
319502585----19
348130035----18

Answer 4

执行文件、文本文件、批处理文件、word文件、幻灯片文件

追问

这位大婶，能详细点吗。