word 宏命令批量把当前文件夹下的doc另存为docx格式

问题与需求：

                程序生成了一批doc文件，因为是模板生成的，虽然后缀是doc文件，但是有些软件识别还是hmt格式的单网页格式，所以需要另存为真正的docx格式。

实现：

        最后实现为，运行当前宏命令save，会将当前文件夹所以doc格式的文件另存为当前文件夹下的名字为1的文件夹下（会自动在当前文件夹下生成名字为1的文件夹保存新文件）

Sub save()
 Dim path          As String
   Dim fileName  As String
   Dim worddoc   As Document
   Dim MyDir       As String
    NewFile = "1"
    MyDir = ActiveDocument.path
    MkDir (MyDir + "/" + NewFile + "/")
   fileName = Dir(MyDir & "\*.doc*", vbNormal)
   Do Until fileName = ""
   If fileName <> ThisDocument.Name Then
        Set worddoc = Documents.Open(MyDir & "\" & fileName)
        
        Call newSave(MyDir + "/" + NewFile &