WD: 97: Macro to Set Default Save Format As HTMLID: Q216642 
  | 
This article describes the procedure in Visual Basic for Applications (VBA) to set the default save format as HTML if an HTML converter is installed.
Microsoft provides programming examples for illustration only, without warranty 
either expressed or implied, including, but not limited to, the implied warranties of 
merchantability and/or fitness for a particular purpose. This article assumes that you 
are familiar with the programming language being demonstrated and the tools used to 
create and debug procedures. Microsoft support professionals can help explain the functionality 
of a particular procedure, but they will not modify these examples to provide added 
functionality or construct procedures to meet your specific needs. If you have limited 
programming experience, you may want to contact a Microsoft Certified  Solution Provider 
or the Microsoft fee-based consulting line at (800) 936-5200. For more information about
Microsoft Certified Solution Providers, please see the following page on the World Wide Web:
http://www.microsoft.com/mcsp/For more information about the support options available from Microsoft, please see the following page on the World Wide Web:
http://www.microsoft.com/support/supportnet/refguide/
Sub DefaultSaveAsHTML()
   On Error Resume Next
   a = 0
   For Each aFile In FileConverters
      If aFile.ClassName = "HTML" Then
         Application.DefaultSaveFormat = "HTML"
         a = 1
      End If
   Next aFile
   If a = 1 Then
      ActiveDocument.Save
   Else
      MsgBox "The HTML converter is not installed"
   End If
End Sub NOTE: Although this macro provides error checking to ensure that the HTML converter has been installed, this error checking may not function correctly if the converter file has been deleted or the registry settings still indicate that it is installed. Conversely, "The HTML converter is not installed" message box may appear even with the converter file installed if the registry settings are damaged or missing. To resolve this, it may be necessary to do a complete removal of Microsoft Office 97 or Microsoft Word 97 and then reinstall it, including the HTML converter.
Additional query words: 8.00 convert page publish vba web
Keywords          : kbdta kbdtacode OffVBA KbVBA 
Version           : WINDOWS:97
Platform          : WINDOWS 
Issue type        : kbhowto 
Last Reviewed: June 2, 1999