A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Formatting Long Documents
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Word 2003: Applying a character style to the first sentence of every paragraph.



 
 
Thread Tools Display Modes
  #1  
Old March 29th, 2006, 05:46 PM posted to microsoft.public.word.formatting.longdocs
external usenet poster
 
Posts: n/a
Default Word 2003: Applying a character style to the first sentence of every paragraph.

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


  #2  
Old March 29th, 2006, 07:36 PM posted to microsoft.public.word.formatting.longdocs
external usenet poster
 
Posts: n/a
Default Word 2003: Applying a character style to the first sentence of every paragraph.

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

  #3  
Old March 29th, 2006, 09:52 PM posted to microsoft.public.word.formatting.longdocs
external usenet poster
 
Posts: n/a
Default Word 2003: Applying a character style to the first sentence of every paragraph.

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



  #4  
Old March 30th, 2006, 12:46 AM posted to microsoft.public.word.formatting.longdocs
external usenet poster
 
Posts: n/a
Default Word 2003: Applying a character style to the first sentenceof every paragraph.

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

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
take yet another lesson from wordperfect "reveal codes" wordperfect is superior General Discussion 5 May 11th, 2009 07:58 PM
How to put graphics on envelopes? Steve Koenig General Discussion 20 September 14th, 2007 04:40 PM
Converting WordPerfect 12 files to Word 2003 Curious New Users 3 March 29th, 2006 01:05 AM
How to change merge forms from Word Perfect to Microsoft Word Charles Kenyon General Discussion 1 December 30th, 2004 04:35 PM
Changing Attributes of "No Style" Option Michele Formatting Long Documents 14 May 22nd, 2004 11:41 PM


All times are GMT +1. The time now is 12:18 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.