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

質問

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

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

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

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

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

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

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

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

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

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

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

回答No.4

Wendy02 · ベストアンサー

こんばんは。Wendy02です。

お待たせしました。今回、思わぬ時間がかかってしまいました。私は、Word2003で開発していたので、それで良いと思っていましたが、下位バージョンですと、うまくいかないようなのです。

そこで、今回、Word2000で、開発して、Word2003で動くかどうかを試してみました。一度は、あきらめかけたのでしたが、こちらでは、Word2000 でも、成功しています。私は、Word2002がないのですが、その間なら何とかなるのではないか、と思っています。

このサンプルコードは、どこにもないので、かなり参りました。ほとんど、自信がありません。ExcelからOLEリンクのほうが、ずっと簡単のようです。ただし、エラーは検出するように作られています。

Private Today As Date
Private Sub Document_Open()
Today = Date
If ThisDocument.ProtectionType <> wdNoProtection Then
　ThisDocument.Unprotect
End If
Call ThisDocument.MyBirthday
End Sub

Sub MyBirthday()
　Dim Txt1 As String
　Dim Txt2 As String
　Dim i As Integer
　Dim myDate As Variant
　Dim tmpDate As Variant
　Dim myFormat As String
　If ThisDocument.ProtectionType <> wdNoProtection Then
　 ThisDocument.Unprotect
　End If
　On Error GoTo EndLine
　If Today <> Date Then Today = Date
　 Txt1 = Me.FormFields("Text1").Result
　 Txt2 = Me.FormFields("Text2").Result
　If Sgn(Val(Txt2)) < 1 Then
　　 Txt2 = ""
　End If

　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
　　End If
　　myFormat = Me.FormFields("Text1").TextInput.Format
　　Me.FormFields("Text1").TextInput.Default = Format(CDate(myDate), myFormat)
　　Me.FormFields("Text2").Result = CStr(i)
　　Me.FormFields("Text2").TextInput.Default = CStr(i)
　Else
　　Me.FormFields("Text2").Result = Txt2
　　Me.FormFields("Text2").TextInput.Default = Txt2
　End If
EndLine:
　If Err.Number > 0 Then
　 MsgBox Err.Number & ": " & Err.Description
　End If
　If ThisDocument.ProtectionType = wdNoProtection Then
　ThisDocument.Protect wdAllowOnlyFormFields
　End If
End Sub

お礼

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

本当に、お世話になりっぱなしですみません。
いつか恩返しができる日があれば、嬉しいのですが。

仕事に使っていますので、月曜日に、動作確認します。

本当に、お世話になりました。

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

補足

補足欄でお礼を述べさせていただきます。

大変ありがとうございました。
完璧に動作します。

思っていたものが手に入って、すっごく嬉しいです。

＞ExcelからOLEリンクのほうが、ずっと簡単のようです。

あ～、そういう方法があったのですね。
まったく、パソコンのイロハもわからないままに、難しいことから質問してしまいました。

ExcelからのOLEリンクについては、自分で調べて見ます。

本当にお世話になりました。

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