word 修改 表宽度
摘要：
Private Sub Document_New()For Each tb In ThisDocument.Tables tb.AllowAutoFit = False For Each col In tb.Columns col.Width = 50 Next NextFor Each oTable In ThisDocument.Tables Dim oCols As Integer oCols = oTable.Columns.Count For Each oCol In oTable.Columns If oCols = 2 Then Select Case oCol.I... 阅读全文
posted @ 2011-12-30 20:48 Kevin Kim 阅读(185) 评论(0) 推荐(0) 编辑