标题：[求助] 用什么代码实现最佳列宽 （已解决）

各位高手，列宽设置里的那个“最佳列宽”按钮蛮有用的，用什么代码让列实现最佳列宽。

没有提供代码。
双击列标题分界，可以快速自动列宽。

建议老爹加一个自动实现的代码，有时候经常要去设置列宽，太麻烦了！

可以这样,不过Sendkeys的效率太低,不好用:
Dim Tb As Table = CurrentTable
For cl As integer = 0 to Tb.Cols.count-1
    Tb.Select(0,cl)
    Sendkeys.Send("{Tab 3} ")
    Syscmd.Column.Width()
Next

谢谢don兄，参照你的代码稍加修改，已经搞定，再次感谢。

可能这样速度好一些。

CurrentTable.Select(0,0,0,CurrentTable.Cols.Count-1)
Sendkeys.Send("{Tab 3} ")
Syscmd.Column.Width()
CurrentTable.Select(0,0)

高

高,原来可以如易表那样统一选定设置的

 Dim cl As integer = Tb.Cols.count-1
 If CurrentTable.Current IsNot Nothing then
Tb.Select(0,0,0,cl)
Sendkeys.Send("{Tab 3} ")
Syscmd.Column.Width()
End if

我是这样写的，不过看czy兄的更精简，复制了，谢谢大家的帮助！

2楼狐爸的建议让我又学习了一招，谢谢~~~