Для сохранения файла используется объект автоматизации OLE, поэтому вам нужно найти метод или параметр, чтобы указать тип файла.
Это макрос, который я мог записать, используя Word:
ActiveDocument.SaveAs filename:="asdd.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Таким образом, это означает, что вы должны указать метод FileFormat: = wdFormatHTML (или постоянное значение) для метода SaveAs. Это оставлено в качестве упражнения для читателя:)