使用VBA的表格MS字中的条件格式设置列

Question

我已经生成了VBA代码，以帮助为MS Word中的表格设置条件格式。我试图将此代码仅应用于表中的有限列。仅第5列和第6列。请提供帮助。

我有一个宏，可以根据同一单元格中的文本更改Word中表格的背景颜色，类似于Excel的条件格式设置规则。

但是我想将其限制为特定列-表中的第5和6列。

我的代码在下面；但这会将其应用于两个列。

任何人都知道如何重新编码，因此它仅适用于表第5列和第6列。

Sub ColourSelectedTable()
    Application.ScreenUpdating = False
    Dim c As Cell
    With Selection
      If .Information(wdWithInTable) Then
        For Each c In .Tables(1).Range.Cells
          Select Case Split(c.Range.Text, vbCr)(0)
            Case 1: c.Shading.BackgroundPatternColor = wdColorGreen
            Case 2: c.Shading.BackgroundPatternColor = wdColorGreen
            Case 3: c.Shading.BackgroundPatternColor = wdColorYellow
            Case 4: c.Shading.BackgroundPatternColor = wdColorRed
            Case Else: c.Shading.BackgroundPatternColor = wdColorAutomatic
          End Select
        Next
      End If
    End With
    Application.ScreenUpdating = True
End Sub