VBS把txt轉化成doc但是txt是utf8編碼的轉化后會亂碼求解代碼如下，我的TXT是含有數字+字母+漢字+符號。編碼是UTF-8，操作以下代碼轉成的DOC，就會變成亂碼但如果TXT改編碼為ANSI就正常，是里面哪個地方錯了嗎？不能UTF-8轉后不亂碼嗎？

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()
For i = 1 To Len(s) Step 20000
objword.Selection.TypeText Mid(s, i, 20000)
Next
objword.Activedocument.SaveAs AllF &  & name & .doc
objword.quit
end sub
nclick="copycode($('code0'));">復制代碼