Word VBA技术：使用VBA操控剪贴板

标签：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”。