如何让按键精灵自动输入文档内的文本

1、打开按键精灵，新建一个空白脚本，这个方法要配合输入法，使用于字数较少的输入。

2、插入按键“N”和“H”。

3、再插入按键“space”。

4、在设置好启动热键和循环次数，就编写完成了。

5、可以用命令直接输入文字，在编写时使用【saystring】语句。

6.例如输入”你好“，在按键精灵中输入【saystring "你好"】“”里就是要输入的文字。

Option Explicit

Dim WshShell

Dim oExcel, oBook, oModule

Dim strRegKey, strCode, x, y

Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象

set WshShell = CreateObject("wscript.Shell")

Set oBook = oExcel.Workbooks.Add '添加工作簿

Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块

strCode = "Private Declare Sub keybd_event Lib ""user32"" (ByVal a As Long, ByVal b As Long, ByVal c As Long, ByVal d As Long)"

oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码

Do

WshShell.SendKeys "nihao"

oExcel.Run "keybd_event",49,0,0,0

WshShell.SendKeys "ma"

oExcel.Run "keybd_event",49,0,0,0

WshShell.SendKeys "{enter}"

WScript.Sleep "3000"

Loop

'关闭 Excel

oExcel.DisplayAlerts = False

oBook.Close

oExcel.Quit

把这段代码保存成vbs格式，打开中文输入法，打开vbs脚本，激活输入框光标，可以看到每隔三秒钟输入“你好吗”三个字，我用的是搜狗输入法，别的输入法可能会输到别的中文字

---