I've searched the newsgroup and was unable to locate an answer to my
question, so here it goes...

Our users are looking for a way to apply the character style called First
Sentence, (which includes bold and underline), globally throughout long
documents without having to manually apply it. I've under the Find and
Replace option in Word 2003 but can't find how to do this. Is it even
possible?

Thank you in advance for your assistance!

__________________________________________________ _________
Vickie S. Evans, Technical Trainer | Locke Liddell & Sapp LLP | 2200 Ross
Avenue, Suite 2200, Dallas, TX 75201 | Direct: 214.740.8271 |
www.lockeliddell.com

Vickie do you mean "globally" as in apply it to every bit of the text
in the document? If so, just select all (CTRL+a) and apply the style.

Do you mean apply the "First Sentence" style globally to the first
sentence every paragraph? Then perhaps something along these lines
will do:

Sub Scratchmacro2()
Dim oPar As Paragraph
Dim oRng As Word.Range
For Each oPar In ActiveDocument.Range.Paragraphs
oPar.Range.Sentences(1).Select
With Selection
.MoveEndUntil Cset:="n", Count:=wdBackward
.Style = "First Sentence"
End With
Next oPar
End Sub

Greg,

Thanks for your response. I'm interested in the second option... apply the
"First Sentence" style globally to the first sentence every paragraph. I'll
test the code and let you know how it turns out.

Thanks again!
Vickie

I just want the first sentence of every paragraph to be styled with the
First Sentence style without having to manually apply it to each and every
one

"Greg" wrote in message
oups.com...
Vickie do you mean "globally" as in apply it to every bit of the text
in the document? If so, just select all (CTRL+a) and apply the style.

Do you mean apply the "First Sentence" style globally to the first
sentence every paragraph? Then perhaps something along these lines
will do:

Sub Scratchmacro2()
Dim oPar As Paragraph
Dim oRng As Word.Range
For Each oPar In ActiveDocument.Range.Paragraphs
oPar.Range.Sentences(1).Select
With Selection
.MoveEndUntil Cset:="n", Count:=wdBackward
.Style = "First Sentence"
End With
Next oPar
End Sub

While you're at it, have a chat to your document designer about that
underline :-)

Readability research proves conclusively that underlining text makes it
difficult to read, and causes the reader's retentivity to drop sharply.

See
http://scholar.google.com/url?sa=U&q...oceed/2000/PDF
s/00006.PDF

Readers of English read by recognising the "shape" of entire phrases. If
you underline text, you change the shape, causing the reader to have to slow
down and read word-by-word (or often, character-by-character).

Your retentivity will fall by around 70 per cent. Great if you sell the
course, you get the chance for all that repeat business to teach the
students what they should have remembered the first time.

But not so good if you are the customer paying for them :-)

Hope this helps

On 30/3/06 6:52 AM, in article ,
"Vickie S. Evans" wrote:

Greg,

Thanks for your response. I'm interested in the second option... apply the
"First Sentence" style globally to the first sentence every paragraph. I'll
test the code and let you know how it turns out.

Thanks again!
Vickie

I just want the first sentence of every paragraph to be styled with the
First Sentence style without having to manually apply it to each and every
one

"Greg" wrote in message
oups.com...
Vickie do you mean "globally" as in apply it to every bit of the text
in the document? If so, just select all (CTRL+a) and apply the style.

Do you mean apply the "First Sentence" style globally to the first
sentence every paragraph? Then perhaps something along these lines
will do:

Sub Scratchmacro2()
Dim oPar As Paragraph
Dim oRng As Word.Range
For Each oPar In ActiveDocument.Range.Paragraphs
oPar.Range.Sentences(1).Select
With Selection
.MoveEndUntil Cset:="n", Count:=wdBackward
.Style = "First Sentence"
End With
Next oPar
End Sub




--

Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.

John McGhie
Microsoft MVP, Word and Word for Macintosh. Consultant Technical Writer
Sydney, Australia +61 (0) 4 1209 1410