本帖最后由 wc726842270 于 2011-10-26 19:52 编辑
这应该是浏览器的原因吧,用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 |