剪切板
Word怎么打开剪切板?
Word怎么打开剪切板?ctrl+c,ctrl+v,ctrl+x,ctrl+v,记住这句顺口熘,可以在职场打横走,偶尔调皮一下也很开心!不过相信大家都知道这代表什么意思,没错就是复制粘贴,剪切粘贴,这是办公室日常工作用得最多的快捷键没有之一,但是很多小伙伴不知道原来还可以这样玩,快来跟小编看看吧!一、快捷键打开剪贴板通常情况下,我们都是通过菜单栏下拉按钮,查看已复制到剪贴板的所有项目,经常操作的话,很不方便,其实只要选中文本后按两次ctrl+c,就可以快速打开剪贴板!但是有的小伙伴说我把键盘都敲坏了,都没见打开呀!首先需要把剪贴板选项下的:按ctrl+c两次后显示office剪贴版的勾选上,选好后,再试一次就可以啦!二、快速批量粘贴在工作中会经常遇到批量剪切粘贴工作,只要这样做,咻的一下就搞掂,直接按ctrl+fn+f3剪切——依次选中其他内容,同样的操作——然后在粘贴的地方,按ctrl+shift+fn+f3,咻的一下就粘贴成功了(ps:小编之前介绍过笔记本电脑按f1-f12键需要加按fn,后面就不再强调了哈);三、你以为只能粘贴最后一次复制的内容,那你错了!在工作中,大部分人都以为,word只能粘贴最后一次复制的内容,前面复制过的内容不能再次粘贴,那只能说你还不够深入了解word,不是所有的你以为都是正确的噢,这样的观念要改。
如何清空 Office 的剪切板
关于清空Office剪切板的方法问题,网络上一直也有不少的说,总结下来一般有以下几种。 1、认为使用 Application.CutCopyMode = False 就可以了。其实不然,这只是取消剪切或复制模式并清除移动边框。并没有真正的清除剪切板上的数据。数据还是存在的。 2、使用API函数程序,代码如下:Private Declare Function apiOpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long Private Declare Function apiEmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long Private Declare Function apiCloseClipboard Lib "user32" Alias "CloseClipboard" () As Long Sub myClr() apiOpenClipboard (0)'打开剪切板 apiEmptyClipboard'清空剪切板 apiCloseClipboard'关闭剪切板 End Sub但是你会发现使用这段程序也不会清空Office的剪切板,这是因为Windows不会参与剪切板私有数据的管理。3、前一段时间我看到一段代码,是用来清空Office的剪切板的,代码如下:'--------------------------------------------------------------------------------------- ' Module : Module1 ' Purpose : Clear Windows and Office Clipboards '--------------------------------------------------------------------------------------- Private Declare Function apiOpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long Private Declare Function apiEmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long Private Declare Function apiCloseClipboard Lib "user32" Alias "CloseClipboard" () As Long Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private Declare Function FindWindowEx Lib "user32.dll" _ 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.dll" 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&' Creates a long variable out of two words Private Function MakeLong(ByVal nLoWord As Integer, ByVal nHiWord As Integer) As Long MakeLong = nHiWord * 65536 + nLoWord End FunctionSub ClearOfficeClipboard() Dim hMain&, hExcel2&, hClip&, hWindow&, hParent& Dim lParameter&, sTask$ sTask = Application.CommandBars("Task Pane").NameLocal ' Handle for XLMAIN hMain = Application.hwnd ' Find the OfficeClipboard Window ' 2 methods as we're not sure if it's visible ' ONCE it has been made visible the windowclass is created ' and remains loaded for the duration of the instance Do hExcel2 = FindWindowEx(hMain, hExcel2, "EXCEL2", vbNullString) hParent = hExcel2: hWindow = 0 hWindow = FindWindowEx(hParent, hWindow, "MsoCommandBar", sTask) If hWindow Then hParent = hWindow: hWindow = 0 hWindow = FindWindowEx(hParent, hWindow, "MsoWorkPane", vbNullString) If hWindow Then hParent = hWindow: hWindow = 0 hClip = FindWindowEx(hParent, hWindow, "bosa_sdm_XL9", vbNullString) If hClip > 0 Then Exit Do End If End If End If Loop While hExcel2 > 0 If hClip = 0 Then hParent = hMain: hWindow = 0 hWindow = FindWindowEx(hParent, hWindow, "MsoWorkPane", vbNullString) If hWindow Then hParent = hWindow: hWindow = 0 hClip = FindWindowEx(hParent, hWindow, "bosa_sdm_XL9", vbNullString) End If End If If hClip = 0 Then ClipWindowForce hParent = hMain: hWindow = 0 hWindow = FindWindowEx(hParent, hWindow, "MsoWorkPane", vbNullString) If hWindow Then hParent = hWindow: hWindow = 0 hClip = FindWindowEx(hParent, hWindow, "bosa_sdm_XL9", vbNullString) End If End If If hClip = 0 Then MsgBox "Cant find Clipboard window" Exit Sub End If lParameter = MakeLong(120, 18) Call PostMessage(hClip, WM_LBUTTONDOWN, 0&, lParameter) Call PostMessage(hClip, WM_LBUTTONUP, 0&, lParameter) Sleep 100 DoEvents End SubSub ClipWindowForce() Dim octl With Application.CommandBars("Task Pane") If Not .Visible Then Application.ScreenUpdating = False Set octl = Application.CommandBars(1).FindControl(ID:=809, recursive:=True) If Not octl Is Nothing Then octl.Execute .Visible = False Application.ScreenUpdating = True End If End With End Sub' Main program to clear Windows and Office Clipboards Sub myClr() Call ClearOfficeClipboard apiOpenClipboard (0) apiEmptyClipboard apiCloseClipboard Application.CutCopyMode = False End Sub代码的基本原理是找到剪切板窗体的句柄,然后向窗体发送一个在“全部清空”这个按钮的位置点击鼠标左键的消息,以此来清空剪切板。一开始我对这段代码进行了检测,发现他很有效果,真的可以清空Office的剪切板。并把它转载到了我的博客。但是后来我发现当剪切板的位置变为横放或者Office剪切板的大小发生变化导致“全部清空”的位置发生变化更有可能导致“全部清空”按钮不可见时,此代码就不能清空Office的剪切板(前两种情况可以用判断一下Office大小及位置的方法来发送消息来解决,但Office剪切板"全部清空"按钮不可见时就不好弄了)。可见以上的方法都不完美,不能真正的清空Office剪切板。
WPS word如何利用剪切板快速输入
我们在利用WPS文字和Word软件进行日常办公时,经常需要用到Ctrl+X的快捷键来进行剪切文本,但是我们通常也知道剪切多个文本时,单击复制只复制最后一个剪切的文本,并且不能重复复制,今天我们就来教大家,如何利用剪切板,快速输入多个数据。 利用剪切板快速输入首先我们看到如下表格,数据都在下方,想要把数据批量的复制到表格当中,我们可以按住Ctrl+X挨个剪切数据。然后打开剪切板,也就是开始菜单栏下的格式刷下面的小箭头,很多人都不知道剪切板在哪个位置,如下图所示:打开剪切板以后,我们发现我们刚才剪切的四组数据全部显示在剪贴板当中,这时我们只需要单击姓名后的表格,然后再单击剪切板中的内容就可以快速输入进去了。我们看到表格就已经被完成了,那么利用WPS文字和Word软件剪切板快速输入的方法,是不是很简单呢?你学会了吗?