我正试图创建一个VBScript,从剪贴板插入一些文本到现有的(和加载的)Word文档中。我尝试过无数成功的方法(包括Selection.Paste),但Word(2013)将不会粘贴。在试图诊断问题的同时,我已经谈到了这个最小的脚本。为什么不会VBScript粘贴? Word 2013
Set objWord = GetObject(, "Word.Application")
objWord.Application.Activate
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.SendKeys "Arggh 1"
objShell.SendKeys "^V"
objShell.SendKeys "Arggh 2"
如果我把剪贴板上一些文字(我有到基本未格式化的文本,我本来开始MATHML但那是另一回事),上面的脚本生成
Arggh 1Arggh 2
与文本留在剪贴板上。如果I然后按Ctrl + V,剪贴板文本将按预期粘贴。
我觉得我失去了一些明显的东西。任何帮助最受欢迎。
你可以显示你的非工作非sendkeys代码? –
说实话,我尝试了几十种组合 - 有些我知道是错的,有些应该是正确的。我最初去SendKeys找到一些可以工作的基线 - 但那也没有! 我试图 objWord.Paste objWord.ActiveDocument.Paste objWord.ActiveDocument.Selection.Paste objWord.Selection.Paste和PasteSpecials的一大堆。没有任何工作后,我尝试了(不太可取的)SendKeys方法。 –
'objWord.Selection.Paste'为我工作。 –