标签：Word VBA
下面介绍在Word中使用VBA操控剪贴板的一些代码，供在某些情形下参考使用。
下面的代码清除剪贴板：
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard
下面的代码获取剪贴板中的文本，并将其赋值给字符串变量：
Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText
下面的代码从字符串变量中获取文本，并将其放置到剪贴板：
Dim MyData As DataObject
Dim strClip As String
strClip = "完美Excel"
Set MyData = New DataObject
MyData.SetText strClip
MyData.PutInClipboard
很简单的一些代码，可能不太常用，所以不会太关注。然而，一旦遇到要使用的情形时，如果了解，就能马上拿来使用。因此，收集在这里备用，也希望能够给有兴趣的朋友提供参考。
注意，在VBA中DataObject对象属于Forms库，因此，要使上述代码能够正常运行，必须满足以下两个条件之一：
1.在你的工程中至少有一个用户窗体。或者
2.在VBE中，单击菜单“工具——引用”，在“引用”对话框中，找到并选中“Microsoft Forms 2.0 Object Library”。
