WD98: Word Reports File Type Property as Document for Template

WORKAROUND

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. To work around this problem, use the following sample Microsoft Visual Basic for Applications macro to display the correct file type. You can assign this macro to a toolbar button or the File menu.

   Sub ShowFileType()

      If Documents.Count <> 0 Then
         Select Case ActiveDocument.SaveFormat
            Case wdFormatTemplate
               MsgBox "Word Template"
            Case wdFormatDocument
               MsgBox "Word Document"
            Case wdFormatDOSText
               MsgBox "MS-DOS Text"
            Case wdFormatDOSTextLineBreaks
               MsgBox "MS-DOS Text w/ LineBreaks"
            Case wdFormatRTF
               MsgBox "Rich Text Format"
            Case wdFormatText
               MsgBox "Text Only"
            Case wdFormatTextLineBreaks
               MsgBox "Text Only w/ Line Breaks"
            Case wdFormatUnicodeText
               MsgBox "Unicode Text"
            Case Else
               MsgBox FileConverters(ActiveDocument.SaveFormat).FormatName
         End Select
      End If

   End Sub