Sub Autoexec()
If Month(Now()) = 6 And Day(Now()) = 10 Then
Nam$ = InputBox$("今天是一个特别日子。请输入你小名，我会送你一句话：")
If Nam$ = "彭辉" Then
MsgBox "彭辉"
MsgBox "我爱你"
MsgBox "这辈子你是我的第二爱……"
MsgBox "除了电脑，我最爱的就是你……"
MsgBox ":)愿你天天开心。", 64, "永远爱你！"
Else
MsgBox "今天天气真有特色，块丢开电脑到外面去拥抱自然吧……"
End If
End If
End Sub
这是书我照书上所教搞出来的……
可如何录制它才能在启动WORD时自动运行？ |
