word中批量替换字符
word \u4e2d\u6279\u91cf\u66ff\u6362\u600e\u4e48\u4f7f\u7528\uff1f\u3000\u30001\u3001\u5148\u6253\u5f00\u6587\u6863\uff0c\u518d\u6253\u5f00\u83dc\u5355\u680f\u4e0a\u7684\u201c\u7f16\u8f91\u201d\u4e2d\u7684\u201c\u66ff\u6362\u201d\u547d\u4ee4\uff0c\u540c\u6837\uff0c\u4e5f\u53ef\u4ee5\u76f4\u63a5\u6309 Ctrl+H \u66ff\u6362\u7684\u5feb\u6377\u952e\uff0c\u6765\u6253\u5f00\u201c\u66ff\u6362\u201d\u529f\u80fd\u7a97\u53e3;
\u3000\u30002\u3001\u5728\u66ff\u6362\u4e2d\u201c\u67e5\u627e\u5185\u5bb9\u201d\u4e2d\u8f93\u5165\u9519\u522b\u5b57;
\u3000\u30003\u3001\u5728\u201c\u66ff\u6362\u4e3a\u201d\u4e2d\u8f93\u5165\u6b63\u786e\u7684\u5b57;
\u3000\u30004\u3001\u7136\u540e\u6309\u4e0b\u9762\u7684\u201c\u5168\u90e8\u66ff\u6362\u201d\u6309\u94ae\uff0c\u6b64\u65f6\uff0c\u6587\u4e2d\u6240\u6709\u9519\u522b\u5b57\u5df2\u7ecf\u5168\u90e8\u66ff\u6362\u6210\u6b63\u786e\u5b57\u4e86\u3002
\u7528\u67e5\u627e\u66ff\u6362\u5c31\u53ef\u4ee5\u4e86
\u5f55\u4e86\u4e2a\u5b8f\uff0c\u505a\u4e86\u4e00\u4e9b\u4fee\u6539\uff0c\u770b\u662f\u4e0d\u662f\u4f60\u9700\u8981\u7684\uff0c\u6570\u7ec4\u91cc\u5185\u5bb9\u53ef\u4ee5\u6dfb\u52a0
Sub \u67e5\u627e\u66ff\u6362()
Dim arr()
arr = Array("\u53f0\u706f", "\u7535\u89c6", "\u51b0\u7bb1","\u6d17\u8863\u673a","\u7535\u8111","\u5fae\u6ce2\u7089")
For i = 0 To 5
With Selection.Find
.Text = arr(i)
.Replacement.Text = "\u5bb6\u7528\u7535\u5668"
.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
Next i
End Sub
用里边的替换功能
替换里
有个高级选项
下边有个特殊字符，里边可以替换任意的数字
看看可以不
或
录制宏
CTRL+F，点到替换那，把你要替换的输入，按全部替换
那你查找,然后替换就行了啊
绛旓細1銆侀愪釜鏇挎崲 鍦╓ord涓壒閲忔浛鎹锛屽彲浠ユ寜鐓т互涓嬫楠ゆ搷浣滐細鎵撳紑Word鏂囨。锛屽苟鐐瑰嚮鑿滃崟鏍忎腑鐨勨滃紑濮嬧濋夐」鍗°傚湪宸ュ叿鏍忎笂鏂规壘鍒扳滄煡鎵惧拰鏇挎崲鈥濇寜閽苟鐐瑰嚮鎵撳紑銆傚湪寮瑰嚭鐨勨滄煡鎵惧拰鏇挎崲鈥濆璇濇涓紝鐐瑰嚮鈥滄浛鎹⑩濋夐」鍗°傚湪鈥滄煡鎵惧唴瀹光濊緭鍏ユ涓緭鍏ラ渶瑕佽鏇挎崲鐨勬枃瀛楁垨璇嶈銆傚湪鈥滄浛鎹负鈥濊緭鍏ユ涓緭鍏ユ浛鎹㈠悗鐨勬枃瀛...
绛旓細棣栧厛锛屾墦寮闇瑕佷慨鏀圭殑Word鏂囨。銆備负浜嗘紨绀烘柟渚匡紝鎴戜滑浠ヤ竴涓畝鍗曠殑鏂囨。涓轰緥锛屽叾涓寘鍚簡涓嶅悓鐨勫瓧姣嶅拰鏂囨湰鏍煎紡銆傛帴涓嬫潵锛屾垜浠渶瑕佷娇鐢╓ord鐨勨滄煡鎵惧拰鏇挎崲鈥濆姛鑳姐傝繖涓姛鑳藉彲浠ュ府鍔╂垜浠蹇鎵惧埌鏂囨。涓殑鐗瑰畾鍐呭锛屽苟杩涜鐩稿簲鐨勪慨鏀广傜偣鍑籛ord宸ュ叿鏍忎笂鐨勨滄煡鎵惧拰鏇挎崲鈥濇寜閽垨浣跨敤蹇嵎閿瓹trl+H鎵撳紑鈥滄煡鎵惧拰鏇挎崲鈥濆...
绛旓細1銆侀夋嫨鈥滃紑濮嬧>鈥滄浛鎹⑩濄2銆佸浜鈥滄煡鎵惧唴瀹光濓紝杈撳叆瑕佹悳绱㈢殑瀛楄瘝鎴栫煭璇 瀵逛簬鈥滄浛鎹负鈥濓紝璇疯緭鍏ユ柊鏂囨湰銆3銆侀夋嫨鈥滄煡鎵句笅涓澶勨濓紝鐒跺悗閫夋嫨锛氣滄浛鎹⑩濅互鏇挎崲绗竴涓疄渚嬶紝鎴栭夋嫨 鈥滃叏閮ㄦ浛鎹⑩濓紝浠ユ浛鎹㈡墍鏈夊疄渚嬨
绛旓細1銆佹墦寮宸插噯澶囧ソ鐨勮澶勭悊鐨WORD鏂囨。锛岃嫢鏃犺鍙傜収涓嬮潰绀轰緥褰曞叆涓涓鍚堟搷浣滆姹傜殑鏂囨。锛2銆佺偣鍑荤紪杈戔啋鏇挎崲锛堝揩鎹烽敭CTRL+H锛夊悗锛屽脊鍑虹殑鈥滄煡鎵惧拰鏇挎崲鈥濆璇濇榛樿濡備笅鍥俱3銆佺偣鍑讳笅绔滄洿澶氣濇寜閽畬鎴愪互涓嬪洓姝ワ細鈶犳煡鎵捐緭鍏ワ細\锛*\锛夛紱鈶℃浛鎹㈣緭鍏ワ細锛堢暀绌猴級鑻ユ兂绌轰袱涓眽瀛楀嵆鏁插叆4涓崐瑙掔┖鏍硷紱鈶㈠嬀閫夆...
绛旓細1. 鎵撳紑闇瑕佺紪杈戠殑word鏂囨。锛岀偣鍑昏彍鍗曟爮鐨勩愬紑濮嬨戯紝浠鏇挎崲鈥滃懆鐜嬪鈥濈殑鏍煎紡涓轰緥锛岀偣鍑荤孩鑹叉鐨勩愭浛鎹2. 寮瑰嚭濡傚浘绐楀彛鐨勩愭煡鎵惧拰鏇挎崲銆3. 鏌ユ壘鍐呭杈撳叆鈥滃懆鐜嬪鈥濓紝鏇挎崲涓篃杈撳叆鈥滃懆鐜嬪鈥濓紝鍏夋爣浣嶄簬鏇挎崲涓殑鏂囧瓧锛屽啀鐐瑰嚮涓嬫柟鐨勩愭牸寮忋戯紝鍦ㄥ脊鍑虹獥鍙ｄ腑閫夋嫨銆愬瓧浣撱4. 閫夋嫨绐楀彛涓殑銆愬姞绮 鍊炬枩銆...
绛旓細1銆侀夊彇闇瑕鎵归噺淇敼鐨勫唴瀹癸紝鐢ㄩ紶鏍囨寜瀹氬乏閿悗锛岄氳繃鎷栨嫿锛岄夊彇鍐呭锛2銆侀氳繃閿洏蹇嵎閿柟寮忥紝鍚屾椂鎸変笅锛欳trl閿+F閿紝3銆佸皢浼氬脊鍑哄涓嬬獥鍙ｏ紝4銆佺偣鍑绘煡鎵剧獥鍙ｄ腑鐨勯」鐩細鏇挎崲P锛岃繘琛屾壒閲忎慨鏀癸紝渚嬪锛氭妸鎵鏈夋暟瀛19锛屾浛鎹㈡垚锛氭暟瀛20锛5銆佺劧鍚庣偣鍑绘寜閽細鍏ㄩ儴鏇挎崲锛屼簬鏄緱鍒扮粨鏋滃涓嬶紝瀹屾垚鏁堟灉鍥俱
绛旓細鍦 Word 涓锛鎵归噺鏇挎崲鍔犵矖鐨勫瓧鍙互閫氳繃浠ヤ笅姝ラ鏉ュ疄鐜帮細1. 鎵撳紑 Word 鏂囨。锛屾寜涓 Ctrl + H 缁勫悎閿紝鎴栧湪鑿滃崟鏍忎腑鐐瑰嚮鈥滄煡鎵惧拰鏇挎崲鈥濇寜閽2. 鍦ㄢ滄煡鎵惧拰鏇挎崲鈥濆璇濇涓紝鐐瑰嚮鈥滄牸寮忊濇寜閽紝閫夋嫨鈥滃瓧浣撯濋夐」鍗★紝鍦ㄢ滃瓧浣撴牱寮忊濅腑閫変腑鈥滃姞绮椻濄3. 鍦ㄢ滄浛鎹负鈥濇涓緭鍏ラ渶瑕佹浛鎹㈡垚鐨勬枃瀛楋紝鐐瑰嚮鈥...
绛旓細1銆佸湪鎵撳紑鐨word涓锛屼緷娆＄偣鍑汇愭枃浠躲戦夐」鍗￠夐」锛堟垨鍦ㄥ姛鑳藉尯鍙抽敭鍗曞嚮鑷畾涔夊姛鑳藉尯锛夛紝鎵撳紑word閫夐」绐楀彛銆2銆佸湪閫夐」绐楀彛涓紝鍦ㄥ乏渚ц彍鍗曟爮涓夊埌鏄剧ず鑿滃崟锛岀劧鍚庡湪绐楀彛鍙虫爮涓壘鍒板缁堝湪灞忓箷涓婃樉绀鸿繖浜涙牸寮忔爣璁伴夐」锛屽嬀閫夊叾涓殑娈佃惤鏍囪澶嶉夋锛屼篃鍙洿鎺ュ嬀閫夋渶鍚庝竴椤规樉绀烘墍鏈夋牸寮忔爣璁般傜偣鍑荤‘瀹氭寜閽3銆佺劧鍚...
绛旓細鍏夋爣瀹氫綅鏌ユ壘鏇挎崲涓猴紝鐒跺悗鐐逛笅闈⑩滈珮绾р濋夐」锛岄夊彇鈥滅壒娈婃牸寮忊濆唴鐨勨滄墜鍔ㄦ崲琛岀鈥;鍗曞嚮鈥滃叏閮ㄦ浛鎹⑩濆嵆鍙傛搷浣滄楠 1.閫夋嫨瑕佹浛鎹㈢殑瀛楃 2.鍦ㄨ緭鍏ユ杈撳叆鏌ユ壘鍐呭鐨勫瓧绗 3.鍏夋爣瀹氫綅鏌ユ壘鏇挎崲涓 4.鐐瑰嚮鈥滅壒娈婃牸寮 --> 鎵嬪姩鎹㈣绗︹ 5.鍗曞嚮鈥滃叏閮ㄦ浛鎹⑩濆嵆鍙傛搷浣滄祦绋嬪浘鏇挎崲鍚庣粨鏋滃睍绀...
绛旓細缂栫爜杞崲锛氭彁渚涘父鐢ㄧ殑瀛楃涓缂栫爜杞崲鍔熻兘銆傛棩鏈熸椂闂村樊锛氫竴涓皬灏忕殑宸ュ叿锛屽彲浠ヨ绠楁寚瀹氱殑涓や釜鏃堕棿鐨勯棿闅斻傛垜鐨処P鍦板潃锛氭樉绀哄綋鍓嶇數鑴戠殑鍐呯綉鍙婂叕缃慖P鍦板潃銆備笂鎵嬩綋楠 鎵归噺淇敼鏂囦欢鍚嶇О/鎵归噺淇敼鏂囦欢鍐呭/鎵归噺淇敼鏂囦欢鎵╁睍鍚 鏃犻渶鎵撳紑鏂囨。杩涜鎵归噺鍐呭鏇挎崲 鏀寔word鏂囨。杞珽PUB銆佸浘鐗囨牸寮忋&#...
