marchwen01的个人资料 - RAT

marchwen01 marchwen01

关注数: 26 粉丝数: 113 发帖数: 2,706 关注贴吧数: 13

请教一个关于 Wrod 表格行高的问题 word 表格的行高有三种属性： 1、 .HeightRule = wdRowHeightAuto（自动行高，会根据单元格内容的多少自动调整。）在这种属性下：Num = .Height 不管实际行高怎么变化 Num 的值都是 9999999，没错就是7个9。从这个属性转换为其他属性，在再次给 .Height 赋值之前，不管实际看到的行有多高，行高就是一行字符的高度，12像素左右。 2、.HeightRule = wdRowHeightExactly （固定行高，不管内容多少，行高固定。）在这种属性下：Num = .Height Num 就是设定好的值。很固定。 3、.HeightRule = wdRowHeightAtLeast （最小值行高，内容不多，设定的行高足以容纳单元格的内容时，行保持设定值，当内容超过单元格的容纳，行高会自动增加。）在这种属性下：Num = .Height Num 的值，永远是设定值。现在有给个需求，要在 word 表格写入内容，内容的多少不太固定，最多时会超出单元格的容纳范围，但把字体缩小一两个规格，就可以了。现在我想，有没有一种方法可以获得单元格的实际行高，因为行高的设置属性是最小值（.HeightRule = wdRowHeightAtLeast），给单元格写入内容后，当行高大于设定值时，把字体所小，以保持表格的整齐。请教：Word VBA 获得表格的实际行高，不是设定的值。

[分享] 不打开Excel文件读取数据这是受公式可以引用不打开文件数据启发而来的代码：Sub GetClosedFileValues() Dim strFN As String strFN = ThisWorkbook.Path & "\[Test.xlsx]" With Worksheets("Sheet1").Range("A1:M50") .FormulaR1C1 = "='" & strFN & "Sheet1'!rc" .Value = .Value End WithEnd Sub 把想要引用数据的单元格用 FormulaR1C1 的方式写成公式，再把公式转为单元格值。

H6coupe蓝标双离合和启辰2.0L智联智尚选哪个？喜欢哈弗，但是身边有不少人吐槽哈弗而建议启辰，现在不知道怎么选了。

1 下一页