先将鼠标定位在指定文本框内，然后在弹出对话框，这样就行了。
text1.setfocus下面2句是不但跳跃且选中text中的内容：Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)
