Range contains full table rows?

[Alex]

Hello,

What's the best way to find whether a range (or selection) contains only table rows (and possibly, non-table text)?

Thanks,
Alex.

 

[Alex]

The formulation of the question was very confused.

Basically, I wanted to know whether the selection encompassed only complete table rows (including end-of-row markers).

Here's my solution:

Public Function OnlyCompleteRows(rng As Range) As Boolean
OnlyCompleteRows = False
If rng.Information(wdWithInTable) And rng.Information(wdStartOfRangeColumnNumber) = 1 Then
Dim rng2 As Range
Set rng2 = Selection.Characters.Last
rng2.Collapse(wdCollapseStart)
If rng2.Information(wdAtEndOfRowMarker) Then
OnlyCompleteRows = True
End If
End If
End Function

Can it be optimized?


Best wishes,
Alex.