Sub ConvertTblObjs()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = .InlineShapes.Count To 1 Step -1
    With .InlineShapes(i)
      If Not .OLEFormat Is Nothing Then
        If Split(.OLEFormat.ClassType, ".")(0) = "Word" Then
          .OLEFormat.Object.Tables(1).Range.Copy
          .Range.Paste
        End If
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
MsgBox "Finished processing!"
End Sub