vba批量 调整表格 大小
发布时间 2024-01-12 17:02:35作者: 码农at突泉
Sub 宏1()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oTable As Table
For Each oTable In oDoc.Tables
oTable.Columns(1).Width = 30
oTable.Columns(2).Width = 50
oTable.Columns(3).Width = 600
oTable.PreferredWidth = 300
With oTable.Cell(3, 3).Range
.Font.Name = "楷体"
.Font.ColorIndex = wdBlue
.Font.Size = 11
End With
Next
End Sub