InfoPath辅助小工具

最新推荐文章于 2022-02-16 08:00:00 发布

jwos

最新推荐文章于 2022-02-16 08:00:00 发布

阅读量663

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/u011768184/article/details/38336387

小工具专栏收录该内容

1 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天用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
            leftClick 1
            RightClick 1
            Delay 200
            Keypress "A", 1
            SayString zifu & i
            KeyPress 13, 1
            KeyPress 13,1
        Next
    End If

    //快速上移,按键为1
    If 按键码 = 97 Then 
        Rem 输入字符4
        zifu=InputBox("请输入上移数目")
        If zifu = "" Then 
            Goto 输入字符4
        End If
        MessageBox zifu
        For i=1 to zifu Step 1
            leftClick 1
            RightClick 1
            Delay 200
            KeyPress "U", 1
            MoveR 0, -15
        Next
    End If
	
	//快速下移,按键为2
    If 按键码 = 98 Then 
        Rem 输入字符5
        zifu=InputBox("请输入下移数目")
        If zifu = "" Then 
            Goto 输入字符5
        End If
        MessageBox zifu
        For i=1 to zifu Step 1
            leftClick 1
            RightClick 1
            Delay 200
            KeyPress "w", 1
            MoveR 0, 15
        Next
    End If
    
    //num3删除
    If 按键码 = 99 Then 
        leftClick 1
        RightClick 1
        Delay 200
        Keypress "d", 1
        Keypress 13, 1

    End If



    //批量改名字，按键7
    If 按键码 = 103 Then 
        //小键盘7为改名字，输入后先弹出对话框，输入字段，再批量修改
        //包括组也修改了
        Rem 输入字符2
        zifu=InputBox("请输入批量修改组名字")
        If zifu = "" Then 
            Goto 输入字符2
        End If
        MessageBox zifu 
        For i=0 to 9 Step 1
            leftClick 1
            RightClick 1
            Delay 200
            KeyPress "p", 1
            If i = 0 
                SayString zifu
            Else 
                SayString zifu & i
            End If
		
            KeyPress 13, 1
            KeyPress 13, 1
            MoveR 0, 17
        Next
    End If

loop