【ワード】 ドロップダウンリストと年齢表示ＶＢＡは同文書内に共存できるでしょうか？

質問

ワード２００２を使用しています。このサイトで年齢表示の方法を拝見しました。
フォームツールバーのテキストボックスとＶＢＡを使用するものです。
http://okwave.jp/qa2612476.html
これは良い方法だと思い、早速私も組み込みました。
そっくりコピーして使わせていただきました。

しかし、この文書には、ドロップダウンリストが、組み込んでありました。
フォームツールバーのドロップダウンフォームフィールドを使用しています。
http://okwave.jp/kotaeru_vote.php3?q=2614089
http://kokoro.kir.jp/word/form.html

うまく年齢が表示されないので、ＶＢＡ画面の【プロジェクトの実行アイコン】を押したところ、下記メッセージが出ました。

実行時エラー'4605'
オブジェクトにより文書の保護されている箇所が参照されているためメソッドまたはプロパティが使用できません。
［ＯＫ］　　［ヘルプ］

ためしに、フォームツールバーの【フォームの保護】アイコンをクリックして保護を解除し、ＶＢＡ画面に切り替えて【プロジェクトの実行アイコン】を押したところ、正常に機能し、年齢が表示されました。

しかし、そのままではドロップダウンリストが機能しないので、【フォームの保護】アイコンをクリックし、フォームの保護をかけました。

年齢表示は正常に表示されています。

上書き保存して、文書を閉じ、もう一度文書を開いても、ドロップダウンリストは機能しているし、年齢表示も閉じる前と同じ年齢が表示されています。

そこでお尋ねいたします。
１．このまま文書を保存し、誕生日が過ぎて２日たったときにこの文書を開いた場合、自動的に年齢は一歳繰り上がっているでしょうか？

２．もし、このままでは、ドロップダウンリストと年齢表示は両立しないとなった場合は、解決方法はあるでしょうか？

どうかよろしくお願いいたします。

回答No.3

Wendy02

ありがとうございました。

こんばんは。Wendy02です。

>自分で勉強すれば良いのですが、なかなか取っ掛かりがわからなく、困っています。教えていただいたことを、自分の頭に入るよう勉強しなおします。

私は、たまたま、覚えるための時間というものがあっただけです。実際に私は、覚えられるとは思ってはいませんでした。語学がなかなか覚えられなくて、その代わりにはじめたのがVBAでした。

>誕生日が過ぎたら自動で一日更新するVBAを教えていただきたく思います。
たぶん、「一歳」更新だと思います。原理を変えれば、毎日、その日の日付も出せますね。

マクロは、必ず、ThisDocument に登録してあることが条件です。
以下を前のコートすべて、上書きしてください。そのドキュメントを一旦保存すれば、後は、自動的に設定されます。

'Option Explicit
'------------------------------------------

Private Today As Date
Private Sub Document_Open()
'ドキュメントを開けると起動されるマクロ
Today = Date
Call ThisDocument.MyBirthday
End Sub

Sub MyBirthday()
　Dim Txt1 As String
　Dim i As Integer
　Dim myDate As Variant
　Dim tmpDate As Variant
　Txt1 = Me.FormFields("Text1").Range.Text
　On Error GoTo EndLine
　If IsDate(Txt1) Then
　　myDate = CDate(Txt1)
　　tmpDate = CStr(Year(Today)) & "/" & Format(myDate, "mm/dd")
　　tmpDate = CDate(tmpDate)
　　i = DateDiff("yyyy", myDate, Today)
　　If tmpDate > Date - 1 Then　
　　　i = i - 1　'今日の日が、誕生日が過ぎるまで「－1」
　　End If
　　Me.FormFields("Text2").Result = CStr(i)

　End If
EndLine:
End Sub

'------------------------------------------

お礼

なんとご親切に、コードまでご丁寧に作っていたたいて、泣けてくるほどうれしいです。

早速、貼り付けてみました。

ところが、年齢表示のテキスト２が、-88歳になってしまいました。
生年月日のテキスト１は　昭和62年12月22日　です。

コンピューターの日付は、18年12月22日です。

教えていただいたコードを貼り付ける前は、17歳か18歳になっていました。（誕生日をずらして試していたので、年齢がずれましたが、正常な年齢表示でした）

頼ってばかりで申し訳ないのですが、なぜ、年齢がマイナス表示になったのか、教えていただけるでしょうか。

ＶＢＡのThisDocumentには、以前のコードを削除し、下記のとおり貼り付けました。余分なものも貼り付けてしまったのでしょうか？

すみません。よろしくお願いいたします。

'Option Explicit
'------------------------------------------

Private Today As Date
Private Sub Document_Open()
'ドキュメントを開けると起動されるマクロ
Today = Date
Call ThisDocument.MyBirthday
End Sub

Sub MyBirthday()
　Dim Txt1 As String
　Dim i As Integer
　Dim myDate As Variant
　Dim tmpDate As Variant
　Txt1 = Me.FormFields("Text1").Range.Text
　On Error GoTo EndLine
　If IsDate(Txt1) Then
　　myDate = CDate(Txt1)
　　tmpDate = CStr(Year(Today)) & "/" & Format(myDate, "mm/dd")
　　tmpDate = CDate(tmpDate)
　　i = DateDiff("yyyy", myDate, Today)
　　If tmpDate > Date - 1 Then　
　　　i = i - 1　'今日の日が、誕生日が過ぎるまで「－1」
　　End If
　　Me.FormFields("Text2").Result = CStr(i)

　End If
EndLine:
End Sub

'------------------------------------------

補足

すいません！！

文書を保存して閉じて、再度開いたところ、きちんと18歳になっていました。
先ほどのお礼欄の年齢のマイナス表示はもう出ません。

解決しました。すみませんでした。

ただ、【フォームの保護】をかけていると、文書を開いたときに、年齢表示のＶＢＡがうまく作動しないようです。

開いたときに下記のメッセージがでました。

実行時エラー'4605'
オブジェクトにより文書の保護されている箇所が参照されているためメソッドまたはプロパティが使用できません。
［継続］(灰色）　［終了］　［デバック］　［ヘルプ］

で、デバックを押すと、マクロの記述シートが開き、黄色いマーカーで、
Call ThisDocument.MyBirthday
の所が示されています。

そして、自分で文書に戻り、【フォームの保護】を解除し、マクロの画面に戻り、ビデオの再生ボタンにあるような三角マークの【継続】を押したところ、きちんと年齢が表示されました。

［ツール］－［文書の保護］－［保護対象外をフォームフィールド］にして［ＯＫ］にして閉じていますが、変わりません。

やはり、ドロップダウンリスト【フォームの保護】と年齢表示ＶＢＡは両立できないのでしょうか？

両立できない場合は、ドロップダウンリストをあきらめます。

どうか、教えてください。よろしくお願いします。