2,461
社区成员
发帖
与我相关
我的任务
分享
Sub Macro1()
'
' Macro1 Macro
' 宏在 2018-01-19 由 Zhao4Zhong1@163.com 录制
'
Selection.Range.Cells(1).PreferredWidthType = wdPreferredWidthPoints
Selection.Range.Cells(1).PreferredWidth = CentimetersToPoints(3)
End Sub