SHIFT + CTRL ^ ALT % F1 {F1}答案补充
这就是在代码中 触发这些按键用的答案补充
晕,这就是组合键时用的。答案补充
Option Explicit Private Sub Form_Load() Dim x x = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE",vbnormalFocus) waittime (2) SendKeys "+3",True waittime (2) SendKeys "^f",True SendKeys "^s",True waittime (2) End Sub Private Sub waittime(delay As Single) Dim starttime As Single starttime = Timer Do Until (Timer - starttime) > delay Loop End Sub 以上代码呼出WORD,你点两下就会出现SHIFT+3,ctrl+f的效果