ワードにタイマーを設定したい

こんにちは。

派遣社員のスキルチェックのために、２分間でどれだけ文字入力ができるかを試験しています。
ソフトはWord2000を使っています。
今までは担当者がそばにいて２分たった時点で入力を終了させていたのですが、つきっきりで試験していると他の作業ができません。

できれば、「開始」ボタンを押して入力を開始し、２分立ったら自動的に文章の入力が不可になるように設定したいです。

コマンドボタンを作成し、そこにマクロなりVBなりを設定していますがどうもうまくいきません。
どのようなマクロやVBを組めばいいのでしょうか？

よろしくお願い致します。

No.3 ベストアンサー 回答者： noname#22222 回答日時： 2006/03/04 13:20

s_husky です。

一応、これで文書の先頭に移動します。
なお、待ち時間の部分はPause関数にしました。
１０秒から試して下さい。

Option Explicit

Private Sub CommandButton1_Click()
　　Static isClick As Boolean
　　
　　If Not isClick Then
　　　　isClick = True
　　　　SendKeys "%({E})", False
　　　　SendKeys "+({L})", False
　　　　SendKeys "{HOME}", False
　　　　Pause 10
　　　　MsgBox "作業を終了して下さい。"
　　　　isClick = False
　　End If
End Sub

Public Sub Pause(ByVal PauseTime As Double)
　　Dim E As Double
　　
　　E = Timer + PauseTime
　　Do While Timer < E
　　　　DoEvents
　　Loop
End Sub

この回答へのお礼

早速の回答、ありがとうございます！
うまく実行することができました。感謝します！！

お礼日時：2006/03/04 14:18

No.2 回答者： noname#22222 回答日時： 2006/03/04 12:43

Option Explicit

Private Sub CommandButton1_Click()
　　Static isClick As Boolean
　　Dim Start　　　As Double
　　
　　If Not isCkick Then
　　　　isClick = True
　　　　Start = Timer
　　　　Do While Timer < Start + 120
　　　　　　DoEvents
　　　　Loop
　　　　MsgBox "作業を終了して下さい。"
　　　　isClick = False
　　End If
End Sub

こんな感じでしょうが、難点があります。
コマンドボタンを押した直後に文書の先頭にカーソルを自動移動する機能がありません。
もう少し、アタックしてみますが、とりあえず！

No.1 回答者： manekikuneco 回答日時： 2006/03/04 12:09

かなり高度な内容ですね。

もっと手っ取り早く、タイピング教習ソフトのスコア管理ではどうでしょうか？
ソフトによっては、お求めの機能がついてるのもあるかと思います。