; For colloop = 0 To colMax - 1
WdApp.Selection.Font.Size = 9
If i = 0 Then
'表格中标题加粗显示
WdApp.Selection.Font.Bold = wdToggle
'表格标题行背景颜色设置为灰色,灰度为30
With WdApp.Selection.Cells
With .Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorGray30
End With
上一页 [1] [2] [3] [4] [5] [6] 下一页 |
