VBA程序中如何操作剪贴板
编号：QA000628
建立日期: 1999年3月12日 最后修改日期：1999年3月12日
所属类别：
锺文:
本人在编写VBA程序时（在WORD中），想将剪贴板(clipboard)中的内容（文本）输出到一变量，并付与剪贴板一新值，可用Settext和clipboard.Gettext()都是显示“缺少对象”的错误,就连clipboard.clear也是此信息，实在是不知头绪，书上明明说是用这些函数的。希望您在方便时指点。
回答:
VBA和VB是有区别的，你肯定是参照的VB的书，而不是VBA的。你可以用下面的函数将剪贴板中的文本输出到一变量。DataObject也支持PutInClipboard方法。
Function GetClipBoardText()
Dim MyData As DataObject
Set MyData = New DataObject
' If the clipboard data is text...
If MyData.GetFormat(1) = True Then
' ...get the text from the clipboard...
MyData.GetFromClipboard
' ...and return it to the function.
GetClipBoardText = MyData.GetText (1)
End If
End Function
此问题由李海回答。
| |
|
|
| |
|
|
