问题与需求:
程序生成了一批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 &