vb SendKeys "^v", True无法在richtextbox中添加图片

多了不必要的参数，最后一句改成：SendKeys "^v"

SendKeys "^v"

是对的，可能发送按键之前没有激活要接收按键的应用程序，没有把焦点移到要输入的地方。

WSH，是“Windows Scripting Host”的缩略形式，其通用的中文译名为“Windows 脚本宿主”。对于这个较为抽象的名词，我们可以先作这样一个笼统的理解：它是内嵌于 Windows 操作系统中的脚本语言工作环境。

Range("D4").Select Selection.Copy上面两句COPY时会将回车符也COPY进去,所以全选时会选中换行符.你将D4的值赋给变量,SENDKEYS 变量就可以了.Sub 复制()D4 = Range("D4").Valuenp = Shell("NOTEPAD.EXE", vbNormalFocus)AppActivate npSendKeys D4, TrueSendKeys "^a", TrueSendKeys "^...

Set MyExcel = Workbooks("D:\你需要导出表的绝对路径")Dim MyWord As Object '定义变量 Dim MyArray '定义数组变量 Dim MyString as String MyArray = MyExcel.Sheets("工作表名称").Range("A2:E2").Value '需要从EXCEL中导出的内容放到数组中，因为操作数组比直接调用RANGE要快得多。Set ...