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

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

1 个答案: