InfoPath辅助小工具

最新推荐文章于 2015-11-10 10:54:42 发布

jwos

最新推荐文章于 2015-11-10 10:54:42 发布

阅读量599

点赞数

分类专栏：小工具文章标签：脚本 infopath

本文链接：https://blog.csdn.net/u011768184/article/details/38336387

版权

博主在使用InfoPath设计表单时遇到不便，于是利用按键精灵编写了一款辅助工具，以提高工作效率。尽管最终同事并未采用，但这一过程展示了开发者解决问题的创新精神。

摘要由CSDN通过智能技术生成

今天用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