如何将所有行的 MS Word 2010 表行高属性从“完全”更改为“至少”，同时保持指定的行高值不变

Posted 2023-02-23

【中文标题】如何将所有行的 MS Word 2010 表行高属性从“完全”更改为“至少”，同时保持指定的行高值不变

【英文标题】：How to change MS Word 2010 Table row height property from "Exactly" to "At Least" for all rows while leaving the specified row height value as is

【发布时间】：2017-10-17 00:31:15

【问题描述】：

有没有办法将所有行的 MS Word Table 行高属性从“完全”更改为“至少”，同时保留每行的指定行高值。

我使用预先创建的 Word 文档，这些文档可以包含数百个表和数百行，这些表指定了不同的行高值，并且所有行都设置为“精确”。这可能会导致文本换行问题，其中文本在行下方换行并被隐藏。我想将所有行更改为至少使用但保留已指定的值以保持最小行高，这似乎解决了文本换行问题。

例子

Row one:   Specify Height: .14 / Row Height is: Exactly  
Row two:   Specify Height: .16 / Row Height is: Exactly  
Row three: Specify Height: .16 / Row Height is: Exactly  
Row four:  Specify Height: .2  / Row Height is: Exactly  

我需要能够在所有行中将“完全”更改为“至少”，但要保持指定的行高值。

Row one:   Specify Height: .14 / Row Height is: At least  
Row two:   Specify Height: .16 / Row Height is: At least  
Row three: Specify Height: .16 / Row Height is: At least  
Row four:  Specify Height: .2  / Row Height is: At least  

有没有办法通过 VBA 或其他方式做到这一点？

【参考方案1】：

试试这个：

'Exactly
Tables(1).Rows.HeightRule = wdRowHeightExactly

'At Least
Tables(1).Rows.HeightRule = wdRowHeightAtLeast

'To set the row height:
Tables(1).Rows.Height = CentimetersToPoints(0.5)

【讨论】：

对于行高，我需要现有的行高保持原样，这可以改变行与行，这就是挑战。

好吧，那就别改了。仅更改高度规则。

我尝试仅更改高度规则 Tables(1).Rows.HeightRule = wdRowHeightAtLeast 但它将所有行更改为相同的高度。