Document.SaveFormat (Word)

Retorna o formato de arquivo do conversor de arquivo ou documento especificado. Long somente leitura.

A propriedade SaveFormat será um número exclusivo que especifica um conversor de arquivo externo ou uma constante WdSaveFormat. Use o valor da propriedade SaveFormat para o argumento FileFormat do método SaveAs2 para salvar um documento em um formato de arquivo para o qual não há uma constante WdSaveFormat correspondente.

If ActiveDocument.SaveFormat = wdFormatRTF Then 
 ActiveDocument.SaveAs FileFormat:=wdFormatDocument 
End If