Create new line Between bold print and normal print

D

DontKnow

Hi Guys,

I think I have a difficult one for you??

If I wanted to create a macro that enables me to seperate bolded text as a
heading and normal font as the standard text , How would I do that?

For Example if I had: (<bold text> - means text to the
left is bolded)

9.4 Relays and Relay Circuits <bold text> a) Vital relays are to be to BRB
Specification 930 Series.
Relay bases and crimps to suit are to be of the Westinghouse design.
b) Twin relays QNNAI and QBBAI or similar types to BRB Specification 966-F6
and 961 Series are restricted to UCR/NGPR/RGPR or RGKR/FZR or NKR/RKR or
VNR/VRR or VCSR in vital applications.

To this:

9.4 Relays and Relay Circuits <bold text>
a) Vital relays are to be to BRB Specification 930 Series.
Relay bases and crimps to suit are to be of the Westinghouse design.
b) Twin relays QNNAI and QBBAI or similar types to BRB Specification 966-F6
and 961 Series are restricted to UCR/NGPR/RGPR or RGKR/FZR or NKR/RKR or
VNR/VRR or VCSR in vital applications.

Any ideas guys??

Please help me!!

Cheers!!
 
D

Doug Robbins - Word MVP on news.microsoft.com

Nah, use:

Selection.HomeKey wdStory
Selection.Find.Font.Bold = True
With Selection.Find
Do While .Execute(FindText:="", Forward:=True, _
MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = 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, originally posted via msnews.microsoft.com
 
D

DontKnow

many thanks Doug!!
Cheers
Doug Robbins - Word MVP on news.microsof said:
Nah, use:

Selection.HomeKey wdStory
Selection.Find.Font.Bold = True
With Selection.Find
Do While .Execute(FindText:="", Forward:=True, _
MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = 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, originally posted via msnews.microsoft.com
Click to expand...
 
Top