鎵歸噺璁劇疆word涓?〃鏍肩殑楂樺益

鎵歸噺璁劇疆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>涓婂姛鑳藉彧鏄?啺灞變竴瑙掋?閫佸ぇ瀹朵竴鍙ワ細鍙?湁鎯充笉鍒幫紝娌℃湁鍋氫笉鍒般?