VBA 将文档从 .docm 保存(和转换)到 .docx

Question

我在项目末尾有以下代码：

'Save the Document
Dim Directory As String, FileName As String
Directory = "C:Users" & (Environ$("Username")) & _
    "DesktopSTL"
If Len(Dir(Directory, vbDirectory)) = 0 Then
    MkDir Directory
End If
FileName = sDNUM & " " & Format(Date, "YYYY-MM-DD") & ".docx"
SaveAs Directory & FileName

MsgBox "File saved to:" & vbNL & Directory & FileName

并且我正在尝试在运行启用宏的工作簿后将文件另存为docx(未启用宏(。

问题是通过使用上述方法保存我的文件，在尝试打开新保存的文件时，我收到以下错误消息：

无法

打开文件名<文件>因为内容有问题。

我应该使用什么方法来正确保存这些文档？

好奇者的杂项说明：

vbNL只是vbNewLine的一个函数。我经常使用它，我想我懒得一直输入它，所以我做了一个函数来缩短文本。

sDNUM也只是与问题无关的另一个功能。

Answer 1

使用 docx 扩展名保存文件不会自动将其转换为未启用宏的文件。

改变

SaveAs Directory & FileName

自

SaveAs2 Directory & FileName, wdFormatXMLDocument

有关SaveAs2方法的详细信息，请参阅此处。