wc726842270

这应该是浏览器的原因吧，用WORD试一下吧
Word 版，读剪贴板：

Dim objWord


Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set wdDoc = objWord.Documents.Add

objWord.Selection.PasteAndFormat (wdFormatPlainText)
objWord.Selection.WholeStory
strBuf = objWord.Selection.Text

objWord.Quit False
Set objWord = Nothing

WScript.Echo strBuf
复制代码

　　Word 版，写剪贴板：

Dim objWord


Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
Set wdDoc = objWord.Documents.Add

objWord.Selection.Text = "UMU WSH 30_SetClipData_Word.vbs"
objWord.Selection.Copy

objWord.Quit False
Set objWord = Nothing
复制代码

原文：http://hi.baidu.com/umu618/blog/ ... 113bddb7fd487e.html