请问大佬们,粘贴时如何清空剪贴板,如果从其它地方复制了一手怎么办?

请问大佬们,粘贴时如何清空剪贴板,如果从其它地方复制了一手怎么办?

我用的点击按钮Application.Selection.Copy()复制,

然后粘贴的代码是:

let myRange = targetDoc.Range(targetDoc.Content.End - 1, targetDoc.Content.End - 1)

myRange.Paste()

问题是,如果没有点击按钮复制,直接粘贴,有可能会把刚刚从别的地方复制的东西粘贴进来。(有可能把和别人的聊天记录或者刚刚复制的代码粘贴过来)。没有找到清空剪贴板的api,特地来求助一下大佬们

江苏省
浏览 159
收藏
2
分享
2 +1
2
+1
全部评论 2
 
WPS社区小助理
WPS社区小助理

@金山办公

您好,可通过以下代码进行清空剪贴板。 首先,需要声明API函数: Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Declare Function EmptyClipboard Lib "user32" () As Long Declare Function CloseClipboard Lib "user32" () As Long 然后,可以创建一个过程来调用这些函数:注意,这段代码需要在标准模块中使用,而不是在VBA编辑器的Immediate窗口中运行。 Sub ClearClipboard() Dim ret As Long ret = OpenClipboard(0&) If ret Then EmptyClipboard CloseClipboard End If End Sub
· 广东省
回复
 
厚积、薄发
同问
· 山东省
回复