Question

我需要让VBA代码将从模板创建的文件保存到具有特定名称的特定目录。示例：\部分路径\加上在userform \中选择的子目录以及来自不同用户表单的另一部分信息。我可以将它保存到部分路径，但添加子目录和文件名是我被卡住的地方。这是我尝试的最后一件事......

ActiveDocument.SaveAs2 FileName:="X:\Directory\" & strSubDirectory & strUserText ".docx"

非常感谢任何帮助。

Answer 1

您的陈述中遗漏了"\"和一些&。此外，根据您的Word版本，您可能无法使用Word 2010中引入的SaveAs2。下面的代码使用SaveAs。 注意：此代码假定子目录已存在

Private Sub SaveDocument()
    Dim strSubDirectory As String
    Dim strUserText As String
    Dim myPath As String

    strSubDirectory = "SubTest"
    strUserText = "Test"
    myPath = "C:\Test\" & strSubDirectory & "\" & strUserText & ".docx"

    ActiveDocument.SaveAs FileName:=myPath, FileFormat:=wdFormatXMLDocument
End Sub

可以在http://msdn.microsoft.com/en-us/library/ff839952.aspx

找到不同类型的FileFormat

Answer 2

您确定strSubDirectory等包含路径分隔符吗？如果没有，您需要在FileName字符串中包含此内容：

ActiveDocument.SaveAs2 _
    FileName:="X:\Directory\" & strSubDirectory & "\" & strUserText & ".docx"

使用userform对象保存文件

2 个答案: