请问word怎么用宏把文档中所有表格的行高设置为最小

o0star0o

word中有很多表格，想批量把表格的字体设置为小四号，然后把行高拉到最小，让表格上线锁紧点，行列也最小，每次都是鼠标去挨个往上拉

1.     把表格的字号设置为：小四（只设置表格，原文其他文字不变）

2.     行高设置缩到最小

3.     行列宽缩到最小，以文字不换行为准

4.     表格居中

请问可以用宏实现吗？详情见附 表.zip (8.89 KB, 下载次数: 4)

2021-7-11 21:59 上传

点击文件名下载附件

zmj9151

____________

o0star0o

zmj9151 发表于 2021-7-12 07:21
____________

可以呢，测试能用，有个漏了，就是行距全部设置为单倍最小行距，这个麻烦帮我加下呢，这样才是最小

413191246se

* 功能：（3合1）
'1.如果选定区域，则处理选定区域表格；
'2.否则，如果光标在表格中，则处理当前表格；
'3.如果光标在表格外，则处理所有表格。

1. Sub aaaa_Table_Set()
   
2.     Dim t As Table, r As Range
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then
   
5.             If .Information(wdWithInTable) = True Then
   
6.                 Set t = .Tables(1)
   
7.                 Set r = .Tables(1).Range
   
8.             Else
   
9.                 Set r = ActiveDocument.Content
   
10.             End If
    
11.         Else
    
12.             Set r = .Range
    
13.         End If
    
14.     End With
    
15.     For Each t In r.Tables
    
16.         With t
    
17.             With .Rows
    
18.                 .WrapAroundText = False
    
19.                 .Alignment = wdAlignRowCenter
    
20.                 .HeightRule = wdRowHeightAtLeast
    
21.                 .Height = CentimetersToPoints(0)
    
22.             End With
    
23.             With .Range
    
24.                 With .Font
    
25.                     .Size = 12
    
26.                     .Color = wdColorBlue
    
27.                     .Kerning = 0
    
28.                     .DisableCharacterSpaceGrid = True
    
29.                 End With
    
30.                 With .ParagraphFormat
    
31.                     .Space1
    
32.                     .Alignment = wdAlignParagraphCenter
    
33.                     .AutoAdjustRightIndent = False
    
34.                     .DisableLineHeightGrid = True
    
35.                 End With
    
36.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter
    
37.             End With
    
38.             .AutoFitBehavior (wdAutoFitContent)
    
39.         End With
    
40.     Next
    
41. End Sub

复制代码