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

Question

我有代码来存档文档的一个版本 - 使用存储在 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

Answer 1

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