Sub Word2007CompatibilityOn()
    '
    ' Word2007CompatibilityOn Macro
    '
    '   Charles Kenyon
    '   Written for WordArt Add-In
    '   Converts Active Document to Word 2007 format
    Dim Result As Long
    Result = MsgBox(Prompt:="This will convert this document to Word 2007 format. You will lose any features added in later versions." & _
                            vbCr & "Are you sure?", title:="Word 2007 Conversion Warning", Buttons:=vbInformation + vbYesNo)
    On Error GoTo SkipConversion    ' in case this is run in an earlier version of Word
    If Result = vbNo Then GoTo SkipConversion
    ActiveDocument.SetCompatibilityMode (wdWord2007)
    MsgBox "Conversion completed. If you are using Word 2010 or later, you should see Compatibility Mode in the Title Bar.", vbInformation, "Done"
    On Error GoTo -1
    Exit Sub
SkipConversion:
    MsgBox "Conversion skipped", vbInformation, "OK"
    On Error GoTo -1
End Sub
' ==========================================================================
Private Sub TitlebarShow()
    MsgBox ActiveDocument.ActiveWindow.Caption
End Sub