SaveFormat Property

       

Returns a PbFileFormat constant indicating the file format of the specified document. Read-only.

PbFileFormat can be one of these PbFileFormat constants.
pbFilePublication  The file was saved with the current version of Microsoft Publisher.
pbFilePublicationHTML  The file was saved in an HTML format.
pbFilePublisher2000  The file was saved in a Microsoft Publisher 2000 file format.
pbFilePublisher98  The file was saved in a Microsoft Publisher 98 file format.
pbFileRTF  The file was saved in Rich Text Format.
pbFileWebArchive  The file was saved in the MHTML format that allows users to save a Web page and all its related files as a single file.

expression.SaveFormat

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

If the active publication is in the Microsoft Publisher 2000 format, this example saves it in Rich Text Format (RTF).

Sub SaveAsRTF()

    If Application.ActiveDocument.SaveFormat = pbFilePublisher2000 Then
        ActiveDocument.SaveAs "Flyer3", pbFileRTF
    End If

End Sub