word フィールド 明日の日付

Question

ワードで明日の日付を自動で表示させたくて、ネット検索したところ、

{QUOTE

{SET Delay 1}

{SET a{=int((14-{DATE @ M})/12)}}

{SET b{={DATE @ YYYY}+4800-a}}

{SET c{={DATE @ M}+12*a-3}}

{SET d{DATE @ d}}

{SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045+Delay}}

{SET e{=INT((4*(jd+32044)+3)/146097)}}

{SET f{=jd+32044-INT(146097*e/4)}}

{SET g{=INT((4*f+3)/1461)}}

{SET h{=f-INT(1461*g/4)}}

{SET i{=INT((5*h+2)/153)}}

{SET dd{=h-INT((153*i+2)/5)+1}}

{SET mm{=i+3-12*INT(i/10)}}

{SET yy{=100*e+g-4800+INT(i/10)}}

"{dd}-{mm}-{yy}" @ "ggge年M月d日"}

というフィールドを使えばいいということで、やったのですが、

月末のところでうまくいかず、うまいこと月をまたげません。

なぜでしょうか。

Answer 1

試して見ましたが、Delay の値が12以下だと、月日の値が入れ替わったような感じで表示されてきますね。

13以上で正常になりますが、31からまたおかしくなります。

日付を挿入したい箇所にブックマークを追加しておき、VBAでマクロを作成するか、Excelワークシートオブジェクトを利用して挿入するようにした方が、簡単にできそうです。

●ブックマークに日付を追加して、マクロで日付を表示する

日付を表示したい位置で、[挿入] > リンク > ブックマークを選択して、ブックマーク名を追加しておきます。

[開発] タブの [Visual Basic] で標準モジュールにマクロを作成します。

Sub ブックマーク用日付()

    ' ブックマークの位置に日付を挿入します

    Dim PDate As String

    PDate = DateAdd("d", 1, Date)

    PDate = Format(PDate, "ggge年M月d日")

    ActiveDocument.Bookmarks("日付").Range.Text = PDate

 End Sub

・DateAdd の引数の数字で、表示する日付（何日前、何日後）を変更できます。

・("日付") は、ブックマークに追加したブックマーク名です。

・Wordでマクロを実行すると、指定の日付が表示されます。

・ファイルの保存は、マクロ有効文書(*.docm) で保存します。

●Excel ワークシートオブジェクトを挿入して、日付を表示する

[挿入]タブ > テキストグループの [オブジェクト] > オブジェクト > Microsoft Excel WorkSheet を挿入します。

A1セルに　=TEXT(TODAY()+1,"ggge年m月d日") と入力で、日付を表示できます。

・ワークシートオブジェクトの大きさは、必要部分のみ表示されるようにサイズを変更します。

Answer 2

マクロで出来ました！

助かりますm(__)m