Save Word file as ". HTM" from excel vba

[bos88]

Hi all,
need a quick help. I am trying from Excel vba to open a word document (2010 version) and save it as a .htm format. I tried different solutions but nothing seems to work. Here is my code. It works without error but when I open the .htm file it is all gibberish. I want as well to keep this code with late binding.
Appreciate your input on this

Sub openExistingWordFile()
Dim oWord As Object
Set oWord = CreateObject(Class:="Word.Application")
oWord.Visible = True

oWord.Documents.Open Filename:="D:\Application\VBA\test.docx" ' OPEN AN EXISTING FILE.
oWord.Activate
oWord.ActiveDocument.SaveAs Filename:="D:\Application\VBA\test.htm", FileFormat:=wdFormatHTML
oWord.Quit
Set oWord = Nothing
End Sub

 

[Macropod]

I want as well to keep this code with late binding.
Appreciate your input on this

But your code would not work with late-binding, since you must already have a Word reference set for things like wdFormatHTML to work. Merely declaring 'oWord As Object' doesn't magically turn it into late-binding code. Furthermore, according to the Word VBA Help, SaveAs doesn't take a FileFormat argument; you should use SaveAs2 for that.

 

[bos88]

Thanks.
Actually, managed to solve my issue. Just had to change the code to "oWord.ActiveDocument.SaveAs Filename:="D:\Application\VBA\test", FileFormat:=8"