2. 程式人生 > >關於清空Office剪下板的方法

關於清空Office剪下板的方法

阿新 • • 發佈：2019-01-07
OptionExplicit'|---------------------------------------------------------------------------------------|
'|Module     : ClearOfficeClipboard                                                      |
'|DateTime   : 2008-4-24                                                                 |
'|Author     : wangmingbai , http://www.officefans.net/cdb/forumdisplay.php?fid=1        |

'|Purpose    : Clear Windows and Office Clipboards                                       |
'|---------------------------------------------------------------------------------------|
'|--------------------------------------------------|
'|--------------宣告API函式-------------------------|
'|--------------------------------------------------|

'--------------查詢指定視窗的子視窗---------------PrivateDeclareFunction FindWindowEx _
    Lib"user32.dll" _
    Alias"FindWindowExA" ( _
        ByVal hWnd1 AsLong, _
        ByVal hWnd2 AsLong, ByVal lpsz1 AsString, _
        ByVal lpsz2 AsString) _
AsLong'--------------從視窗返回Accessible物件---------------PrivateDeclare
Function AccessibleObjectFromWindow _
    Lib"oleacc" ( _
        ByVal hwnd AsLong, _
        ByVal dwId AsLong, _
        riid As tGUID, _
        ppvObject AsObject) _
AsLong'--------------取得Accessible的子物件---------------PrivateDeclareFunction AccessibleChildren _
    Lib"oleacc" ( _
        ByVal paccContainer As IAccessible, _
        ByVal iChildStart AsLong, _
        ByVal cChildren AsLong, _
        rgvarChildren As Variant, _
        pcObtained AsLong) _
AsLong'--------------鎖定指定視窗，禁止它更新------------PrivateDeclareFunction LockWindowUpdate _
    Lib"user32" ( _
        ByVal hwndLock AsLong) _
AsLong'|--------------------------------------------------|
'|-----------------宣告型別-------------------------|
'|--------------------------------------------------|Private Type tGUID
    lData1            AsLong
    nData2            AsInteger
    nData3            AsInteger
    abytData4(0To7) AsByteEnd Type
