select first sentence of paragraph

[bbarger]

I am trying to loop through the paragraphs of a document and
select in turn the first sentence of each paragraph, and
apply formatting.

The line below selects the whole paragraph:


Selection.MoveDown Unit:=wdParagraph, Extend:=wdSentence

Can anyone tell me how to select just the first sentence?
Or provide a link that demonstrates this?

Thanks,

Bob Barger

 

[Greg Maxey]

Bob,

Maybe something like:

Sub ScratchMacro()
Dim oPar As Paragraph
For Each oPar In ActiveDocument.Paragraphs
oPar.Range.Sentences(1).Bold = True
Next
End Sub

 

[bbarger]

Greg,

Thank you very much! This is just what I was looking for.

Bob


-->Bob,
-->
-->Maybe something like:
-->
-->Sub ScratchMacro()
-->Dim oPar As Paragraph
-->For Each oPar In ActiveDocument.Paragraphs
--> oPar.Range.Sentences(1).Bold = True
-->Next
-->End Sub