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

是否有一种方法可以将所有行的MS Word表格行高属性从“精确”更改为“至少”，同时保持每行的指定行高值不变

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

范例

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或其他方式做到这一点？

试试以下方法：

'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)

---

对于行高，我需要现有的行高保持不变，这可能会因行而异，这是一个挑战。那么，不要更改它。仅更改高度规则。我尝试仅更改高度规则table1.Rows.HeightRule=wdrowheights，但它将所有行更改为相同的高度。