鎵歸噺璁劇疆word涓〃鏍肩殑楂樺害
鏈?繎鍐欐枃妗ｇ殑鏃跺?錛岄亣鍒頒簡涓?釜灝忛棶棰樸?鎴戜滑鐨勬枃妗ｏ紝澶ч儴鍒嗛兘鏄?杩嘐A鐢熸垚鐨勶紝鑰岄?杩嘐A鐢熸垚鐨勬枃妗ｏ紝濂藉琛?#26684;格寮忎笉鏄緢緹庤銆備笉鏄〃格鐨勯珮搴︿笉鍚堥?錛屽氨鏄瓧浣撴樉紺轟笉灝戒漢鎰忥紝杩欎簺閮藉繀欏誨幓淇敼銆傚綋嫻忚浜嗕竴閬嶆枃妗ｅ悗錛屽彂鐜版湁濂藉嚑鍗佷釜琛?#26684;錛岃繖瑕佹槸涓?竴淇敼鐨勮瘽錛岄偅涓?笂鍗堝氨鐢共鍒殑浜嗭紝鍏夊仛閲嶅宸ヤ綔浜嗐?璁闆緱鏈夎繖涔堜竴鍙ヨ瘽錛氬鏋滃悓涓?歡浜嬫儏錛屼綘閲嶅鍋氫簡涓夋錛岄偅涔堬紝鑲畾鏈夌畝鍗曠殑鏂規硶鏉ラ伩鍏嶈繖縐嶆棤璋撶殑閲嶅銆備簬鏄笂緗戞壘浜嗕竴涓嬶紝鏋滅劧錛孷BA瀹岀編瑙ｅ喅浜嗚繖涓棶棰樸?涓嬮潰灝辮璇村浣曠敤VBA瑙ｅ喅杩欎釜闂銆?/span>
1銆佹墦寮?ord錛岀偣鍑昏鍥鋸?鈥斿畯鈥斺?鏌ョ湅瀹?/span>
2銆佽緭鍏ュ畯鍚嶏紝鐐瑰嚮鍒涘緩
3銆佽緭鍏ュ涓嬩唬鐮?/span>
Sub test() Dim i As Table, N As Integer On Error Resume Next '蹇界暐閿欒 Application.ScreenUpdating = False '鍏抽棴灞忓箷鏇存柊 For Each i In ActiveDocument.Tables '鍦ㄨ〃鏍間腑寰幆 With i For N = 1 To .Columns.Count '浠庣涓?垪鍒版渶鍚庝竴鍒? .Rows(N).Height = 111 .Columns(N).Select '鍗曞厓鏍煎榻愭柟寮忎負涓儴灞呬腑 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Next N End With Next i Application.ScreenUpdating = TrueEnd Sub
4銆佹渶鍚庣偣鍑昏繍琛岋紝浣犱細鍙戠幇鏂囨。涓墍鏈夎〃格鐬棿鍙樻垚浜嗕綘鎯寵鐨勬晥鏋溿?瀹屾垚姝ら」鈥滄旦澶р?鐨勫伐紼嬪氨鏄姝ょ畝鍗曘?
褰撶劧錛屽浜嶸BA錛?span style="font-size:18px">浠?/span>涓婂姛鑳藉彧鏄啺灞變竴瑙掋?閫佸ぇ瀹朵竴鍙ワ細鍙湁鎯充笉鍒幫紝娌℃湁鍋氫笉鍒般?
