Document.Kind (Word)

Retorna ou define o tipo de formato que o Microsoft Word usa quando formata automaticamente o documento especificado. Leitura/gravação WdDocumentKind. Os valores de retorno possíveis são wdDocumentEmail - Formato de email, wdDocumentLetter - Formato de carta, wdDocumentNotSpecified - Nenhum formato especificado.

response = MsgBox("Is this document an email message?", vbYesNo) 
If response = vbYes Then 
 ActiveDocument.Kind = wdDocumentEmail 
 ActiveDocument.Content.AutoFormat 
End If