Selecting a word before a character to make bold...

  • Thread starter Thread starter rohit92
  • Start date Start date
R

rohit92

Hey guys,
I think this might help me in the future, but I want to use something like
this for school. Say i have this text:
"dog- an animal that barks
cat- an animal that meows"

So what I want to do is select the words before the "-" to make them bold.
The words dog and cat should be bold. Sometimes i have very large lists to do
this with and it gets annoying to constantly select each word and make it
bold.. So let me know if it is possible.
 
Select all of the paragraphs and then run a macro containing the following
code:

Dim i As Long
Dim rng As Range
With Selection
For i = 1 To .Paragraphs.Count
Set rng = .Paragraphs(i).Range
rng.End = rng.Start + InStr(rng, "-") - 1
rng.Font.Bold = True
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
I see we have two threads on the same subject :(

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

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top