VBA实现在word中的替换（需用正则） 如何用VBA实现WORD批量替换？
\u5173\u4e8eWord VBA\u67e5\u627e\u66ff\u6362\uff08\u542b\u901a\u914d\u7b26\uff09\u7684\u95ee\u9898Excel 2016 \u600e\u4e48\u4f7f\u7528\u901a\u914d\u7b26\u67e5\u627e\u6570\u636e
For i = 1 To n 'n\u662flistview1\u7684\u884c\u6570 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ListView1.ListItems(i).SubItems(0) 'Findstr=listview1\u7684\u7b2ci\u884c\u7b2c1\u5217\u5bf9\u5e94\u5355\u5143\u683c\u7684\u5185\u5bb9 .Replacement.Text = ListView1.ListItems(i).SubItems(1) 'Findstr=listview1\u7684\u7b2ci\u884c\u7b2c2\u5217\u5bf9\u5e94\u5355\u5143\u683c\u7684\u5185\u5bb9 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ListView1.selectedItem = i Next MsgBox "\u5904\u7406\u5b8c\u6bd5\uff01", vbInformation + vbOKOnly, "\u6d88\u606f" ListView1.selectedItem = 1
你的问题，可能使用word的替换功能就能实现了，只是在替换内容和替换为里使用正则表达式就可以了。
你可以把文档相关图片传上来，大家帮你看看。
绛旓細Selection.Characters.Text = Replace(Selection.Characters.Text, 鈥滄煡鎵剧殑瀛楃", "鏇挎崲涓烘柊瀛楃")
绛旓細鏌ユ壘鍐呭杈撳叆锛歔^s^t 銆]{1,22}^13 鏇挎崲涓鸿緭鍏ワ細^13 閫夋嫨鈥滀娇鐢ㄩ氶厤绗︹濈偣鍑诲叏閮鏇挎崲锛涓ゆ鍒颁笁娆★級鍙互灏嗙┖鏍笺佸叏瑙掔┖鏍笺佷笉闂存柇绌烘牸銆乼ab绛夊彧瑕佹槸绱ч偦杩欏洖杞︾鐨勫潎鏇挎崲鎺 鍏充簬2鐨勮灏嗕細鍏ㄩ儴鍙樻垚鍙湁涓涓洖杞︼紝濡傛灉瑕佹浛鎹紝鐩存帴鍦ㄦ煡鎵惧唴瀹硅緭鍏ワ細^13^13 鏇挎崲涓鸿緭鍏ワ細^13 鍏ㄩ儴鏇挎崲澶氭鍗冲彲銆
绛旓細鎬濊矾濡備笅锛1 灏word閮芥斁鍦ㄤ竴涓枃浠跺す涓2銆鐢绋嬪簭璇诲彇杩欎釜鏂囦欢澶癸紝渚濇鎵撳紑鏂囦欢澶涓殑鏂囦欢锛堜竴鑸兘鏄敤寰幆锛変笅闈㈡槸閬嶅巻鎵鏈夋枃浠剁殑绋嬪簭浠ｇ爜 myName = Dir(myPath & "*.xlsx") '鎵撳紑涓涓猠xcel鏂囦欢 Do While myName <> "" '寰幆,褰撴枃浠跺悕涓嶄负绌烘椂銆 myName = Dir ' 閬嶅巻鐩綍涓殑鎵...
绛旓細= "456"wb.Sheets(1).[D4] = "鐜嬫湀" wb.Close True X = X + 1 Wend End Sub杩欎釜瀹 浼氭妸 浣犻変腑鐨勬枃浠 鎵归噺鏇挎崲 sheet1 锛欰1鐨勫唴瀹 鏀逛负 456 D4 鐨勫唴瀹规敼涓 鐜嬫湀锛 浣犲彲浠ユ牴鎹綘鐨勫疄闄呮儏鍐典慨鏀逛唬鐮佸氨鍙互浜嗭紝 濡傛灉鍗曞厓鏍间笉鍥哄畾灏 鐢FIND 鏂规硶鎵惧埌鍐嶄慨鏀 ...
绛旓細1銆佹墦寮word锛岀偣鍑绘枃浠堕夐」锛屼笉鍚岀増鏈殑word浼氭湁涓浜涗笉鍚岋紝澶у鍙鐢ㄥ績瑙傚療灏辫兘鎵惧埌銆2銆鍦╳ord閫夐」涓偣鍑婚珮绾с3銆佸湪鍙充晶鎵惧埌鍓垏銆佸鍒跺拰绮樿创銆4銆佺偣鍑诲壀鍒囥佸鍒跺拰绮樿创涓殑璁剧疆銆5銆佸湪璁剧疆瀵硅瘽娆句腑鍕鹃変粠MicosoftExexl绮樿创鏃惰皟鏁存牸寮忋6銆佽缃ソ涔嬪悗鐐瑰嚮纭畾銆7銆佽繖鏍锋垜浠啀绮樿创鏉ヨ嚜Excel涓殑琛ㄦ牸鏃...
绛旓細Execute FindText:=strKey, ReplaceWith:=oDict(strKey), Replace:=wdReplaceAll Selection.StartOf wdStory Next MsgBox "瀹屾垚锛"End Sub 3銆佹牴鎹渶瑕佸湪涓婅堪浠ｇ爜涓敞閲婂湴鍦版柟澧炲姞鏇村鐨勬浛鎹瑙勫垯锛4銆侀敭鍏5杩愯鐪嬪埌鈥滃畬鎴愶紒鈥濈粨鏉燂紱5銆侀敭鍏LT+Q閫鍑VBA缂栬緫鍣ㄨ繑鍥Word鏂囨。锛屾鏌ユ浛鎹㈢粨鏋滄槸鍚︽弧瓒宠姹傘
绛旓細1.瀹夎word 2.鍦╒B寮鍙戠幆澧冮噷寮曞叆Office Word瀵硅薄 3.鍦ㄦ寜閽腑鐢–reateObject鎴朜ew鏉ヤ骇鐢熶竴涓獁ord瀵硅薄 4.璋冪敤璇ュ璞★紝鐩存帴瀹炵幇鏇挎崲绛夋搷浣 5.濡傛灉涓嶇煡閬撶敤浠涔堣鍙ワ紝鍙互鐢╳ord閲岀殑瀹忕紪杈戝櫒璁板綍鎵杩涜鐨勬搷浣滐紝鎶婄敓鎴愮殑vbA浠ｇ爜鎷疯礉鍒皏b鐜涓嵆鍙
绛旓細鍦╓ORD鏂囨。涓鎵惧埌缂栬緫鑿滃崟涓笅鎷夎彍鍗曚腑鏇挎崲鍦ㄦ煡鎵惧唴瀹癸紙N锛変腑濉啓112345.678鐒跺悗鍦ㄦ浛鎹负锛圛锛変腑濉啓99992345.678鍚庡彲浠ユ寜浣犵殑瑕佹眰閫夋嫨鏇挎崲鎴栧叏閮ㄦ浛鎹㈠嵆鍙
