【Word】 今日の「年」「月」「日」を個別に挿入したい

質問

お世話になります。

表罫線で区切られているマスの中に、今年の「年の数字」を「和暦」で「全角」で挿入したいのですが、どのようにすべきでしょうか。［挿入］からですと、数字だけということが選べなく、困りました。

例えば、平成１９年ならば"１９"の数字だけを全角で挿入し、ファイルを開くたびに自動更新するようにしたいのです。
もし、今日が平成１９年４月１２日だとしたら、その「年」「月」「日」のマスには、
「年」のマスは１９
「月」のマスは４
「日」のマスは１２
と表示するようにしたいのです。

また、ファイルを使いまわししたいので、もし、自動的に挿入された日付を手入力で修正したくなったとき、上書きで数字を入力しても、その日付を挿入する式は変更されず、次回ファイルを開いたときには、その日の日付の数字が挿入されると助かります。

さらに、できたらなのですが、
同じように別の３つのマスには、今日から３日後の「年」「月」「日」をそれぞれ入れたいのです。

例えば、今日が平成19年12月30日だとしたら、その「年」「月」「日」のマスには、
「年」のマスは２０
「月」のマスは１
「日」のマスは２
と表示するようにしたいのです。

こんなことは出来るのでしょうか？

よろしくお願いします。

回答No.7

Wendy02

enunokokoro様へ＋質問者さんへ

>Wendy02さんが書かれたフィールドコードのIF文は、質問の
>意味と少し違うのではないでしょうか？

それは承知で書いております。その後に、

#質問者様は、こういうことではないような気がします。もう少し複雑の計算ではないでしょうか？

と、私が書いてありますね。例を出して、こんな風かと、質問者さんに、打診するつもりでったのですが、私が、きちんとした回答を書かない限りは、そのような、ご批判は免れ得ないですね。単なるフィールドの数式への興味で書いてしまったので、思わぬ誤解されてしまったようです。

私は、あくまでも、フィールドだけの解決には、限界があるのではないかと考えています。質問者不在で回答者が続けることは、マナー違反ですが、以下の方法は、おそらくは、さまざまな要求に耐えられるはずだと思っています。いくつかの海外のWordの有名なサイトをみてきて、満足できなかったので、私は独自に考え出しました。

ただ、
>QUOTE { =ある計算式で8桁表示にしたもの \#"####/##/##" } \@ d \* DBCHAR }
>3日後でも10日前でも好きな日付で表示できるようになります。

どのような方法なのか、よく分かりません。8桁というのは、20070411 という数値ではありませんか？シリアル値<->日付値が可能なら、それもできるかと思いますが、何か複雑そうな気がします。日付は、変則的な繰り上がりで、10進の世界ではありませんから、見かけ上の文字列を10進にして計算すると、存在しない日付などが出てきてしまいます。シリアル値 <-> 日付値ということが約束されないとできないように思います。

以下の方法なら、どのような設定でも、プログラム上のVBAやVBさえ分かれば、複雑な計算でも、フィールドで出すことができるはずです。しかし、残念ながら、マクロを載せたままになってしまいます。別にアドイン型でも可能のはずです。

ThisDocument モジュールに以下を貼り付けます。現在は、単純に3日加えるというような仕様になっていますが、土日などを避けることも可能です。一旦、貼り付けて、保存し、再び、Wordを立ち上げます。そうしたら、フィールドを挿入する場所で、InsertCustomField　というマクロを実行しますと、フィールドが挿入されます。

なお、ご質問者さんは、マスと書いていますから、それは、コントロールツールやフォームツールのテキストボックスを指すのでしたら、これよりも遥かに簡単にできます。ただ、どちらかというと、コントロールツールのほうが、ロックで拘束されない分だけ使いやすいです。（最後のTextBox3_KeyDown型マクロを参照）

------------------------------------------------------------
Private Sub Document_Open()
'日付自動設定用イベント型マクロ
Dim myDate As Date
Const ADDDATE As Integer = 3 '三日加える

　On Error GoTo ErrHandler
　ThisDocument.CustomDocumentProperties("MyDate").Value = _
　　 Format(Date + ADDDATE, "yyyy/MM/dd")
　ActiveDocument.Fields.Update
　Exit Sub
ErrHandler:
　　 myDate = Format(Date + ADDDATE, "yyyy/MM/dd")
　With ThisDocument.CustomDocumentProperties
　　　　.Add Name:="MyDate", _
　　　　LinkToContent:=False, _
　　　　Type:=msoPropertyTypeDate, _
　　　　Value:=myDate
　End With
　Resume Next
End Sub

Sub InsertCustomField()
'フィールド挿入マクロ
　Dim oField As Field, MyRange As Range
　Set MyRange = Selection.Range
　Set oField = ActiveDocument.Fields.Add(Range:=MyRange, _
　　　　Type:=wdFieldDocProperty)
　　 oField.Code.Text = " DOCPROPERTY myDate \* MERGEFORMAT"
　　 oField.Update
End Sub

======================================
これは別の方法です。テキストボックスは、もう少しイベント型マクロで手を加えないと、使い勝手がよくありません。

テキストボックスが、6つがあり
入力側　：年, 月, 日　ここの3つ目のTextBox3 に設定する場合
表示側　：年, 月, 日

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim y As String, m As String, d As String
Dim myDate As Date
Const ADDDATE As Integer = 3 '加える日
　If KeyCode = 13 And TextBox3.Text <> "" Then
　 If IsNumeric(TextBox1.Text) Then y = TextBox1.Text
　 If IsNumeric(TextBox2.Text) Then m = TextBox2.Text
　 If IsNumeric(TextBox3.Text) Then d = TextBox3.Text
　 If IsDate(y & "/" & m & "/" & d) Then
　　　myDate = CDate(y & "/" & m & "/" & d)
　　　Else
　　　Exit Sub
　　End If
　　TextBox4.Text = Format$(Year(myDate + ADDDATE), "00")
　　TextBox5.Text = Format$(Month(myDate + ADDDATE), "0")
　　TextBox6.Text = Format$(Day(myDate + ADDDATE), "0")

　End If
End Sub

お礼

ありがとうございます。
ワードのマクロはまったくわからないので、勉強して使います。

本当に細かくありがとうございました。