Wordマクロ docファイルを互換性なしのdocxファイルで保存する

Save .doc file as .docx file with VBA to remove compatibility flag.
https://groups.google.com/forum/#!topic/microsoft.public.word.vba.general/-8tg95tixXc



Sub Macro1()
ActiveDocument.SaveAs FileName:="Test Doc 1.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="",
AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Convert 'Added this line.
End Sub