在word文档中插入日期

Question

我正在处理一个Word文档，每个页面都有一个表格。 每个表包含几个单词“Datum”。双击此单词“Datum”，该单词应替换为系统日期。 此日期应该“冻结”，即在不同的日子打开文档时不得自行调整。

有没有人可以帮我解决这个问题？

Answer 1

您可以使用宏按钮字段执行此操作：

• 按Ctrl + F9创建新字段

• 在花括号中输入以下文字：

  MACROBUTTON  InsertDateTime Datum
  

  结果如下：

  { MACROBUTTON  InsertDateTime Datum }
  

• 按Alt + F9切换字段代码显示

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

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

Answer 2

尝试将每个数据设为调用Word VBA的Field {MacroButton datumToDate Datum}：

Sub datumToDate()
    Selection.InsertDateTime Format(Now(), "yyyy-mm-dd")
End Sub

显然可以随意将yyyy-mm-dd编辑为任何有效的time format。这应该使用Selection Object's InsertDateTime替换当前选择＆＃39;，此处标记为“基准”字段。它只替换当前的Datum，因为它与您开始Sub时的位置不同。

要激活MacroButton字段，除非运行

，否则必须双击

Sub AutoOpen()
    Options.ButtonFieldClicks = 1
End Sub

在ThisDocument位置。我建议不要这样做，因为很容易让某人不小心点击旧表格中的原点并将日期重置为现在而且我并不认为如果你不加倍，选择方法会起作用单击字段（尽管它应该）。