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
…
Top comments (0)