请问用vba如何才能让所有单元格的TopPadding = 0

tcdatongye

With Selection
  For Each mm In .Tables(1).Range.Cells
mm.TopPadding = 0
next’最终TopPadding是0.1的没变，需在对话框设置才有用。
End With

413191246se

1. Sub test()
   
2. '循环遍历所有表格/循环遍历每个表格的所有单元格
   
3.     Dim t As Table, c As Cell
   
4.     For Each t In ActiveDocument.Tables
   
5.         With t
   
6.             With .Range.Rows
   
7.                 .WrapAroundText = False '取消文字环绕
   
8.                 .Alignment = wdAlignRowCenter '居中
   
9.             End With
   
10.             For Each c In .Range.Cells
    
11.                 c.TopPadding = CentimetersToPoints(0) '上边距
    
12.                 c.VerticalAlignment = wdCellAlignVerticalTop '垂直靠上
    
13.             Next
    
14.         End With
    
15.     Next
    
16. End Sub

复制代码

tcdatongye

413191246se 发表于 2019-11-27 15:50

程序执行后，经表格属性查证，TopPadding =0.1仍没有变为0。是不是这个表格比较特殊呢？看了下，虽然表格属性里TopPadding =0.1，但用程序s=TopPadding检查，s值为-1，想问下是什么原因造成的？

413191246se

楼主，你的钻研精神确实令人钦佩！——手动设置正常，代码就不行；另外，“与整张表格相同”这个选项也无法用录制宏的方法得到。还有，这个单元格是合并后的单元格，是否也与这点有关呢？暂时无解。