俺メモ

Word文書でプロフィールとか作った際に
年齢を自動計算で表示させる方法。→■

1. 表示→ツールバー→フォーム

2. 生年月日欄の「　年　月　日」を反転表示→フォーム→テキストボックスフォームフィールド
→種類「日付」、既定の日付「(自分の生年月日)」、書式は適当、ブックマーク名「誕生日」
→OK

3. 満xx歳欄の「　歳」を反転表示→フォーム→テキストボックスフォームフィールド
→種類「数値」、ブックマーク名「年齢」
→OK

4. ALT+F11→「ThisDocument」をダブルクリック

Private Sub Document_Open()
Dim Birthday As Date
Birthday = CDate(Me.FormFields("誕生日").Result)
If IsDate(Birthday) Then
Me.FormFields("年齢").Result = DateDiff("yyyy", Birthday, Date)
If CDate(CStr(Year(Date)) & "/" & Format(Birthday, "mm/dd")) >= Date Then
Me.FormFields("年齢").Result = Me.FormFields("年齢").Result - 1
End If
End If
End Sub

5. ツール→マクロ→セキュリティ→「中」
→OK

これで文書を開く度に、今日の日付から年齢を計算してくれるはず。