Save Word Document as HTML via Excel VBA

[strorg]

I have some code that creates a MS Word document. I am able to save the document as rtf format using the following code:

Dim SaveAsName as String
.ActiveDocument.SaveAs _
Filename:=SaveAsName

I would like to use the code below (copied from a Word recorded macro) to save the file as HTML. My code bombs on:
FileFormat:= wdFormatHTML
saying variable not defined.

Dim SaveASHTML as String
.ActiveDocument.SaveAs Filename:=SaveAsHTML, FileFormat:= _
wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

Any advice?

Regards...Tom
This message was edited by strorg on 2002-11-04 12:18

 

[Andrew Poulsom]

The value of the constant wdFormatHTML is 8, so use that instead.

You cannot use constants if you are using late binding.

 

[Russell Hauf]

Do you have a reference to Microsoft Word in your project? In the VBE, go to Tools-References, and select Microsoft Word X.x Object Library.

Let me know if it works,

Russell

 

[strorg]

Adding the reference did the trick. Will each user have to do this or is that embedded in my code now?

Thanks much...Tom

 

[Russell Hauf]

If they are using the same workbook (or a copy), the references will stay...