![]() |
#2
沉默的痞子2020-03-10 11:22
|

Private Sub Form_Load()
Dim wrd As Object
Dim MyWord As Object
Set wrd = CreateObject("Word.Application")
Set MyWord = wrd.Documents.Add
MyWord.SaveAs "c:\test.doc" '只能是doc格式,否则文件打不开
MyWord.Close
Set wrd = Nothing
End Sub
Dim wrd As Object
Dim MyWord As Object
Set wrd = CreateObject("Word.Application")
Set MyWord = wrd.Documents.Add
MyWord.SaveAs "c:\test.doc" '只能是doc格式,否则文件打不开
MyWord.Close
Set wrd = Nothing
End Sub