按文件内容文件另存为的代码有问题

dhygritek

有很多Word文档，按固定位置（Paragraphs(5)）内容生成文件名保存文件。运行出现5096错误，在网上搜了一下，没有解决，请大侠看看什么问题？谢谢！
在工程Normal-模块-NewMacro中保存代码：
Sub 中文分箱单保存xx()
  Dim tmp As String
  tmp = ActiveDocument.Paragraphs(5).Range.Text   
   ChangeFileOpenDirectory "D:\146\"
   ActiveDocument.SaveAs2 FileName:=tmp & ".docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=14   
End Sub

dhygritek

在线等啊！请高手帮忙，不是难题，只是第一次使用WORD的VBA，录制的宏文件名用文本就没有问题，但是改为Word文档里的内容就不行。
谢谢啊！

dhygritek

解决了！参考了本网站的帖子，在修改的时候不明白，改错了，已经改正了！
谢谢大家！
Sub ttt()
    Dim tmp As String
    Dim mypath As String
    mypath = "D:\My Documents\Doc2.files\"
    tmp = ActiveDocument.Paragraphs(5).Range.Text
    tmp = Left(tmp, Len(tmp) - 2)
    tmp = tmp & Format(Now(), "yyyy-MM-dd")
   
    ActiveDocument.SaveAs FileName:=mypath & tmp & ".docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub