璁疆word涓琛ㄦ搴

?妗ｇ跺?涓?釜棰?滑妗ｏ澶ч?杩A?杩A妗ｏ濂藉E琛?#26684;格寮寰瑗琛格搴?氨瀛窘C戒杩藉淇广讳涓妗ｅ版濂藉釜琛?#26684;瑕涓?淇圭璇Q涓?氨骞插锛澶伐浣?璁涔ヨ@涓?浜浜娆″Q涔瀹绠ラ璋涓|浜涓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昏琛浣。涓〃格村浣?瀹姝ら」旦澶р?伐氨濮@姝ょ?

褰逛VBA?span style="font-size:18px">浠?/span>涓藉板弊瑙?ぇ瀹朵ワ涓图病涓?