VBAコードを介してWord文書に未来または過去の日付を挿入する方法

ワードソリューション 2025 年 9 月 28 日
今すぐ共有：

この記事では、VBAコードを介してWord文書に未来または過去の日付を挿入するための興味深いトリックを紹介します。

通常、Word文書に現在の日付を挿入するのに問題はありません。 それでも、時々、来週または月、あるいはそれ以降に必要な文書の準備をしている可能性があります。 次に、回避できない問題があります。 Wordファイルに将来の日付を挿入するにはどうすればよいですか？ そして時々過去のものもどうですか？

したがって、作業タスクをより適切に実行するには、この便利な方法を理解する必要があると考えています。

VBAコードを使用して未来または貼り付けの日付を挿入する

  1. まず、Word文書を開きます。
  2. 次に、「開発者」タブをクリックします。
  3. 次に、「VisualBasic」をクリックしてVBAエディタを開きます。 Wordリボンで[開発者]タブが使用できない場合は、代わりに[Alt + F11]を押してエディターを開くことができます。「開発者」をクリック->「VisualBasic」をクリック
  4. エディターで、左側の「通常」をクリックします。
  5. 次に、ツールバーの「挿入」をクリックします。
  6. 次に、リストメニューから「モジュール」を選択します。「通常」をクリック->「挿入」をクリック->「モジュール」をクリック
  7. 新しく挿入したモジュールをダブルクリックすると、右側に編集領域が表示されます。
  8. 次のコードをそこに貼り付けるだけです。
Sub InsertFutureOrPastDate()
  Dim strNumberOfDays As String

  ' Input the number of days you want to insert from today to the future or past date.
  strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
  ' Insert the future or past date according to the inputed number of days
  If strNumberOfDays <> "" Then
    Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
  End If       
End Sub
  1. 次に、「保存」ボタンをクリックして、VBAエディターを閉じます。[新しいモジュール]-> [コードの貼り付け]-> [保存]をクリックします
  2. 次に、Word文書画面に戻り、未来または過去の日付が移動する場所にカーソルを置きます。
  3. 次に、「開発者」タブをもう一度クリックします。
  4. そして、「コード」グループの「マクロ」をクリックして、「マクロ」ウィンドウを開きます。 ここでも、「開発者」タブが表示されていない場合は、「Alt + F8」を押すだけです。「開発者」をクリック->「マクロ」をクリック
  5. 「マクロ」ウィンドウで、「InsertFutureOrPastDate」マクロを見つけて選択します。
  6. 次に「実行」をクリックします。「InsertFutureOrPastDate」を選択->「実行」をクリック
  7. 次に、メッセージボックスが表示されます。 ボックスの下部にあるテキストボックスに数値を入力して、将来の日付までの残り日数を表すことができます。 たとえば、明日の日付を挿入する場合は、そこに「1」を入力する必要があります。 同様に、過去の日付が必要な場合は、値の前にマイナス記号を追加します。たとえば、昨日の「-1」などです。
  8. 「OK」をクリックすることを忘れないでください。テキストボックスに入力-> [OK]をクリックします未来と過去の日付を挿入する

注：コード「Selection.TypeTextText：= Format（Date + strNumberOfDays、“ dddd、MMMM dd、yyyy”）」では、「dddd、MMMM dd、yyyy」は日付形式を表し、「M」は「月」を表します。 、「d」は「day」、「y」は「year」、「dddd」は「week」なので、自由に変更できます。

貴重なファイルを取り戻す

Wordは崩壊しやすく、Wordファイルが危険にさらされます。 時々、私たちの貴重なデータのいくつかはちょうどなくなっています。 しかし、なくなったものは完全になくなったわけではありません。 重要なファイルが失われたことを嘆くために座るか、熟練したファイルを選択することができます 破損したWord回復ツール それらを取得します。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelxlsファイルの問題の修復 (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。