WODR宏與自動圖文集.ppt

2020 1 30 1 一 Word的宏二 自動圖文集三 綜合應(yīng)用實(shí)例 Word宏與自動圖文集 2020 1 30 第04講宏與自動圖文集 2 一 Word的宏 在你使用Word編輯文檔時 如果你希望讓W(xué)ord自動完成某些操作 可以使用Word提供的自動化工具 Word宏 比如 在一段時間內(nèi) 你可能需要使用Word多次編輯同一篇文章 你可能希望一經(jīng)啟動Word就自動打開該篇文檔 而且再次打開該文檔時 非常希望Word能夠自動將插入點(diǎn)移動到上次關(guān)閉該文檔時插入點(diǎn)所在的位置 這時 你盡管請Word自動宏來幫忙好了 2020 1 30 第04講宏與自動圖文集 3 1 什么是Word宏 如果需要在Word中反復(fù)進(jìn)行某項工作 就可以考慮利用宏來自動完成這項工作 Word中的宏是一系列組合在一起的Word命令和指令 它們形成了一個命令 以實(shí)現(xiàn)任務(wù)執(zhí)行的自動化 你可以創(chuàng)建并執(zhí)行宏 宏實(shí)際上就是若干條自定義的命令VBA 以替代人工進(jìn)行的一系列費(fèi)時而單調(diào)的重復(fù)性Word操作 自動完成所需任務(wù) 2020 1 30 第04講宏與自動圖文集 4 在默認(rèn)情況下 Word將宏存儲在Normal模板內(nèi) 這樣每個Word文檔都可以使用它 如果需在單個文檔中使用宏 則可以將宏存儲在該文檔中 2020 1 30 第04講宏與自動圖文集 5 2 Word提供的自動宏 在創(chuàng)建宏時 通過為一個宏賦予某個特殊的名稱 就可以在執(zhí)行某項操作 如啟動Word或打開一個文檔 時自動運(yùn)行它 該類宏被稱為自動宏 Word提供的自動宏及其運(yùn)行條件見下表1 與其他宏一樣 自動宏也可以保存于Normal模板 其他模板或文檔之中 但是要讓自動宏自動運(yùn)行 則它必須位于活動文檔的Normal模板中 或活動文檔選用的模板中 2020 1 30 第04講宏與自動圖文集 6 2020 1 30 第04講宏與自動圖文集 7 AutoExec宏是個例外 它只有存儲于Normal模板 通過 模板和加載項 對話框全局加載的模板 或由 Startup 文件夾指定的文件夾中的全局模板中 才可自動運(yùn)行 說明 在命名沖突的情況下 多個自動宏名相同 Word將運(yùn)行上下文中最近的自動宏 2020 1 30 第04講宏與自動圖文集 8 如果不希望運(yùn)行自動宏 這時請按住Shift鍵就可以終止自動宏的運(yùn)行 具體方法 單擊 文件 新建 然后按住Shift鍵 單擊 確定 按鈕 并且在顯示新文檔之前一直按住Shift鍵 如果運(yùn)行一個宏時有可能觸發(fā)自動宏 可用下列指令終止自動宏的運(yùn)行 WordBasic DisableAutoMacros 2020 1 30 第04講宏與自動圖文集 9 3 創(chuàng)建需要的自動宏 在Word提供的五個自動宏中 AutoExec宏會在每次啟動Word時被自動執(zhí)行 所以我們只要賦予該宏打開上次編輯文檔的功能 則可實(shí)現(xiàn)讓W(xué)ord啟動后自動打開最近編輯過的文檔了 創(chuàng)建該AutoExec宏的步驟如下 2020 1 30 第04講宏與自動圖文集 10 1 單擊 工具 宏 錄制新宏 在 宏名 框中鍵入宏的名稱 在此我們鍵入 AutoExec 在 將宏保存在 框中 單擊要用來保存宏的模板或文檔 自然我們應(yīng)選擇 所有文檔 Normal dot 在 說明 框中 鍵入對宏的簡單說明 如圖1 2020 1 30 第04講宏與自動圖文集 11 2020 1 30 第04講宏與自動圖文集 12 2 如果不想將宏指定到工具欄 選單或快捷鍵上 請單擊 確定 按鈕開始錄制宏 如果要將宏指定到工具欄或選單上 請單擊 工具 自定義 命令 選項卡 再單擊 命令 框中正在錄制的宏 并將其拖動到所需的工具欄或選單中 單擊 更改所選內(nèi)容 按鈕 在 命名 框中輸入一個易于記憶的名字 按下回車鍵 按 關(guān)閉 按鈕開始錄制宏 2020 1 30 第04講宏與自動圖文集 13 如果要給宏指定快捷鍵 請單擊 鍵盤 按鈕 然后單擊 命令 框中正在錄制的宏 在 請按新快捷鍵 框中鍵入所需快捷鍵 再單擊 指定 按鈕 按 關(guān)閉 按鈕開始錄制宏 2020 1 30 第04講宏與自動圖文集 14 當(dāng)然對于自動宏來說 加到工具欄或選單中 或者指定快捷鍵并不重要 但對于一般的宏而言卻是提供簡便運(yùn)行方式的好方法 2020 1 30 第04講宏與自動圖文集 15 3 單擊以打開 文件 下拉選單列表 然后在選單中列出的最近使用過的文件列表中 單擊第一個文件 如圖2 如果 文件 選單中未列出最近使用過的文件 請單擊 工具 選項 常規(guī) 列出最近所用文件 復(fù)選框 然后在 個 框中輸入需要在 文件 選單中顯示最近用過的文檔的個數(shù) 單擊 確定 按鈕 2020 1 30 第04講宏與自動圖文集 16 2020 1 30 第04講宏與自動圖文集 17 4 指向 工具 宏 單擊 停止錄制 命令 或者單擊錄制宏工具欄中的 停止錄制 按鈕 2020 1 30 第04講宏與自動圖文集 18 這之后 只要啟動Word 則系統(tǒng)會自動打開上次退出Word時最后編輯的文檔 但插入點(diǎn)并沒有移到上次關(guān)閉該文檔時插入點(diǎn)所在的位置 2020 1 30 第04講宏與自動圖文集 19 我們應(yīng)再創(chuàng)建一個AutoOpen宏 并賦予該宏插入點(diǎn)移到上一編輯處的功能 宏的錄制過程是 重復(fù)上述1 2步驟 不過需要把其中的 AutoExec 改為 AutoOpen 然后按下Shfit F5組合鍵 該組合鍵的作用就是把插入點(diǎn)移到上一編輯位 最后 單擊錄制宏工具欄中的 停止錄制 按鈕 以結(jié)束宏錄制工作 2020 1 30 第04講宏與自動圖文集 20 4 編輯宏 實(shí)際上 如果Word文檔中已存在AutoExec或AutoOpen宏 在不想以新錄制的宏替換原有宏的情況下 我們只需對原有的這兩個宏進(jìn)行編輯 在宏中增加相應(yīng)的指令即可 編輯AutoExec宏的方法是 單擊 工具 宏 在 宏的位置 下拉列表框中 選擇 所有的活動模板和文檔 在 宏名 列表框中 單擊 AutoExec 宏 然后單擊 編輯 按鈕 打開 MicrosoftVisualBasic 編輯窗口 2020 1 30 第04講宏與自動圖文集 21 在 代碼窗口 于Autonew宏中 加入如下指令 RecentFiles 1 Open同理 也可在AutoOpen宏中 加上如下一行指令 Application GoBack單擊 文件 保存Normal 保存對該宏的修改 2020 1 30 第04講宏與自動圖文集 22 5 刪除宏 單擊 工具 宏 在 宏的位置 下拉列表框中 選擇要刪除的宏所在的位置 在 宏名 列表框中 單擊要刪除的宏 然后單擊 刪除 按鈕 系統(tǒng)彈出一個對話框 詢問 是否刪除宏 單擊 是 按鈕 則選中的宏被刪除 2020 1 30 第04講宏與自動圖文集 23 例一 利用宏自動刪除回車符和空行 對于網(wǎng)上的一些資料 直接通過復(fù)制 粘貼到Word文檔中 這時會發(fā)現(xiàn)有很多空格和人工分行符 手工刪除十分麻煩 那么可以通過在Word中錄制宏 通過宏操作 刪除所有空格和人工分行符 并進(jìn)行重新排版 2020 1 30 第04講宏與自動圖文集 24 1 錄制你自己的宏 1 運(yùn)行Word 并新建一個文件 打開 工具 菜單欄 選擇 宏 在二級菜單中選擇 錄制新宏 2 出現(xiàn) 錄制宏 對話框 隨便為宏取個名按 確定 即可 這時會出現(xiàn)一個懸浮的 停止錄 工具 宏錄制就已經(jīng)開始了 3 打開 編輯 菜單欄 選擇 替換 出現(xiàn) 查找和替換 對話框 2020 1 30 第04講宏與自動圖文集 25 4 用鼠標(biāo)在 查找內(nèi)容 欄內(nèi)點(diǎn)一下 再點(diǎn)擊 高級 再按 特殊字符 選擇兩次 手動換行符 在 替換為 欄內(nèi)選 特殊字符 的 段落標(biāo)志 再選全部替換 點(diǎn)擊 確定 在 查找內(nèi)容 欄內(nèi) 選 高級 再按 特殊字符 選擇一次 手動換行符 用鼠標(biāo)在 替換為 欄內(nèi)點(diǎn)一下 刪除里面的全部內(nèi)容 什么都不輸入 再點(diǎn) 全部替換 點(diǎn)擊 確定 先保留段落標(biāo)志 再將段內(nèi)的人工分行符清除 2020 1 30 第04講宏與自動圖文集 26 5 緊接著 用鼠標(biāo)在 查找內(nèi)容 欄內(nèi)點(diǎn)一下 輸入一個空格 用鼠標(biāo)在 替換為 欄中點(diǎn)一下 刪除里面的全部內(nèi)容 什么都不輸入 再點(diǎn)擊 全部替換 點(diǎn)擊 確定 刪除所有的空格 2020 1 30 第04講宏與自動圖文集 27 6 關(guān)閉 替換 對話框 在 編輯 菜單欄中選 全選 再在 格式 中選 段落 打開 段落 對話框 在 縮進(jìn)和間距 的 特殊格式 選 首行縮進(jìn) 度量值 為兩個字符 在字體中選 宋體 字號中選 小四號字 這一步驟是設(shè)置字體 字號和進(jìn)行排版 7 在懸浮的 停止錄 工具條上按 停止 鈕 到此宏錄制的工作結(jié)束 2020 1 30 第04講宏與自動圖文集 28 2 制作自定義快捷按鈕 1 打開 工具 菜單欄 選擇 自定義 出現(xiàn) 自定義 對話框 點(diǎn)擊 命令 選項 在 類別 欄內(nèi)找到 宏 選中它 然后再選中 命令 欄中剛剛錄制的宏 2 按住鼠標(biāo)左鍵 將它拖放到工具欄上可以放置的位置 松開左鍵 這時在工具欄上就增加了這一剛剛錄制的宏按鈕 2020 1 30 第04講宏與自動圖文集 29 3 不要關(guān)閉 自定義 對話框 在 更改所選內(nèi)容 上選 更改按鈕圖標(biāo) 從出現(xiàn)的圖標(biāo)中選中一個自己喜歡的圖標(biāo) 再在 更改所選內(nèi)容 選 默認(rèn)樣式 關(guān)閉 自定義 對話框 這樣就形成一個和Word工具欄其他快捷按鈕一樣的自定義按鈕 以后只要打開Word就能處理文本 把網(wǎng)上復(fù)制的內(nèi)容粘貼到Word上 然后按下自定義的宏按鈕 全部搞定 2020 1 30 第04講宏與自動圖文集 30 例二 編寫Word宏輕松將全角數(shù)字轉(zhuǎn)換為半角 如果我們需要把Word文檔中的全角數(shù)字全部改為半角數(shù)字 手頭又沒有合適的轉(zhuǎn)換軟件 應(yīng)該怎么做呢 除了用第01講中介紹的方法外 也可以編制一個 宏 來自動處理 1 執(zhí)行 工具 宏 錄制新宏 在 宏名 框中輸入 數(shù)字全角轉(zhuǎn)半角 確定 將出現(xiàn)一個 錄制宏 工具欄 關(guān)閉 2020 1 30 第04講宏與自動圖文集 31 2 執(zhí)行 工具 宏 宏 選擇 數(shù)字全角轉(zhuǎn)半角 單擊 編輯 按鈕 打開vba編輯窗口 錄入代碼結(jié)果如下 Sub數(shù)字全角轉(zhuǎn)半角 使用前需先選中要替換的區(qū)域Dimqjsz bjszAsString iAsInteger 定義qjsz 全角數(shù)字 bjsz 半角數(shù)字 為字符串型 i為整數(shù)型qjsz 2020 1 30 第04講宏與自動圖文集 32 bjsz 0123456789 Fori 1To10 循環(huán)10次WithSelection Find Text Mid qjsz i 1 mid函數(shù) 返回文本字符串中從指定位置開始的特定數(shù)目的字符 每次取一個數(shù)字 Replacement Text Mid bjsz i 1 將用于替換的相應(yīng)位置的半角數(shù)字 Format False 保留替換前的字符格式 2020 1 30 第04講宏與自動圖文集 33 ExecuteReplace wdReplaceAll 用半角數(shù)字替換全角數(shù)字EndWithNextiEndSub3 關(guān)閉vba編輯窗口 選中要改變數(shù)字格式的文字區(qū)域 執(zhí)行 工具 宏 宏 數(shù)字全角轉(zhuǎn)半角 2020 1 30 第04講宏與自動圖文集 34 例三 中英文標(biāo)點(diǎn)互換 目標(biāo) 將文檔中的英文標(biāo)點(diǎn)一次性轉(zhuǎn)換為對應(yīng)的中文標(biāo)點(diǎn) 或者將文檔中的中文標(biāo)點(diǎn)一次性轉(zhuǎn)換為對應(yīng)的英文標(biāo)點(diǎn) 代碼 SubToggleInterpunction 中英文標(biāo)點(diǎn)互換DimChineseInterpunction AsVariant EnglishInterpunction AsVariantDimmyArray1 AsVariant myArray2 AsVariant strFindAsString strRepAsStringDimmsgResultAsVbMsgBoxResult NAsByte 定義一個中文標(biāo)點(diǎn)的數(shù)組對象 2020 1 30 第04講宏與自動圖文集 35 ChineseInterpunction Array 定義一個英文標(biāo)點(diǎn)的數(shù)組對象EnglishInterpunction Array 提示用戶交互的MSGBOX對話框msgResult MsgBox 您想中英標(biāo)點(diǎn)互換嗎 按Y將中文標(biāo)點(diǎn)轉(zhuǎn)為英文標(biāo)點(diǎn) 按N將英文標(biāo)點(diǎn)轉(zhuǎn)為中文標(biāo)點(diǎn) vbYesNoCancel SelectCasemsgResultCasevbCancelExitSub 如果用戶選擇了 取消 按鈕 則退出程序運(yùn)行CasevbYes 如果用戶選擇了 是 則將中文標(biāo)點(diǎn)轉(zhuǎn)換為英文標(biāo)點(diǎn) 2020 1 30 第04講宏與自動圖文集 36 myArray1 ChineseInterpunctionmyArray2 EnglishInterpunctionstrFind strRep 1 CasevbNo 如果用戶選擇了 否 則將英文標(biāo)點(diǎn)轉(zhuǎn)換為中文標(biāo)點(diǎn)myArray1 EnglishInterpunctionmyArray2 ChineseInterpunctionstrFind strRep 1 EndSelectApplication ScreenUpdating False 關(guān)閉屏幕更新ForN 0ToUBound ChineseInterpunction 從數(shù)組的下標(biāo)到上標(biāo)間作一個循環(huán)WithActiveDocument Content Find ClearFormatting 不限定查找格式 MatchWildcards False 不使用通配符 查找相應(yīng)的英文標(biāo)點(diǎn) 替換為對應(yīng)的中文標(biāo)點(diǎn) Executefindtext myArray1 N 2020 1 30 第04講宏與自動圖文集 37 replacewith myArray2 N Replace wdReplaceAllEndWithNextWithActiveDocument Content Find ClearFormatting 不限定查找格式 MatchWildcards True 使用通配符 Executefindtext strFind replacewith strRep Replace wdReplaceAllEndWithApplication ScreenUpdating True 恢復(fù)屏幕更新EndSub例題文件 中英標(biāo)點(diǎn)互換 doc 2020 1 30 第04講宏與自動圖文集 38 例四 讓 ord開口說話 目標(biāo) 當(dāng)每次啟動Word時將自動彈出一窗口 隨機(jī)地顯示一條笑話 Word講笑話 的面板中一共有三個按鈕 點(diǎn)擊 下一條 可繼續(xù)閱讀其它笑話 點(diǎn)擊 關(guān)于 可顯示作者和幫助信息 點(diǎn)擊 關(guān)閉 將關(guān)閉窗口 面板中還有一個復(fù)選框 可以讓用戶自由決定下次啟動Word時是否顯示笑話 2020 1 30 第04講宏與自動圖文集 39 1 建立窗體 窗體是窗口和對話框的統(tǒng)稱 它是Windows應(yīng)用程序的用戶界面的基礎(chǔ)部分 窗體是控件的容器 用來放置文本框 命令按鈕 復(fù)選框等各種控件 1 啟動Word 單擊菜單 工具 宏 VisualBasic編輯器 也可以按快捷鍵 Alt F11 切換到VisualBasic編輯器窗口 2020 1 30 第04講宏與自動圖文集 40 2 單擊菜單 插入 用戶窗體 系統(tǒng)建立一個默認(rèn)樣式的用戶窗體 對窗體可拖動其右 下邊的小方框來可改變大小 本例中根據(jù)功能需要將窗體拖為扁長形狀 3 單擊菜單 視圖 屬性窗口 在屬性窗口中修改窗體的幾個主要屬性值 在屬性列表中選定 名稱 屬性 輸入 Xiaohua 然后選定 Caption 屬性 輸入 開心一刻 現(xiàn)在 我們便能看到一個標(biāo)題為 開心一刻 的窗體了 2020 1 30 第04講宏與自動圖文集 41 提示 窗體中的點(diǎn)狀物稱為 網(wǎng)格 它能在建立控件時起位置參考和智能對齊的作用 單擊菜單 工具 選項 選擇 通用 選項卡 可修改網(wǎng)格的選項和網(wǎng)格塊的大小 建議使用較小的網(wǎng)格設(shè)置 這樣能使控件更靠近窗體邊緣的位置 以達(dá)到美觀的效果 2020 1 30 第04講宏與自動圖文集 42 1 建立控件 建立了窗體就相當(dāng)于打好了地基 下一步的工作就是建立控件 常用控件包括文本框 命令按鈕 標(biāo)簽 復(fù)選框 滾動條等 建立控件的方法很簡單 單擊菜單 視圖 工具箱 調(diào)出工具箱 在 工具箱 中選擇控件類型 然后在窗體上單擊或拖動即可 2020 1 30 第04講宏與自動圖文集 43 2020 1 30 第04講宏與自動圖文集 44 1 創(chuàng)建文本框 在 工具箱 中選擇 AB 樣式的按鈕 在窗體上拖動建立一個文本框 并用鼠標(biāo)調(diào)整其位置 大小 若需精確調(diào)整 也可在屬性窗口中調(diào)整 Height Width 等屬性值 很關(guān)鍵的一點(diǎn)是要將 MultiLine 屬性值設(shè)為 True 它的作用是使文本框能顯示多行文本 2 創(chuàng)建命令按鈕 在 工具箱 中選擇命令按鈕 鼠標(biāo)懸停會顯示 命令按鈕 字樣 在窗體上的文本框右邊拖動建立一個命令按鈕 調(diào)整好大小并修改其 Caption 屬性值為 下一條 接著依次建立 關(guān)閉 關(guān)于 按鈕 2020 1 30 第04講宏與自動圖文集 45 3 創(chuàng)建復(fù)選框 在 工具箱 中選擇復(fù)選框按鈕 在窗體上的文本框下方單擊鼠標(biāo)左鍵 便創(chuàng)建了一個復(fù)選框 修改其 Caption 屬性值為 下次啟動時不顯示 4 創(chuàng)建標(biāo)簽 可在窗體的空余部分以 標(biāo)簽 的形式顯示作者等信息 提示 為了使窗體 控件看起來更美觀 協(xié)調(diào) 可以使用 格式 菜單下的 統(tǒng)一尺寸 命令項使按鈕大小相同 使用 對齊 水平間距 垂直間距 等命令項 使各控件均勻 合理的布置在窗體中 2020 1 30 第04講宏與自動圖文集 46 3 編寫代碼 上面建立的窗體和控件還只是 徒有其表 因?yàn)檫€沒有為各個控件賦予具體的功能 接下來就需要編寫VBA代碼 通過代碼告訴各控件在什么情況下該執(zhí)行什么任務(wù) 編寫代碼的方法是 單擊菜單 視圖 代碼 或按F7鍵 即切換到代碼窗口 可在代碼窗口的聲明部分 頂端空白區(qū)域 開始錄入代碼 2020 1 30 第04講宏與自動圖文集 47 2020 1 30 第04講宏與自動圖文集 48 Sub顯示笑話 Dimline 500 定義笑話文件的最大行數(shù)Open d xiaohua d2 ForInputAs 1 打開笑話文件DoWhileNotEOF 1 N N 1Input 1 line N 讀入笑話內(nèi)容到變量LoopClose 1Randomizenum Int N Rnd 1 產(chǎn)生隨機(jī)數(shù)DoWhileline num 識別并忽略空行num num 1Ifnum N 1Thennum 1LoopTextBox1 Text line num 顯示笑話內(nèi)容EndSub 2020 1 30 第04講宏與自動圖文集 49 Sub結(jié)束 Open d xiaohua d1 ForOutputAs 1IfCheckBox1 Value TrueThen 結(jié)束前檢查是否選中復(fù)選框Print 1 no 若選中則寫入判斷因子 no Else Print 1 yes 未選中則寫入判斷因子 yes EndIfClose 1End 關(guān)閉窗體EndSub 2020 1 30 第04講宏與自動圖文集 50 提示 1 上面的笑話文件d xiaohua d2是一個純文本文件 需事先用記事本錄入保存 在錄入或維護(hù)時要求每條笑話獨(dú)占一行 不回車換行 兩條笑話之間可插入一個或多個空行 笑話文件的總行數(shù)不能超過定義的最大行數(shù) 2 文件d xiaohua d1也是一個純文本文件 其作用是被用來放置判斷因子 后續(xù)步驟中的宏代碼將根據(jù)此文件中的判斷因子來決定是否在啟動Word時顯示笑話 此文件不需手工建立 由程序自動生成 2020 1 30 第04講宏與自動圖文集 51 接下來要編寫進(jìn)入 離開窗體時 單擊 下一條 關(guān)閉 等按鈕時的事件過程 當(dāng)發(fā)生事件時將調(diào)用公用的Sub過程來執(zhí)行功能 代碼如下 2020 1 30 第04講宏與自動圖文集 52 PrivateSubCommandButton1 Click 顯示笑話EndSubPrivateSubCommandButton2 Click 結(jié)束EndSubPrivateSubuserform activate 激活窗體 使得初始運(yùn)行時窗口中即顯示內(nèi)容顯示笑話EndSubPrivateSubUserForm QueryClose CancelAsInteger CloseModeAsInteger 通過其它途徑關(guān)閉窗體時結(jié)束結(jié)束EndSubPrivateSubCommandButton3 Click MsgBox WORD講笑話 由徐州師范大學(xué)管理學(xué)院編2006 10 EndSub 2020 1 30 第04講宏與自動圖文集 53 提示 這一部分代碼可以緊接第一部代分碼連續(xù)錄入 也可在代碼窗口的 對象框 過程 事件框 中分別選擇對象和事件 然后在自動給出的PrivateSub 與Sub之間輸入要調(diào)用的Sub過程名 這樣減輕了錄入量 并減少了出錯的可能性 2020 1 30 第04講宏與自動圖文集 54 4 完善功能 完成上面三步便初具規(guī)模了 窗體已經(jīng)能夠運(yùn)行 但復(fù)選框的作用還不能發(fā)揮出來 接下來通過創(chuàng)建宏來完善窗體功能 創(chuàng)建宏的方法是 單擊菜單 工具 宏 在 宏名 文本框中輸入宏名 Autoexec 接著單擊 創(chuàng)建 錄入完成以下代碼 2020 1 30 第04講宏與自動圖文集 55 SubAutoexec autoexecMacro 宏在2006 9 24由宋慶軍錄制 OnErrorGoToerr 出錯處理 Open d xiaohua d1 ForInputAs 1Input 1 Ask 讀取判斷因子Close 1IfAsk yes ThenXiaohua Show 若判斷因子為yes則運(yùn)行xiaohua窗體err EndSubSub笑話 Xiaohua Show xiaohua為第一步中建立的窗體名稱EndSub 2020 1 30 第04講宏與自動圖文集 56 錄入完畢后關(guān)閉VisualBasic窗口返回到Word 以上代碼創(chuàng)建兩個宏 Autoexec宏是一個自動宏 它在Word啟動時自動運(yùn)行 并根據(jù)讀取的判斷因子來決定是否運(yùn)行窗體 名為 笑話 的宏則無條件運(yùn)行xiaohua窗體 為了能方便的運(yùn)行這個宏 我們可把它添加為菜單命令 方法是 單擊 工具 自定義 選擇 命令 選項卡 在 類別 框中找到 宏 將右邊的 命令 框中 Normal NewMacros 笑話 拖入菜單 工具 中 并對拖入的命令點(diǎn)右鍵 在 命名 文本框中重命名為 開心一刻 2020 1 30 第04講宏與自動圖文集 57 至此 全部工作完成 當(dāng)Word啟動時就能看到笑話了 平時要閱讀笑話時 單擊菜單 工具 開心一刻 即可 若選中了 下次啟動時不顯示 復(fù)選框 以后也可隨時使用它的菜單命令來恢復(fù)顯示 2020 1 30 第04講宏與自動圖文集 58 2020 1 30 第04講宏與自動圖文集 59 二 word自動圖文集功能 自動圖文集具有和自動更正相似的功能 但自動圖文集需要得到用戶的確定后才可執(zhí)行某命令 這是與自動更正的不同之處 它們各有優(yōu)缺點(diǎn) 下面將具體討論自動圖文集的使用 2020 1 30 第04講宏與自動圖文集 60 1 插入自動圖文集詞條 Word自動給用戶創(chuàng)建了不少自動圖文集詞條 圖文集詞條有兩種 一種是詞條的內(nèi)容和詞條名相同 另一種是詞條內(nèi)容和詞條名不同 下面首先介紹如何插入自動圖文集詞條 1 在工具欄中單擊右鍵 在彈出的快捷菜單中選擇 自動圖文集 以顯示 自動圖文集 工具欄 2 在工具欄中單擊 所有詞條 按鈕 彈出一個菜單 菜單中列出了現(xiàn)有的自動圖文集 2020 1 30 第04講宏與自動圖文集 61 3 可以根據(jù)需要從各組中選擇需要的詞條 如從 問候 復(fù)信用語 直接選擇 分手多日 近況如何 使書寫的信件即方便快捷 又文雅秀麗 如果在文檔中輸入了已經(jīng)存在于自動圖文集中的詞條的頭兩個字時 該單詞的上方就出現(xiàn)整個詞條的內(nèi)容 只需按Enter鍵 即可把整個詞條插入到文檔中 如 要輸入 紙短情長 再祈珍重 只需輸入 紙短 后按Enter鍵即可 如圖3所示 2020 1 30 第04講宏與自動圖文集 62 圖3注意 這種問候語需要在句首輸入才有提示 2020 1 30 第04講宏與自動圖文集 63 還有一種辦法插入自動圖文集詞條 就是把光標(biāo)移到要插入詞條的地方后單擊 工具 菜單中的 自動更正 命令 在彈出的 自動更正 對話框中單擊 自動圖文集 選項卡 在 自動圖文集 選項卡中選擇要插入的詞條 單擊 插入 按鈕即可 如圖4所示 2020 1 30 第04講宏與自動圖文集 64 圖4注意 選中如圖中的 自動圖文集 選項卡的第一個復(fù)選框 在輸入某個詞條的頭兩個字時才會出現(xiàn)如上圖所示的提示 2020 1 30 第04講宏與自動圖文集 65 2 創(chuàng)建自動圖文集詞條 可以定義自己的自動圖文集 創(chuàng)建圖文集詞條的步驟為 1 在文檔中選中需要創(chuàng)建自動圖文集的詞條 例如 選中 服務(wù)有價 信譽(yù)無價 2 單擊 工具 菜單的 自動更正 命令 打開 自動更正 對話框 并選擇 自動圖文集 選項卡 如圖5所示 2020 1 30 第04講宏與自動圖文集 66 圖5提示 如把名稱取為 fwyj 要在文檔中插入 服務(wù)有價 信譽(yù)無價 只需輸入 fwyj 然后按F3鍵就可以把 fwyj 換為 服務(wù)有價 信譽(yù)無價 2020 1 30 第04講宏與自動圖文集 67 3 在 請在此鍵入 自動圖文集 詞條 文本框中輸入自動圖文集詞條名 如輸入 fwyj 當(dāng)然 也可以把詞條名定為與內(nèi)容相同 4 單擊 添加 按鈕即可 2020 1 30 第04講宏與自動圖文集 68 就像創(chuàng)建自動更正詞條一樣 也可以為圖片創(chuàng)建自動圖文集詞條 步驟如下 1 在文檔中選擇要創(chuàng)建圖文集詞條的圖片 2 單擊 自動圖文集 工具欄上的 新建 N 在如圖6所示的文本框中輸入該圖片的詞條名 如tp 后 單擊 添加 即可 2020 1 30 第04講宏與自動圖文集 69 圖6 2020 1 30 第04講宏與自動圖文集 70 3 修改自動圖文集詞條 如果經(jīng)常用到自動圖文集 就有可能需要修改某個自動圖文集詞條 這里修改詞條是指在詞條名不變的情況下修改詞條的內(nèi)容 改變詞條與創(chuàng)建新詞條相似 不是直接編輯它 而是用新內(nèi)容替代它 2020 1 30 第04講宏與自動圖文集 71 例如 將剛才用 fwyj 定義的詞條內(nèi)容 服務(wù)有價 信譽(yù)無價 改為 不變的貼心服務(wù) 可以先選中 不變的貼心服務(wù) 詞條 打開 自動更正 自動圖文集 對話框中 再從列表框中選擇詞條名 fwyj 單擊 添加 按鈕 將打開一個消息框 該消息框詢問是否重新定義自動圖文集詞條 單擊 是 按鈕后即可修改自動圖文集詞條的內(nèi)容 2020 1 30 第04講宏與自動圖文集 72 4 刪除自動圖文集詞條 刪除某個自動圖文集詞條的步驟如下 1 打開如圖7所示的對話框 2 從列表框中選擇需要刪除的自動圖文集詞條名 3 單擊 刪除 按鈕 2020 1 30 第04講宏與自動圖文集 73 圖7 2020 1 30 第04講宏與自動圖文集 74 5 重命名自動圖文集詞條 重命名自動圖文集詞條的步驟如下 1 單擊 工具 菜單中的 模板和加載項 命令 打開如圖8所示的 模板和加載項 對話框 2 在圖8中單擊 管理器 按鈕 打開 管理器 對話框 并選擇 自動圖文集 選項卡 如圖9所示 3 從選項卡左邊的列表框中選擇要重命名的自動圖文集詞條名 例如選擇 創(chuàng)建日