文章背景: 得到文本之后,有时需要将内容复制到剪切板,在需要使用时再将其粘贴到合适的位置。
Office版本:Office 365
操作系统:Win10
可以通过以下的VBA代码进行任务的实现:
代码语言:javascript复制Sub CopyToClipboard2()
Dim MyData As Object
Set MyData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
' 要复制的字符串
MyData.SetText "Hello, world!"
' 将文本复制到剪贴板
MyData.PutInClipboard
MsgBox "Done!" & vbNewLine & "可以使用Ctrl V将内容复制到指定位置!"
End Sub
在这个示例中,我们使用了 CreateObject
来创建一个 Clipboard
对象,然后使用 SetText
方法将要复制的字符串设置为剪贴板的文本内容,最后使用 PutInClipboard
方法将内容放入剪贴板。
请注意,不同版本的 Office 可能对 Clipboard
对象的支持略有不同,所以在某些情况下,您可能需要根据您的 Office 版本进行适当的调整。但大多数情况下,上面的代码应该能够工作。
参考资料:
[1] Open AI解答