Vba 使用表变量和日期保存文件

我有代码来存档文档的一个版本——使用存储在Word文档表中的值重命名文件，后跟今天的日期。我让日期方面正常工作，但无法将表1第1行第2单元格中的值放入SaveAs语句中

Sub CommandButton1_Click()
Call DocArchive()
End Sub

Sub DocArchive()
ActiveDocument.SaveAs fileName:="Plan archive " & Format(Date, "mm-dd-yy")
End Sub

---

非常感谢！

Sub CommandButton1_Click() 
Call DocArchive() 
End Sub

Sub DocArchive() 
' You need to chop off two characters at the end of the cell (a chr(13)
' and a chr(7). You may need to do more...
ActiveDocument.SaveAs fileName:="Plan archive " _
 & left(ActiveDocument.Tables(1).Rows(1).Cells(2).Range.Text, _
   len(ActiveDocument.Tables(1).Rows(1).Cells(2).Range.Text)-2)) _
 & Format(Date, "mm-dd-yy") 
End Sub