如何使用 VBA(特别是 Word VBA)清除 Microsoft Office 剪贴板?我一次将大量数据复制到剪贴板中,并且不希望过多的数据保留在剪贴板中。
如何使用 VBA(特别是 Word VBA)清除 Microsoft Office 剪贴板?
我一次将大量数据复制到剪贴板中,并且不希望过多的数据保留在剪贴板中。
如果有人像我一样,只是抓取代码并用编程锤敲打它,直到它满足您的需求:上述解决方案已更新为现代时代,并 ptrsafe
已 longptr
添加。万一,就像我一样,您不知道它们是什么意思,而且要花很长时间才能弄清楚将它们放在哪里。
Option Explicit
Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As LongPtr
Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr
Public Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr
Public Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
Sub ccc()
Call ClearClipboard
End Sub