通过office 自带功能进行批量另存为

场景：由于通过java代码生成的word文档，打开后另存为时总是保存为后缀是.xml的文件格式。

现通过offic 自带的宏 命令进行批量转换。

此存不在讲解如何录制宏。

可以参考百度文档：

编辑宏命令

内容如下：

Sub 另存为()
'
' 另存为 宏
' 另存为remark
'
Dim i


For i = 1 To 200


    ChangeFileOpenDirectory "F:\cg\"
    Documents.Open FileName:=i & ".doc"
    
    ActiveDocument.SaveAs FileName:=i & "_.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
        


ActiveWindow.Close


Next i


End Sub

此功能可以批量将word转换成任何word支持的格式。