Private Sub Command1_Click()

Dim wrdApp
Dim wrdDoc
FileName = "r:\413968-12.27.doc"

'Set excel = CreateObject("excel.application")
Set wrdApp = CreateObject("word.application")

wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(FileName)

  wrdDoc.SaveAs FileName:="r:\test.htm", FileFormat:=wdFormatFilteredHTML, AddToRecentFiles:=True
  wrdDoc.Close
 
 Set wrdDoc = Nothing
 Set wrdApp = Nothing
End Sub