2 个解决方案
#1
自己先顶一下。
#2
这样行不行(Item后面的1是第几张表格,Rows后面的是第几行)
Private Sub CheckBox1_Click()
If CheckBox11.Value = False Then
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorRed
Else
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorBlue
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox11.Value = False Then
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorRed
Else
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorBlue
End If
End Sub
#1
自己先顶一下。
#2
这样行不行(Item后面的1是第几张表格,Rows后面的是第几行)
Private Sub CheckBox1_Click()
If CheckBox11.Value = False Then
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorRed
Else
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorBlue
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox11.Value = False Then
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorRed
Else
Tables.Item(1).Rows(1).Shading.BackgroundPatternColor = wdColorBlue
End If
End Sub