'|--------------------------------------------------|
'|-----------------定義常量-------------------------|
'|--------------------------------------------------|PrivateConst ROLE_PUSHBUTTON =&H2B&'|*************************************************************|
'|**********************主程式，用於清除Office剪下板***********|
'|*************************************************************|Sub ClearOfficeClipboard()

    '|--------------------------------------------------|'|----------------以下部分定義變數------------------|'|--------------------------------------------------|Dim hMain        AsLongDim hExcel2      AsLongDim hClip        AsLongDim hWindow      AsLongDim hParent      AsLongDim lParameter   AsLongDim octl         As CommandBarControl
    Dim oIA          As IAccessible
    Dim oNewIA       As IAccessible
    Dim tg           As tGUID
    Dim lReturn      AsLongDim lStart       AsLongDim avKids()     As Variant
    Dim avMoreKids() As Variant
    Dim lHowMany     AsLongDim lGotHowMany  AsLongDim bClip        AsBooleanDim i            AsLongDim hVersion     AsLong'|--------------------------------------------------|'|-----------以下部分用於取得剪下板視窗控制代碼---------|'|--------------------------------------------------|'/--取得Office程式的主窗體控制代碼    hMain = Application.hwnd

    '/取得Excel的版本    hVersion = Application.Version

    '/假如Excel版本是2000及其以下版本If hVersion <10ThenMsgBox"此程式不支援Excel2000及其以下版本": Exit Sub'/假如Excel版本為2007版且剪下板不可見時使其可見If hVersion =12Then
        bClip =TrueWith Application.CommandBars("Office Clipboard")
            IfNot .Visible Then
                LockWindowUpdate hMain
                bClip =FalseSet octl = Application.CommandBars(1).FindControl(ID:=809, recursive:=True)
                IfNot octl IsNothingThen octl.Execute
            EndIfEndWithEndIf'/用於取得剪下板視窗的控制代碼（剪下板視窗可見時）Do
         hExcel2 = FindWindowEx(hMain, hExcel2, "EXCEL2", vbNullString)
         hParent = hExcel2: hWindow =0
         hWindow = FindWindowEx(hParent, hWindow, "MsoCommandBar", vbNullString)
        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", "Collect and Paste 2.0")
                If hClip >0ThenExitDoEndIfEndIfEndIfLoopWhile hExcel2 >0'/取得剪下板視窗的控制代碼（剪下板視窗不可見時,2003及XP版本呼叫）If hClip =0Then
         hParent = hMain: hWindow =0
         hWindow = FindWindowEx(hParent, hWindow, "MsoWorkPane", vbNullString)
        If hWindow Then
             hParent = hWindow: hWindow =0
             hClip = FindWindowEx(hParent, hWindow, "bosa_sdm_XL9", "Collect and Paste 2.0")
        EndIfEndIf'/取得剪下板視窗的控制代碼（剪下板視窗未初始化,2003及XP版本呼叫）If hClip =0ThenWith Application.CommandBars("Task Pane")
            IfNot .Visible Then
                LockWindowUpdate hMain
                Set octl = Application.CommandBars(1).FindControl(ID:=809, recursive:=True)
                IfNot octl IsNothingThen octl.Execute
                .Visible =False
                LockWindowUpdate 0EndIfEndWith
        hParent = hMain: hWindow =0
        hWindow = FindWindowEx(hParent, hWindow, "MsoWorkPane", vbNullString)
        If hWindow Then
             hParent = hWindow: hWindow =0
             hClip = FindWindowEx(hParent, hWindow, "bosa_sdm_XL9", "Collect and Paste 2.0")
        EndIfEndIf'/即如以上都未找到剪下板視窗，顯示錯誤資訊If hClip =0ThenMsgBox"剪下板視窗未找到"Exit SubEndIf'|--------------------------------------------------|'|------以下部分用於取得"全部清空"按鈕並執行它------|'|--------------------------------------------------|'以下部分程式碼參考了《Advanced Microsoft Visual Basic 6.0 Second Edition》第16章Microsoft Active Accessibility部分'定義IAccessible物件的GUID{618736E0-3C3D-11CF-810C-00AA00389B71}With tg
        .lData1 =&H618736E0
        .nData2 =&H3C3D
        .nData3 =&H11CF
        .abytData4(0) =&H81
        .abytData4(1) =&HC
        .abytData4(2) =&H0
        .abytData4(3) =&HAA
        .abytData4(4) =&H0
        .abytData4(5) =&H38
        .abytData4(6) =&H9B
        .abytData4(7) =&H71
    EndWith'/從窗體返回Accessible物件    lReturn = AccessibleObjectFromWindow(hClip, 0, tg, oIA)
    lStart =0'/取得Accessible的子物件數量    lHowMany = oIA.accChildCount
    ReDim avKids(lHowMany -1) As Variant
    lGotHowMany =0'/返回Accessible的子物件    lReturn = AccessibleChildren(oIA, lStart, lHowMany, avKids(0), lGotHowMany)
    For i =0To lGotHowMany -1If IsObject(avKids(i)) =TrueThenIf avKids(i).accName ="Collect and Paste 2.0"ThenSet oNewIA = avKids(i)
                lHowMany = oNewIA.accChildCount
                ExitForEndIfEndIfNext i
    ReDim avMoreKids(lHowMany -1) As Variant
    lReturn = AccessibleChildren(oNewIA, lStart, lHowMany, avMoreKids(0), lGotHowMany)
    '取得"全部清空"按鈕並執行它For i =0To lHowMany -1If IsObject(avMoreKids(i)) =FalseThenIf oNewIA.accName(avMoreKids(i)) ="全部清空"And oNewIA.accRole(avMoreKids(i)) = ROLE_PUSHBUTTON Then
                oNewIA.accDoDefaultAction (avMoreKids(i))
                ExitForEndIfEndIfNext i
    
    '/如果原來Excel版本為12且剪下板不可見則恢復它If hVersion =12And bClip =FalseThen Application.CommandBars("Office Clipboard").Visible = bClip: LockWindowUpdate 0End Sub

相關推薦

關於清空Office剪下板的方法

OptionExplicit'|---------------------------------------------------------------------------------------|'|Module     : ClearOfficeClipboard                

虛擬機器與主機之間共享檔案和剪下板的方法

VMware tools是虛擬機器中自帶的一款超級增強工具，這個工具可以使我們使用虛擬機器更加方便，比如說安裝VMware tools之後，我們在虛擬機器和主機之間傳輸檔案可以直接通過拖拽就可完成，又比如說，我們的滑鼠可以在虛擬機器和主機之間自由移動，還可以實現剪下板共享。接下來，介紹一下如何安裝V

個人js學習細節- 實現點選按鈕複製文字框中文字到剪下板中的方法

主要程式碼： <textarea name="text" id="text" cols="30" rows="10"></textarea> <button onclick="myCopy()">點選複製文字框內的內容</button><br

一段js實現複製文字內容到剪下板（該方法相容所有瀏覽器~）

