省時間！定製Office右鍵菜單 Word/Excel 通用

前記▼

2018年筆者轉換了新工作地點及新的工作方向，由原本預算招標崗轉做細分的招標崗，工作軟體的重點也由Excel為主，改為Word為主，為了工作日能節省點時間食塊餅喝杯水吹一下水，還是值得花點時間編個外掛，特別是為了用上「不常用但用起來卻要花很多時間的功能」,本篇就教大家怎麼定製右鍵菜單省時間；

自定義右鍵菜單軟體▼

這次就以上圖新增兩個子菜單共11個小過程為例子，分享一下這個右鍵菜單的過程；

首先，我們要新建一個word文檔，另存為*.dotm（啟動宏的模板）/Excel為*.xlam，然後關閉word;

然後，準備軟體CustomUIEditor▼

這軟體就是長上面的樣，而右鍵新增的菜單項就是通過上圖一行行紅色又藍色的XML代碼編出來的。但有點要命的是，這個Microsoft官方出的軟體相當的不好用但又不得不用，代碼輸入非常容易回到解放前。So,建議還是在其它記事本軟體寫完代碼,再把代碼Copy到代碼框。請注意，CustomUIEditor軟體比較難找，而且找到的版本有可能是不支持中文的舊版本，所以，大家最好在訂閱號回復關鍵字「customui」來獲取這個軟體。

在安裝完這個軟體之後，我們就可以在軟體中打開之前存在*.Dotm格式的文件

菜單欄點擊 Insert→Office 2010 CustomUI part,（如果還在用Office2007的小夥伴可以去升級了，自定義右鍵菜單只適用於Office2010及以後的版本）

然後在左側對象樹就會出現customUI14.xml的文件，點擊選中，於右側代碼框粘貼代碼（見下方）

右鍵菜單XML語句分析

*.下文橙字為代碼，黑字為解釋

"上下文菜單標籤，MS官方描述右鍵菜單為上下文菜單，大家在搜索相關資料請搜索 上下文菜單；

"加入分隔線

"加入子菜單,id：定義名，與其它id不能重複，Label：顯示的名字」，imageMso：Office內置的圖標id值；inserBeforeMso：如中文直譯，在某個Mso之前插入，「FontDialog」為原右鍵菜單中的「文字」項目。值得一提的是，如果想子菜單分組出現在某個原右鍵菜單的後面可以用insertAfterMso

"子分組菜單的第一項，id、label及imageMso上文已介紹，onAction：文檔中VBA引用Sub過程的名稱

"第一個子菜單代碼結束符

"新建另一個子菜單

"第二個子菜單代碼結束符

保存customUI→VBA代碼簡單解釋▼

將上方橙色的代碼Copy到CustomUI Editor裡面，保存文檔，然後再重新打開那個dotm文件，就會出現一開頭下文那UI。到這裡Word和Excel的自義右鍵菜單的製作並沒有很大的差異，Excel可以通過相同的方法建立自定義右鍵菜單，但由於Excel的代碼要比較複雜，所以下文還是以Word為平台分析代碼；

新建完界面後，就需要寫XML提及過程的代碼，還是老樣子，我們在WORD里打開VBA界面，新建模塊，在模塊里輸代碼。第一次看這個欄目，不知道或者忘記怎麼操作的請點擊Excel的F1引擎（一）：自定義函數看看，大同小異。不過這次我們不再需要Function，而且是需要自動化過程的Sub，

下文就以上面提到的"下一頁橫向" 和"發布PDF"過程為例用代碼解釋一下

*.下文橙字為代碼，黑字為解釋

Sub 下一頁橫向(control As IRibbonControl)

"Sub過程，（）內填寫的是傳遞參數，control as IRibbonControl代表的是受IRibbon生成的控制項控制，上文用CustomUI定義生成的子菜單屬於這范籌；

Selection.InsertBreak Type:=wdSectionBreakNextPage

"當前游標處插入分節符，系列生成下一頁；

If Selection.PageSetup.Orientation = wdOrientPortrait Then

Selection.PageSetup.Orientation = wdOrientLandscape

Else

Selection.PageSetup.Orientation = wdOrientPortrait

End If

"如果文檔設置的頁面為豎向，這一頁面改為橫向，否則改為豎向

End Sub

Sub 發布PDF(control As IRibbonControl)

CommandBars.ExecuteMso "FileSaveAsPdfOrXps"

"直接引用命令菜單的「發布PDF/XPS」，此代碼Excel通用

End Sub

其它菜單里的功能解釋起來很困難，這裡就不廢篇幅了，但實際操作還蠻簡單，大家可以通過Word的錄製宏功能錄製代碼，再在模塊中將過程Sub1至Subn改為customUI定義的名稱,（）加入control as IRibbonControl,並將相應代碼剪到之前建立的模塊當中，保存，到下一步。

載入菜單▼

當保存文件之後，自定義的菜單暫時只能在該*.dotm文件里出現，這時我們就需要點擊「開發工具」的標籤頁，點擊Word載入項▼

當出現下面的對話框，我們點擊添加，將之前存檔的*.dotm添加到「共用模板及載入項」，確認，之前努力編寫的菜單就可以與其它word文檔共用了是不是很牛逼，小男生省時間撩妹，小女生省時間勾仔，為人父母的省時間照顧小孩，有沒有，有沒有！！！！！

一直偷學武功，到現在打死不訂閱那群人，祝你們月月條條底褲都穿洞

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！