Sub Word2010CompatibilityOn()
'
' Word2010CompatibilityOn Macro
'
'   Charles Kenyon
'   Written for WordArt Add-In
'   Converts Active Document to Word 2010 format
    Dim Result As Long
    Result = MsgBox(prompt:="This will convert this document to Word 2010 format. You will lose any features added in later versions." & _
        vbCr & "Are you sure?", Title:="Word 2010 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 (wdWord2010)
    MsgBox "Conversion completed. If you are using Word 2013 or later, you should see Compatibility Mode in the Title Bar.", vbInformation, "Done"
    On Error GoTo 0
    Exit Sub
SkipConversion:
    MsgBox "Conversion skipped", vbInformation, "OK"
    On Error GoTo 0
End Sub