在word文檔中插入日期

Question

我正在處理每個頁面上都有一個表格的Word文檔。 每個表格包含幾個「Datum」單詞。通過雙擊「Datum」這個詞，這個詞應該被系統日期替換。 這個日期應該是「凍結的」，即在不同日子打開文檔時它不能自適應。

有沒有人能幫我解決這個問題？

Answer 1

你可以做到這一點使用宏按鈕字段：

• 按Ctrl + F9以創建一個新的領域

• 大括號內輸入以下文字：

  MACROBUTTON InsertDateTime Datum 
  

  的結果如下：

  { MACROBUTTON InsertDateTime Datum } 
  

• 按Alt + F9切換域代碼顯示

這將顯示內置插入日期對話框詞。如果您不想顯示對話框，則可以用自定義VBA宏的名稱替換InsertDateTime，例如MyModule.MyInsertDate。這個宏將與當前日期替換該字段：

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

Answer 2

嘗試使調用一個Word VBA每個數據一個Field {MACROBUTTON datumToDate基準}：

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

明顯感覺到自由編輯YYYY-MM -dd到任何有效的time format。這應該使用Selection Object's InsertDateTime替換「當前選擇」，這裏是標記爲「基準」的字段。它只會取代當前的Datum，因爲當你開始Sub時，它會離開你的位置。

要激活MACROBUTTON字段，你將需要雙擊，除非你在的ThisDocument位置運行

Sub AutoOpen() 
    Options.ButtonFieldClicks = 1 
End Sub 

。我建議不要這樣做，因爲很容易讓別人無意中點擊舊錶格中的Datum並將日期重置爲Now，並且我不肯定如果您不雙擊字段，選擇方法將會起作用（儘管它應該） 。