how to detect that the end of a range is also end of a paragraph?

[mjlaali]

Hi,

how to detect that the end of a range is also end of a paragraph?

 

[Graham Mayor]

There are several ways including:

Test whether the range and the last paragraph in the range have the same end
eg

If oRng.End = oRng.Paragraphs.Last.Range.End Then
'the range end is also a paragraph end.
End If

or see what the last character of the range is e.g.

If oRng.Characters.Last = Chr(13) Then
'the range end is also a paragraph end
End If
or
If oRng.Characters.Last = vbCr Then
'the range end is also a paragraph end
End If

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[macropod]

Hi Graham,

Not quite! Try selecting the 'paragraph mark' that defines the end of a table cell, then run the following macro:
Sub Test()
'Graham's test
MsgBox Selection.Characters.Last = Chr(13)
'Macropod's test
MsgBox Asc(Selection.Characters.Last) = 13
End Sub

 

[Graham Mayor]

It could be argued that the table cell end marker is not a paragraph mark,
but I take your point.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Hi Graham,

Not quite! Try selecting the 'paragraph mark' that defines the end of a
table cell, then run the following macro:
Sub Test()
'Graham's test
MsgBox Selection.Characters.Last = Chr(13)
'Macropod's test
MsgBox Asc(Selection.Characters.Last) = 13
End Sub

--
Cheers
macropod
[Microsoft MVP - Word]

There are several ways including:

Test whether the range and the last paragraph in the range have the same
end eg

If oRng.End = oRng.Paragraphs.Last.Range.End Then
'the range end is also a paragraph end.
End If

or see what the last character of the range is e.g.

If oRng.Characters.Last = Chr(13) Then
'the range end is also a paragraph end
End If
or
If oRng.Characters.Last = vbCr Then
'the range end is also a paragraph end
End If

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Greg Maxey]

Sub ScratchMaco()
Dim oDoc As Word.Document
Set oDoc = Documents.Add
oDoc.Tables.Add oDoc.Range, 1, 1
MsgBox oDoc.Paragraphs.Count
End Sub

Both the end of cell and the end of row are counted as a parapraph :-(

It could be argued that the table cell end marker is not a paragraph
mark, but I take your point.

Hi Graham,

Not quite! Try selecting the 'paragraph mark' that defines the end
of a table cell, then run the following macro:
Sub Test()
'Graham's test
MsgBox Selection.Characters.Last = Chr(13)
'Macropod's test
MsgBox Asc(Selection.Characters.Last) = 13
End Sub

--
Cheers
macropod
[Microsoft MVP - Word]

There are several ways including:

Test whether the range and the last paragraph in the range have the
same end eg

If oRng.End = oRng.Paragraphs.Last.Range.End Then
'the range end is also a paragraph end.
End If

or see what the last character of the range is e.g.

If oRng.Characters.Last = Chr(13) Then
'the range end is also a paragraph end
End If
or
If oRng.Characters.Last = vbCr Then
'the range end is also a paragraph end
End If

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Hi,

how to detect that the end of a range is also end of a paragraph?