samsinn

试试我的方法，利用剪切板粘贴

str="\r\n" '这是换行符
strkey="1好不好"&str
strkey=strkey &"2-Nice"

Set mShell = CreateObject("wscript.Shell")
mshell.run "notepad",1
mshell.run "mshta ""javascript:clipboardData.setData('text','"&strkey&"');close();""",0
wsh.Sleep 1000
mShell.sendkeys "^v",true
复制代码