zqz0012005 (smile)当前离线
假装是个高手
荣誉版主
TOP
Set objWord = CreateObject("Word.Application") 'objWord.Visible = True Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection objSelection.InsertFile("D:\桌面\a.txt") '最好写完整路径,下同 objDoc.SaveAs "D:\桌面\a_tem.doc" objWord.Quit复制代码
评分人数