Microsoft Office Forums - View Single Post - Ignore Table and Table Caption For Revisions

gmaxey · 08-27-2019, 11:02 AM

The code you posted shows nothing about "omitting" tables.

If you want to remove "Table" captions and those captions stand alone in its parent paragraphs, you can use:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFld As Field
  For Each oFld In ActiveDocument.Fields
    If oFld.Type = wdFieldSequence Then
      'See if it is a Table caption sequence field
      If InStr(oFld.Code, "Table") <> 0 Then
        oFld.Code.Paragraphs(1).Range.Delete
      End If
    End If
  Next oFld
lbl_Exit:
  Exit Sub
End Sub