巨集：Word 呼叫Excel 清單批次取代 - 清絃的憑虛御風閣

安裝Word 巨集 · 開啟Word，點開「檢視」>「巨集」>「檢視巨集」。

會跳出一個對話方塊，，輸入RepWithList，點「建立」，就會跳出巨集編輯視窗。

· 在編輯 ... 網頁 最新 御風玄遊 清韻閒話 夢憶寒窗 墨舞世影 2020年12月28日星期一 巨集：Word呼叫Excel清單批次取代 在MicrosoftOfficeWord中，彰化一整天前輩寫了個巨集，可批次對多個 Word 檔案取代文字。

但這不符合我的工作流程，而且這個版本只支援.doc檔。

因此參考了前輩的語法，另外寫了一個巨集，在以 Word開啟檔案的狀態下，呼叫Excel 清單搜尋取代，且支援萬用字元。

（另有LibreOffice的版本） 版本特色： 支援所有可用Word開啟的文件 支援萬用字元 以Excel管理列表 缺點：本巨集不支援取代文字格式，且無法同時取代多個檔案。

如有需要，請參考彰化一整天的巨集。

安裝 準備Excel取代清單 開啟Excel，將第一列寫上標題：「搜尋」、「取代」、「萬用字元」。

在之後的列中填入要搜尋取代的內容，中間請勿空行。

如要使用萬用字元，請在該列第三欄寫上「Y」。

儲存檔案。

（檔名及檔案路徑避免包含與電腦系統語言不符的文字，如中文環境請勿包含日文或韓文，以免出錯） 安裝Word巨集 開啟Word，點開「檢視」>「巨集」>「檢視巨集」。

會跳出一個對話方塊，，輸入RepWithList，點「建立」，就會跳出巨集編輯視窗。

在編輯視窗中，把「SubRepWithList()」到「EndSub」這三行字取代成以下內容。

點我複製語法 SubRepWithList()''呼叫Excel清單批次取代ReplacewithExcel List'存取表格內容==== DimwbAsDocument  Setdoc=Application.ActiveDocument   Setxlapp=CreateObject("excel.application")   SetwkBook=xlapp.Workbooks.Open("E:\Programs\RepList_MS.xlsx") '定義搜尋取代變數====  i=2  Org= wkBook.Worksheets(1).Cells(i,1)  Rep= wkBook.Worksheets(1).Cells(i,2)  WildcardsCheck=False   IfwkBook.Worksheets(1).Cells(i,3)="Y"Then WildcardsCheck=True ' 取代迴圈====  WhileOrg<>""     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     WithSelection.Find      .Text= Org      .Replacement.Text=Rep       .Forward= True        .Wrap=wdFindContinue        .Format=False        .MatchCase=False        .MatchWholeWord=False        .MatchByte=True        .MatchWildcards=WildcardsCheck        .MatchSoundsLike=False        .MatchAllWordForms=False     EndWith     Selection.Find.ExecuteReplace:=wdReplaceAll     i=i+1     Org=wkBook.Worksheets(1).Cells(i,1)    Rep= wkBook.Worksheets(1).Cells(i,2)     WildcardsCheck=False    If wkBook.Worksheets(1).Cells(i,3)="Y"ThenWildcardsCheck=True   Wend   MsgBox"取代完成"& Chr(13) & "技術支援：憑虛御風https://qingxianz.blogspot.com"   wkBook.Close EndSub 點我複製語法 說明： SetwkBook=xlapp.Workbooks.Open("E:\Programs\RepList_MS.xlsx") 請將紅字部分換成剛才製作的Excel檔案路徑。

  Forward= True 如果不需往前取代，請改為False  MatchCase= False 如要區分大小寫，請改為True 安裝捷徑 開啟「選項」>「快速存取工具列」中「由此選擇命令」下選擇「巨集」，找到剛才的「RepWithList」，點下去反白。

在右欄選擇要加入的工具列，按中間的「➡️」加入，調整到想要的位置。

點「RepWithList」，按下欄「修改」，改成想要的名稱和圖示（請勿和其他工具混淆）。

