This example formats the first table of authorities in the active document to include all citations in the first category (by default, the Cases category).
If ActiveDocument.TablesOfAuthorities.Count >= 1 Then
ActiveDocument.TablesOfAuthorities(1).Category = 1
End If