Answer: Find all table/figure in Word file not formatted wdWrapInline

Is this what you want?

Sub Find_all_table_figure_in_Word_file_not_formatted_wdWrapInline()
    'CheckWrapType()
    Dim shp As Shape ' Tables always in line so they don't have WrapFormat property.
    Dim sr As Range
    Dim d As Document
    Dim bk As Bookmark, i As Long 'you can bookmark them to navigate after
    Dim cln As New VBA.Collection