今天用infoPath设计表单,发现有很多不便,没办法,之后自己用按键精灵写,没想到工具写出来了,同事却不用了。。。。只能说自己写的不够快把。。。。。下面是代码:
//该脚本用于在infopath里面操作变量
//单独增加,按键为F4;批量增加,按键为9;批量改名字,按键7
//快速上移,按键为1,快速下移,按键为2
//num3删除
//单独修改名字,按键f4
Do
按键码 = GetLastKey()
//单独增加,按键为F4
If 按键码 = 115 Then
leftClick 1
RightClick 1
Delay 200
Keypress "A", 1
End If
//单独修改名字,按键f3
If 按键码 = 114 Then
//f4为改名字,只用作单独修改
leftClick 1
RightClick 1
Delay 200
KeyDown "p", 1
KeyDown "A", 1
End If
//批量增加,按键为9
If 按键码 = 105 Then
Rem 输入字符3
zifu=InputBox("请输入批量增加组名称")
If zifu = "" Then
Goto 输入字符3
End If
MessageBox zifu
For i=1 to 9 Step 1