Macro to save as a .doc file

[Jodi]

HI ALL~
I have an HTML document that opens in word. I am trying to create a macro
to save it as a .doc file. Here is the code I have so far. It saves it as
HTML still, but will not save it as a .doc file. Any ideas?
Sub SaveAsTextFile()
Dim strDocName As String
Dim intPos As Integer
Application.DefaultSaveFormat = wdFormatDocument

'Find position of extension in filename
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")


'Save file with new extension
ChangeFileOpenDirectory "C:\DaPassport-AP\ST\"
ActiveDocument.SaveAs FileName:=strDocName
ActiveDocument.SaveAs FileFormat:=wdFormatDocument


End Sub

 

[Marc Adams [marcmyword.com]]

Try combining the statements...
activedocument.SaveAs FileName:="Marc", FileFormat:=wdFormatDocument

Hope it helps.