datetime - 在word文档中插入日期

Question

我正在处理一个 Word 文档，该文档每页都有一个表格。每个表都包含多次出现“Datum”一词。双击“Datum”一词，该词应替换为系统日期。并且该日期应该被“卡住”，即在不同日期打开文档时它不能自行调整。

有谁可以帮我解决这个问题的代码吗？

Answer 1

您可以使用宏按钮字段来做到这一点:

• 按 Ctrl + F9 创建新字段

• 在大括号内输入以下文本:

    MACROBUTTON  InsertDateTime Datum
  

  结果如下所示:

    { MACROBUTTON  InsertDateTime Datum }
  

• 按 Alt + F9 切换域代码显示

这将显示 Word 的内置插入日期对话框。如果您不想显示该对话框，可以将 InsertDateTime 替换为自定义 VBA 宏的名称，例如MyModule.MyInsertDate。该宏将用当前日期替换该字段:

Public Sub InsertCurrentDate()
    Selection.Text = Now
End Sub