当我们复制了某些内容之后,会在剪贴板里面留下内容。
如果不小心,就会把内容给粘贴出来,造成资料混乱不好管理。
剪贴板
是内存中一块临时存储区,用来存放各应用软件剪切或复制的信息。如果当时剪贴板中存放的是一幅图像或一段相当篇幅的文本,则占用了相当多的内存,这就可能导致内存不足,所以只要消除剪贴板中的图像或文本,就可能缓解当时内存不足的问题。
下面,就教给你一种方法,清理、删除剪贴板中的内容。
方法如下:这是最简单的办法了:
“开始”→“运行”,打开运行对话框,在里面输入如下内容:
clipbrd
并按下回车键
这样就会打开“剪贴薄查看器”,然后,在此窗口中,找到菜单“编辑”→“删除”。
这样,剪贴板中的内容就被清除了。
知识扩展:
如果你经常使用VBA,可通过如下清除剪贴板的内容
'声明API函数
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'定义鼠标消息
Private Const WM_LBUTTONDOWN As Long = &H201&
Private Const WM_LBUTTONUP As Long = &H202&
Sub ClearClipBoard()
Dim hWord, hClipBoard, hWindow As Long 'Word主窗口、剪贴板、临时窗口句柄
Dim nXY As Long '剪贴板“全部清空”按钮的坐标
Dim strCaption As String 'Word主窗口的标题
Application.ShowClipboard '打开剪贴板
CommandBars("Task Pane").Visible = False '关闭任务窗格
'先获取Word主窗口的标题
If Documents.Count = 0 Then '没有文档打开
strCaption = "Microsoft Word"
Else
strCaption = ActiveWindow.Caption & " - Microsoft Word"
End If
hWord = FindWindowEx(0&, 0&, "OpusApp", strCaption) '获取Word主窗口句柄
hWindow = FindWindowEx(hWord, 0&, "MsoWorkPane", "MsoWorkPane") '获取任务窗格窗口句柄
hClipBoard = FindWindowEx(hWindow, 0&, "bosa_sdm_Microsoft Office Word 11.0", "Collect and Paste 2.0") '获取剪贴板窗口句柄
If hClipBoard = 0 Then '未知原因,没有找到剪贴板的窗口句柄
MsgBox "剪贴板清空失败!"
Exit Sub
End If
nXY = 100 + 10 * 65536 '(x,y)=(100,10),取(92,6)~(168,27)均可
Call PostMessage(hClipBoard, WM_LBUTTONDOWN, 0&, nXY) '模拟鼠标按下
Call PostMessage(hClipBoard, WM_LBUTTONUP, 0&, nXY) '模拟鼠标弹起
End Sub
如果你会使用VBS,就使用如下代码也是可行的。
dim s
set s=createobject("wscript.shell")
s.run "c:\windows\system32\clipbrd.exe"
wscript.sleep 1000
s.appactivate "剪贴簿查看器"
wscript.sleep 100
s.sendkeys "(%e)dy"
wscript.sleep 50
s.sendkeys "(%{F4})"
wscript.quit