function copyUrl2() { var Url2=document.getElementById("biao1").innerText; var oInput = document.createElement('input'); oInpu

linux下清空連線跟蹤表的方法

做linux下iptables規則，特別是nat規則時，有時候增加的規則並沒有立刻生效，其中原因多半是配置的規則已經連線跟蹤表 裡了，這時候需要手動清空一下連線表，linux提供的連線表操作庫比較複雜，我寫了一個簡單的清空跟蹤表的方法。 #include <stdio

js刪除數組元素、清空數組的簡單方法

clas ray 元素 方法 tro class 刪除 blog 索引 一、清空數組 var ary = [1,2,3,4]; ary.splice(0,ary.length);//清空數組 console.log(ary); // 輸出 []，空數組，即被清

Android GreenDao清空數據庫的方法

.sql mas 防止 @override oncreate androi turn tab tee 最近在做項目的時候，為了方便測試人員測試，在應用中加入正式庫和測試庫切換的功能。為了防止正式庫和測試庫切換帶來的數據沖突，切換的時候必須把當前的數據庫清空。代碼如下：

C#實戰小技巧（八）：將剪下板中的內容儲存為圖片

進行C#開發時，可以將複製到剪下板中的內容轉為HTML檔案，再將HTML頁面轉為圖片進行儲存，示例效果如下。 被複制的Excel表格： 生成的圖片： 實現上述功能的主要程式碼如下，能夠將從Word、Excel、網頁等地方複製的內容匯出，並儲存為圖片。 程式碼：

vim在系統剪下板的複製與貼上

1.首先，檢視vim版本是否支援clipboard vim --version | grep "clipboard" clipboard前面有一個小小的減號，說明不支援。 2.如果不支援的話，需要安裝圖形化介面的vim，或者重新編譯vim sudo apt-get install vim-gnome

【Inline Hook應用篇】限制剪下板（針對檔案型別）

限制剪下板，主要是限制不允許貼上。我們對這兩個系統API進行掛鉤： GetClipboardData和OleGetClipboard //!<限制剪下板 InitHook("user32.dll", "GetClipboardData", (DWORD)hook

複製到剪下板外掛clipboard.js原始碼解析

clipboard.js 是一個小型的複製到剪下板外掛，只有3kb，非flash 前言 公司專案有用到clipboard.js，由於好奇心順手點開了原始碼看看其究竟是如何實現的，本以為是九曲十八彎錯綜複雜，其實還是挺容易看懂的，所以就分享下讀後感哈哈。 本篇讀後感分為四部分，分別為前言、解析、

Android 剪下板 ClipboardManager 的簡單解析

其實android的剪下板使用不算複雜 而且一般的應用需求不會太複雜，只要簡單的應用即可 一般都是點選事件時將某段文字複製到剪下板中 Android中的剪下板是使用ClipboardManager來管理的 獲取這個物件的方法是 Context.getSystemServi

[shell]輸出內容到剪下板

commandline和GUI下的clipboard的互動Mac下echo $PATH | pbcopy，copy to clipboardecho "$(pbpaste -Prefer text)"，copy from clipboard Linux下，首先需要安裝xselecho $PATH | xse

VMware安裝kali liunx2.0實現與物理機共享檔案及剪下板

如果用vmware裝Kali2.0，並且通過選單欄裡的安裝vmware-tools選項安裝vmware tools的話，有時是不能實現vmware tools的各項功能，包括拖動檔案共享的； 原因是因為vmware tools的更新速度沒有跟上Kali2.0的更新速度，因此通過選單欄安

【Html】Clipboard.js 實現點選複製，剪下板操作

可以使用cdn 或者直接下載 設定好引用路徑(百度雲下載) <script type="text/javascript" src="./dist/clipboard.min.js"></script> html <input type

Vue中解決陣列在被清空的情況下，頁面仍會存在快取資料的問題

一，情況描述 1.1 點選完成按鈕 1.2 發現該資料沒有被清空 二，問題所在 2.1 查詢出來的陣列為null 由於使用父子件傳輸的方式進行傳遞資料，因為父元件從介面獲取資料的時候，當獲取到的資料為空，就會變成null。然後將這個

命令列如何 copy 檔案內容到剪下板（clipboard）？

如果你安裝了 npm，可以是使用 clipboard-cli 。安裝方法： $ sudo npm install -g clipboard-cli 拷貝整個檔案的內容到剪下板： $ cat FILENAME | clipboard 輸出剪下板內容： $ clipb

clipboard.js複製文字到剪下板

<a title="複製連結地址" id="copyId" data-clipboard-text="${siteUrl}/subject/view.jhtml?id=${subject.id}" ></a> <script type="text/javasc

利用剪下板JS API優化輸入框的貼上體驗

相容性 直接複製記錄下 /** @description 表單輸入框貼上體驗優化，出處https://www.zhangxinxu.com/wordpress/?p=8003 @author zhangxinxu */ // 遍歷所有的輸入框 [].slice.call(do

用HBuilder和MUI實現複製連結到手機剪下板

html程式碼如下： <input type="text" name="" id="link" value="https://blog.csdn.net/jiaonizuoren"/> <div class="mui-btn mui-btn-primary" type="b