pcl_test

txtfile = "D:\文本.txt"
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.open(txtfile)
objDoc.SaveAs2 Left(txtfile,InStrRev(txtfile,"."))&"doc"
objDoc.Close:objWord.Quit
Msgbox "Done"
复制代码