Private Sub Command1_Click()
Dim wrd As New Word.Application
Dim doc As Document
Set doc = wrd.Documents.Add("C:\1.doc")
doc.SaveAs "c:\1.mht", 9
doc.Close
wrd.Quit
Set doc = Nothing
Set wrd = Nothing
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 75