find and replace a font change

[juditabjuditab]

How do you find a font change? I have records where the first half of
the line is bold and the second is regular font. The last letter of
the bold part would have to be found using a wildcard but the first
character of the regular font is always a space. I would then like to
change the space to a line break. Thanks!

 

[Doug Robbins - Word MVP]

Use

Selection.HomeKey wdStory
Selection.Find.Font.Bold = True
With Selection.Find
Do While .Execute(findText:="", Forward:=True, _
MatchWildcards:=False, MatchCase:=True, Wrap:=wdFindStop) = True
Selection.Collapse wdCollapseEnd
Selection.InsertAfter vbCr
Loop
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

 

[juditabjuditab]

This worked perfectly!!! Thanks so much.
J