按「確定」。

這樣工具列就會出現設定的圖示，按一下就會自動取代了。

如果覺得我的程式很有幫助，歡迎贊助斗內我喔(*´∀`)~♥  PS：如要提問，請使用Facebook留言框下的內建留言板，這樣我才收得到通知。

  以電子郵件傳送這篇文章BlogThis！分享至Twitter分享至Facebook分享到Pinterest 分類： 2則留言: Unknown2021年10月9日中午12:57請問是否可在powerpoint檔案使用此巨集呢?感謝回覆刪除回覆清絃子2021年10月10日下午1:27剛測試過了，是不行的。

偵錯在第一段「存取表格內容」第一行就拒絕。

但是網路上關於PPT的巨集文章極為稀少，我也查不到細節。

如果你要修改，可能要自己去Microsoft社群問。

刪除回覆回覆回覆新增留言載入更多… 下一篇： 較新的文章 首頁 上一篇： 較舊的文章 訂閱： 張貼留言(Atom) 閣主 清絃子 小說家、墨繪師、哲學家。

台師大物理研究所畢業，2005年開始小說創作，著有《仙魔異俠錄》、《太古遺音》、《輪迴劫》。

創作涵蓋水墨畫、佛像、布袋戲、同人創作、小說、劇作、人間觀察、歷史評論。

現發表於POPO、Pixiv。

檢視我的完整簡介 社群 墨繪   小說連載 贊助‧Donate 贊助●Donate●寄付 新台幣|日本円|EUR|USD 文章分類 站務功能 (1) 御風玄遊-太古遺音 (61) 御風玄遊-太古遺音花絮 (24) 御風玄遊-輪迴劫 (10) 御風玄遊-輪迴劫花絮 (14) 清韻閒話-以古觀今 (12) 清韻閒話-淡看人間 (24) 清韻閒話-遊戲-メルクストーリア (31) 清韻閒話-學史雜記-五代 (2) 清韻閒話-學史雜記-宋 (101) 清韻閒話-學史雜記-明 (2) 清韻閒話-學史雜記-唐 (24) 清韻閒話-學史雜記-清 (1) 清韻閒話-學史雜記-隋 (2) 清韻閒話-館長摘要-運動保健 (1) 清韻閒話-館長摘要-館長大戰 (7) 清韻閒話-館長摘要-館長採訪 (49) 清韻閒話-館長摘要-館長談兩岸 (12) 清韻閒話-館長摘要-館長談社會 (3) 清韻閒話-館長摘要-館長談時政 (12) 清韻閒話-雜文 (6) 清韻閒話-讀經雜記 (1) 清韻閒話-IT技術 (4) 夢憶寒窗-同人-大雜匯 (26) 夢憶寒窗-同人-金光同人 (34) 夢憶寒窗-同人-金斧銀斧 (12) 夢憶寒窗-同人-館長 (8) 夢憶寒窗-同人-寶可夢 (2) 夢憶寒窗-同人-霹靂同人 (5) 夢憶寒窗-同人-FF同人 (41) 夢憶寒窗-初心舊夢 (4) 夢憶寒窗-原創 (6) 夢憶寒窗-時事諷刺 (6) 夢憶寒窗-剪接畫 (11) 夢憶寒窗-創作教學 (12) 夢憶寒窗-影劇評論 (20) 夢憶寒窗-練習作 (10) 夢憶寒窗-趣味作 (54) 夢憶寒窗-趣味漫畫 (18) 墨舞世影-山水 (13) 墨舞世影-布袋戲 (14) 墨舞世影-佛像 (56) 墨舞世影-肖像 (29) 墨舞世影-封面 (1) 墨舞世影-原創 (10) 墨舞世影-原創-饅頭看世界 (4) 墨舞世影-Vtuber (2) 著作權聲明 禁止轉載、盜圖。

Prohibitreproducewithoutpermission!無断転載禁止。

搜尋本站 訂閱 發表文章 Atom 發表文章 留言 Atom 留言