Sub Macro1()
'Graham Mayor - https://www.gmayor.com - Last updated - 16 Dec 2021
Dim oTable As Table
Dim oRng As Range
Dim oCtrl As InlineShape
Dim oCheck As Object

    Set oTable = ActiveDocument.Tables(ActiveDocument.Tables.Count)
    Set oRng = ActiveDocument.Range(0, 0)
    oRng.FormattedText = oTable.Range.FormattedText
    oRng.Select
     oTable.Delete


    ActiveWindow.View.ShowHiddenText = False

    For Each oCtrl In ActiveDocument.InlineShapes
        If oCtrl.OLEFormat.ProgID = "Forms.CheckBox.1" Then
            Set oCheck = oCtrl.OLEFormat.Object
            If oCheck.value = False Then
                oCheck.Select
                Selection.Font.Hidden = True
            End If
        End If
    Next oCtrl
lbl_Exit:
    Set oTable = Nothing
    Set oRng = Nothing
    Set oCtrl = Nothing
    Set oCheck = Nothing
    Exit Sub
End Sub