vba批量 调整表格 大小

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