WD: 97: Macro to Set Default Save Format As HTML (216642)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers 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 requirements.

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.