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

#WPS加载项 #复制粘贴

简简单单﹌

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

然后粘贴的代码是：

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

myRange.Paste()

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

反馈直通车

2024-09-20 05:16:41 江苏省

2 +1

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

2024-09-25 07:08:37 · 广东省

厚积、薄发

同问

2024-09-20 07:42:46 · 山东省