Sub AppendixParens()
'   Charles Kenyon and Andrew Lockton using code from Graham Mayor
'   October 21, 2021
'   https://www.msofficeforums.com/word/47835-putting-parentheses-around-sequence-number-caption-label.html
    Dim oStory As Range, oFld As Field, iCount As Integer, aRng As Range
    On Error Resume Next
      For Each oStory In ActiveDocument.StoryRanges
        For Each oFld In oStory.Fields
          If oFld.Type = wdFieldSequence Then
            If oFld.Code Like "*Table*" Then
              Set aRng = oFld.Result
              oFld.Select       'need to use selection object to make insertbefore go outside of field
              Selection.Range.InsertBefore "("
              Selection.Range.InsertAfter ")"
              iCount = iCount + 1
            End If
          End If
        Next oFld
      Next
    Set oFld = Nothing
    Set oStory = Nothing
    On Error GoTo 0
    MsgBox iCount & " instances bracketed.", vbOKOnly, "Macro complete"
End Sub