我看了帮助啊,它提到一个设置宽度的例子:
Set newDoc = Documents.Add
Set myTable = _
newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
NumColumns:=5)
myTable.Cell(1, 1).Width = InchesToPoints(1.5)
可是这个InchesToPoints函数在VB里编译通不过。不知怎样才能设置成理想的宽度(word中列宽为5cm)
Set newDoc = Documents.Add
Set myTable = _
newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
NumColumns:=5)
myTable.Cell(1, 1).Width = InchesToPoints(1.5)
可是这个InchesToPoints函数在VB里编译通不过。不知怎样才能设置成理想的宽度(word中列宽为5cm)
菜单栏-工具-宏-录制一个宏来控制就好了。