word的问题，高手进
word\u6587\u6863\u95ee\u9898
\u5355\u51fb\u4e00\u4e0b \u6587\u6863\u7ed3\u6784\u56fe\u6309\u94ae
\u8fd9\u4e2aTMP\u6587\u4ef6\u662f\u5b9e\u65f6\u4fdd\u5b58\u4f60\u7f16\u8f91\u8fc7\u7684\u4e1c\u897f\u7684\uff0c\u53ef\u4ee5\u628atmp\u7684\u6269\u5c55\u540d\u6539\u6210doc\u6216docx\uff0c\u4f60\u8bd5\u8bd5\uff0c\u8bb0\u5f97\u6062\u590d\u4e4b\u540e\u53e6\u5b58\u4e3a\u4e00\u4e0b\u3002
这个宏就能执行一次替换，但你要写调用它的语句。你能写替换的宏，应该没问题。-----------没测试过，是一个思路。
Sub ReplaceOnce(strFind As String, strReplace As String)
'功能：执行一次替换
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = strFind
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
End Sub
****************************
调用方法用CALL，如例：
Private Sub CommandButton2_Click()
Call ReplaceOnce(TextBox2.Text, TextBox1.Text)
CommandButton2.Enabled = False
End Sub
绛旓細棣栧厛锛岀‘淇濅綘鎵嬪ご鏈夌數鑴戝拰涓涓渶瑕佺紪杈戠殑Word鏂囨。銆傚惎鍔╓ord鍚庯紝鎵惧埌鏂囨。锛岀偣鍑婚《閮ㄧ殑鈥滄枃浠垛濋夐」锛岀劧鍚庨夋嫨鈥滈夐」鈥濅互杩涘叆璁剧疆鐣岄潰銆傛帴涓嬫潵锛岃繘鍏楂樼骇閫夐」銆傚湪涓嬫媺鑿滃崟涓紝鎵惧埌骞剁偣鍑烩滈珮绾р濋夐」锛岃繖浼氭墦寮涓涓柊鐨勭獥鍙ｃ傚湪杩欎釜绐楀彛涓紝浣犱細鐪嬪埌鈥滅増寮忛夐」鈥濆尯鍩燂紝鎵惧埌鈥滀负灏鹃儴绌烘牸娣诲姞涓嬪垝绾库濋夐」锛岀‘淇...
绛旓細1銆佸湪Word鏂囨。涓紝鎻掑叆琛ㄦ牸鐨勬搷浣滄椂锛屼互涓嬭娉曢敊璇殑鏄()銆2銆佸皢椤甸潰鏀惧ぇ鍒100%锛屼綘鐨勮繖绉嶉〉闈㈡槸鍦90%浠ヤ笅鐨勬垨鑰呮槸鈥滈槄璇荤増寮忚鍥锯濓紱濡傛灉鏄枃妗ｇ缉鏀炬瘮渚鐨勯棶棰璇峰湪鏂囨。鍙充笅瑙掕皟鏁存樉绀烘瘮渚嬶紝濡傛灉鏄滈槄璇荤増寮忚鍥锯濓紝鍏抽棴鈥滈槄璇荤増寮忚鍥锯濆氨琛屼簡銆3銆佸厛灏嗗厜鏍囨斁鍒颁綘鎯虫敼鐨勯偅椤甸噷锛岀劧鍚庡湪璁剧疆鈥滈〉闈㈣...
绛旓細涓夛紝娓呴櫎鈥Word鏂囨。鈥濆浣欑┖琛 鎵撳紑鈥滅紪杈戔濊彍鍗曚腑鐨勨滄浛鎹⑩濆璇濇锛屾妸鍏夋爣瀹氫綅鍦ㄢ滄煡鎵惧唴瀹光濊緭鍏ユ涓紝鎸変笅鈥滈珮绾р濇寜閽紝閫夋嫨鈥滅壒娈婂瓧绗︹濅腑鐨勨滄钀芥爣璁扳濅袱娆★紝鍦ㄨ緭鍏ユ涓細鏄剧ず涓衡滐季p锛緋鈥濓紝鍦ㄢ滄浛鎹负鈥濊緭鍏ユ涓敤涓婇潰鐨勬柟娉曟彃鍏ヤ竴涓滄钀芥爣璁扳濓紝鍗斥滐季p鈥濓紝鐒跺悗鎸変笅鈥滃叏閮ㄦ浛鎹⑩濇寜閿紝...
绛旓細1銆佹墦寮闇瑕佹搷浣滅殑WORD鏂囨。锛岀偣鍑绘彃鍏ラ夐」鍗′腑鐨勨滃浘鐗団濄傛壘鍒板苟閫夋嫨闇瑕佹坊鍔犲埌WORD涓殑鍥剧墖锛岀偣鍑绘彃鍏ャ傚啀閫変腑鍥剧墖鐨勭姸鎬佷笅锛岀偣鍑诲伐鍏锋爮鐨勨滅幆缁曟枃瀛椻濓紝鍦ㄤ笅鎷夐夐」涓夋嫨鈥滀笂涓嬪瀷鐜粫鈥濄2銆佲滄彃鍏モ濃斺斺滃垎鑺傜鈥濃斺斺滆繛缁濓紝鍙栨秷杩欎竴鑺傜殑鍒嗘爮锛屾彃鍏ラ氭爮鍥剧墖锛屽啀鏉ヤ竴娆♀滄彃鍏モ濃斺斺滃垎鑺傜鈥濃...
绛旓細绗2涓闂鐨勬纭В绛旓細锛堜竴锛夊浣曞皢鈥滄墜鍔ㄦ崲琛岀鈥濇浛鎹㈡垚鈥滄钀芥爣璁扳濓紵缃戦〉鏂囦欢锛屽ぇ閮ㄥ垎閮芥槸鎵嬪姩鎹㈣绗︺傦紴锛炵紪杈戯紴锛炴浛鎹紴锛為珮绾э紴锛炵壒娈婂瓧绗︼紴锛 鍦ㄢ滄煡鎵惧唴瀹光濅腑杈撳叆鈥滄墜鍔ㄦ崲琛岀鈥濓紝涔熷彲浠ラ氳繃閿洏杈撳叆鈥淾l鈥濆湪鈥滄浛鎹㈠唴瀹光濅腑杈撳叆鈥滄钀芥爣璁扳濓紝涔熷彲浠ラ氳繃閿洏杈撳叆鈥淾p鈥濄傚叏鏂囨浛鎹紝灏卞彲浠ュ皢...
绛旓細Word姣忚寮澶磋緭涓嶈繘绌虹櫧涓嬪垝绾挎槸杈撳叆閿欒閫犳垚鐨勶紝瑙ｅ喅鏂规硶涓猴細1銆佺偣鍑word鏂囦欢杩涘叆鍗冲彲銆2銆佹帴涓嬫潵闇瑕佸皢鏂囧瓧璁剧疆鏀规垚鑻辨枃鐘舵併3銆佺Щ鍔ㄥ厜鏍囧埌娣诲姞涓嬪垝绾垮湴鏂癸紝鎸変綇閿洏shift閿紝鐒跺悗鎸塤__锛岄敭鍗冲彲娣诲姞涓嬪垝绾裤4銆侀夋嫨鏈涓婁竴鏍忕殑寮濮嬮敭銆5銆佹帴涓嬫潵闇瑕佸湪寮濮嬮敭褰撲腑閫夋嫨涓嬪垝绾匡紝濡備笅鍥炬墍绀恒6銆佽繖鏍峰氨鑳藉...
绛旓細闂涓嶄弗璋紝姣斿1222锛屼綘瑕佹浛鎹㈡垚3422,3242锛岃繕鏄3224锛熷鏋滃涓ヨ皑锛屽彲浠ュ湪excel涓畬鎴愩
绛旓細姝ラ1锛 鎵惧埌璇ユ枃浠舵墍鍦ㄧ殑璺緞銆 鍦word涓閫夋嫨鑿滃崟[宸ュ叿]-[閫夐」]-[鏂囦欢浣嶇疆]锛岀劧鍚庡弻鍑烩滅敤鎴锋ā鏉库濓紝寮瑰嚭涓涓滀慨鏀逛綅缃濆璇濇锛屼粠涓氨鍙互鎵惧埌Normal.dot鏂囦欢鐨 璺緞锛屼緥濡傦細C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates. 鍏朵腑Administrator鍙互鏄叾浠栫殑鐧婚檰鐢ㄦ埛鍚嶃
绛旓細涓銆佹í鍚戠殑椤电爜鍜岄〉鑴氾細璁剧疆鑿滃崟鏍忊斺旀彃鍏モ斺旈〉鐮佲斺斾綅缃細椤甸潰搴曠锛涘榻愭柟寮忥細鍐呬晶锛涙牸寮忥細鏁板瓧鏍煎紡鏍规嵁闇瑕佲斺旂‘瀹氣斺旂‘瀹氥備簩銆佺Н鍋堕〉鐨勮竟璺濇槸涓嶆槸瑕佷竴鏍凤細鑿滃崟鏍忊斺旀枃浠垛斺旈〉闈㈣缃斺旂増寮忊斺旈〉闈㈠拰椤佃剼鈥斺斿鍋堕〉涓嶅悓锛堟墦鍕撅級锛涢〉杈硅窛鈥斺旀牸灞闇瑕佽皟鏁粹斺旂‘瀹氥備笁銆佹妸鐩綍鍔犺繘鍘伙細1...
绛旓細鏈夋柟娉曪紝濂藉儚鏈変釜瀵word涓鍥剧墖鍘嬬缉鐨勫姛鑳 1.鍙栨秷蹇熶繚瀛樺綋鏂囦欢鎵撳紑鏃讹紝浣跨敤蹇熶繚瀛樻瘮浣跨敤瀹屽叏淇濆瓨闇瑕佹洿澶氱殑绌洪棿銆傚彲浠ュ湪鈥滃伐鍏封啋閫夐」鈥濆懡浠や腑閫夋嫨鈥滀繚瀛樷濋夐」鍗★紝鍙栨秷鈥滃厑璁稿揩閫熶繚瀛樷濆閫夋鍗冲彲鍙栨秷蹇熶繚瀛 2.鏂囦欢鍙﹀瓨Word鍦ㄤ繚瀛楧OC鏂囦欢鏃讹紝鍙妸鍚庢潵淇敼鐨勪俊鎭瓨鍏ワ紝杩欐牱鍗充娇浣犲垹闄や簡鏂囦欢涓殑閮ㄥ垎鍐呭...
