reset font format to default but keep the bold formatting..>>

hello, I'm looking for a way to remove all font formatting from a Word
document except the bold. Appreciate any suggestions. Thanks, Michiel

Jezebel
Tue Mar 07 07:48:34 CST 2006

1. Define a character style called maybe "BoldText". The actual style
features are irrelevant -- it's only the name you need. Not that it must be
a *character* style, not a paragraph style.

2. Use Find and Replace. Leave the Find box blank and set the format to Font
> Bold. Leave the Replace box blank and set the format to Style =
"BoldText". Click Replace All.

3. Select the entire document and reset the styles: Ctrl-A Ctrl-Q
Ctrl-Space.

4. Use the above Find and Replace in reverse: Find format > Style =
"BoldText", Replace with format > Font > bold.

5. Delete the "BoldText" style.




michiel" <michiel@discussions.microsoft.com> wrote in message
news:7315B89D-CF0F-47BC-9AAA-0C2808303E6B@microsoft.com...
> hello, I'm looking for a way to remove all font formatting from a Word
> document except the bold. Appreciate any suggestions. Thanks, Michiel

michiel
Tue Mar 07 08:30:34 CST 2006

thanks, but that doesn't really work. Problem is that by clearing the format
thru ctrl+q and ctrl+space, you also delete the boldtext style so that the
second find and replace doesn't work anymore. But thanks for taking the time
to respond to my question!

"Jezebel" wrote:

> 1. Define a character style called maybe "BoldText". The actual style
> features are irrelevant -- it's only the name you need. Not that it must be
> a *character* style, not a paragraph style.
>
> 2. Use Find and Replace. Leave the Find box blank and set the format to Font
> > Bold. Leave the Replace box blank and set the format to Style =
> "BoldText". Click Replace All.
>
> 3. Select the entire document and reset the styles: Ctrl-A Ctrl-Q
> Ctrl-Space.
>
> 4. Use the above Find and Replace in reverse: Find format > Style =
> "BoldText", Replace with format > Font > bold.
>
> 5. Delete the "BoldText" style.
>
>
>
>
> michiel" <michiel@discussions.microsoft.com> wrote in message
> news:7315B89D-CF0F-47BC-9AAA-0C2808303E6B@microsoft.com...
> > hello, I'm looking for a way to remove all font formatting from a Word
> > document except the bold. Appreciate any suggestions. Thanks, Michiel
>
>
>

Klaus
Sat Mar 25 06:02:40 CST 2006

Hi Michiel,

Two snags:
-- Bold may be applied by styles.
-- If you have a bold style and something in that has been unbolded, you
likely don't want to loose that either?

You could
-- tag bold text first (Find/Replace "Font = bold" with <b>^&</b>),
(both bold from styles and manual bolding will be tagged)
-- reset the font,
-- remove all bold formatting (say by replacing "bold" with "not bold"),
-- then replace (using "Match wildcards"):
Find what: \<b\>(*)\</b\>
Replace with: \1 ((+ Format > Font = bold))

-- Finally save the doc before you work further on it. You'll have applied
manual bold formatting to all bold styles (headings?...).
A Save will enable Word to clean that unnecessary formatting up.

Greetings,
Klaus


"michiel" wrote:
> thanks, but that doesn't really work. Problem is that by clearing the
> format
> thru ctrl+q and ctrl+space, you also delete the boldtext style so that the
> second find and replace doesn't work anymore. But thanks for taking the
> time
> to respond to my question!
>
> "Jezebel" wrote:
>
>> 1. Define a character style called maybe "BoldText". The actual style
>> features are irrelevant -- it's only the name you need. Not that it must
>> be
>> a *character* style, not a paragraph style.
>>
>> 2. Use Find and Replace. Leave the Find box blank and set the format to
>> Font
>> > Bold. Leave the Replace box blank and set the format to Style =
>> "BoldText". Click Replace All.
>>
>> 3. Select the entire document and reset the styles: Ctrl-A Ctrl-Q
>> Ctrl-Space.
>>
>> 4. Use the above Find and Replace in reverse: Find format > Style =
>> "BoldText", Replace with format > Font > bold.
>>
>> 5. Delete the "BoldText" style.
>>
>>
>>
>>
>> michiel" <michiel@discussions.microsoft.com> wrote in message
>> news:7315B89D-CF0F-47BC-9AAA-0C2808303E6B@microsoft.com...
>> > hello, I'm looking for a way to remove all font formatting from a Word
>> > document except the bold. Appreciate any suggestions. Thanks, Michiel
>>
>>
>>

Helmut
Sat Mar 25 08:42:31 CST 2006

Hi Klaus,

how about this one,
coded with respect to speed
and with respect to avoiding repagination by inserting tags,
at least to some extend.

I think in principle it could be used in quite a variety of cases:

Sub test000()
Dim oPrg As Paragraph
Dim rWrd As Range
Dim rChr As Range
For Each oPrg In ActiveDocument.Paragraphs
If oPrg.Range.Font.Bold = False Then
oPrg.Range.Font.Reset
ElseIf oPrg.Range.Font.Bold = True Then
oPrg.Range.Font.Reset
oPrg.Range.Font.Bold = True
ElseIf oPrg.Range.Font.Bold = 9999999 Then
For Each rWrd In oPrg.Range.Words
If rWrd.Font.Bold = False Then
rWrd.Font.Reset
ElseIf rWrd.Font.Bold = True Then
rWrd.Font.Reset
rWrd.Font.Bold = True
ElseIf rWrd.Font.Bold = 9999999 Then
For Each rChr In rWrd.Characters
If rChr.Font.Bold = True Then
rChr.Font.Reset
rChr.Font.Bold = True
ElseIf rChr.Font.Bold = False Then
rChr.Font.Reset
End If
Next
End If
Next
End If
Next
End Sub


I am not sure, whether formatting something as bold,
which is bold anyway, may cause problems sometime.

--
Gruß aus Landsberg am Lech

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Klaus
Sat Mar 25 14:06:35 CST 2006

Hi Helmut,

Interesting approach, looks well optimized! Though 3 replacements and
"FontReset" on the whole doc is likely pretty fast, too...
Not sure what program would "win".

It might depend on the specifics of the document (how large? how much bold
text? ...).

Regards,
Klaus


"Helmut Weber" <nbhymsjxdgcn@mailinator.com> wrote:
> Hi Klaus,
>
> how about this one,
> coded with respect to speed
> and with respect to avoiding repagination by inserting tags,
> at least to some extend.
>
> I think in principle it could be used in quite a variety of cases:
>
> Sub test000()
> Dim oPrg As Paragraph
> Dim rWrd As Range
> Dim rChr As Range
> For Each oPrg In ActiveDocument.Paragraphs
> If oPrg.Range.Font.Bold = False Then
> oPrg.Range.Font.Reset
> ElseIf oPrg.Range.Font.Bold = True Then
> oPrg.Range.Font.Reset
> oPrg.Range.Font.Bold = True
> ElseIf oPrg.Range.Font.Bold = 9999999 Then
> For Each rWrd In oPrg.Range.Words
> If rWrd.Font.Bold = False Then
> rWrd.Font.Reset
> ElseIf rWrd.Font.Bold = True Then
> rWrd.Font.Reset
> rWrd.Font.Bold = True
> ElseIf rWrd.Font.Bold = 9999999 Then
> For Each rChr In rWrd.Characters
> If rChr.Font.Bold = True Then
> rChr.Font.Reset
> rChr.Font.Bold = True
> ElseIf rChr.Font.Bold = False Then
> rChr.Font.Reset
> End If
> Next
> End If
> Next
> End If
> Next
> End Sub
>
>
> I am not sure, whether formatting something as bold,
> which is bold anyway, may cause problems sometime.
>
> --
> Gruß aus Landsberg am Lech
>
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"

michiel
Sun Mar 26 16:50:46 CST 2006



"Klaus Linke" wrote:

> Hi Michiel,
>
> Two snags:
> -- Bold may be applied by styles.
> -- If you have a bold style and something in that has been unbolded, you
> likely don't want to loose that either?
>
> You could
> -- tag bold text first (Find/Replace "Font = bold" with <b>^&</b>),
> (both bold from styles and manual bolding will be tagged)
> -- reset the font,
> -- remove all bold formatting (say by replacing "bold" with "not bold"),
> -- then replace (using "Match wildcards"):
> Find what: \<b\>(*)\</b\>
> Replace with: \1 ((+ Format > Font = bold))
>
> -- Finally save the doc before you work further on it. You'll have applied
> manual bold formatting to all bold styles (headings?...).
> A Save will enable Word to clean that unnecessary formatting up.
>
> Greetings,
> Klaus
>
>
> "michiel" wrote:
> > thanks, but that doesn't really work. Problem is that by clearing the
> > format
> > thru ctrl+q and ctrl+space, you also delete the boldtext style so that the
> > second find and replace doesn't work anymore. But thanks for taking the
> > time
> > to respond to my question!
> >
> > "Jezebel" wrote:
> >
> >> 1. Define a character style called maybe "BoldText". The actual style
> >> features are irrelevant -- it's only the name you need. Not that it must
> >> be
> >> a *character* style, not a paragraph style.
> >>
> >> 2. Use Find and Replace. Leave the Find box blank and set the format to
> >> Font
> >> > Bold. Leave the Replace box blank and set the format to Style =
> >> "BoldText". Click Replace All.
> >>
> >> 3. Select the entire document and reset the styles: Ctrl-A Ctrl-Q
> >> Ctrl-Space.
> >>
> >> 4. Use the above Find and Replace in reverse: Find format > Style =
> >> "BoldText", Replace with format > Font > bold.
> >>
> >> 5. Delete the "BoldText" style.
> >>
> >>
> >>
> >>
> >> michiel" <michiel@discussions.microsoft.com> wrote in message
> >> news:7315B89D-CF0F-47BC-9AAA-0C2808303E6B@microsoft.com...
> >> > hello, I'm looking for a way to remove all font formatting from a Word
> >> > document except the bold. Appreciate any suggestions. Thanks, Michiel
> >>
> >>
> >>
>
>
>

michiel
Sun Mar 26 16:51:44 CST 2006



"Helmut Weber" wrote:

> Hi Klaus,
>
> how about this one,
> coded with respect to speed
> and with respect to avoiding repagination by inserting tags,
> at least to some extend.
>
> I think in principle it could be used in quite a variety of cases:
>
> Sub test000()
> Dim oPrg As Paragraph
> Dim rWrd As Range
> Dim rChr As Range
> For Each oPrg In ActiveDocument.Paragraphs
> If oPrg.Range.Font.Bold = False Then
> oPrg.Range.Font.Reset
> ElseIf oPrg.Range.Font.Bold = True Then
> oPrg.Range.Font.Reset
> oPrg.Range.Font.Bold = True
> ElseIf oPrg.Range.Font.Bold = 9999999 Then
> For Each rWrd In oPrg.Range.Words
> If rWrd.Font.Bold = False Then
> rWrd.Font.Reset
> ElseIf rWrd.Font.Bold = True Then
> rWrd.Font.Reset
> rWrd.Font.Bold = True
> ElseIf rWrd.Font.Bold = 9999999 Then
> For Each rChr In rWrd.Characters
> If rChr.Font.Bold = True Then
> rChr.Font.Reset
> rChr.Font.Bold = True
> ElseIf rChr.Font.Bold = False Then
> rChr.Font.Reset
> End If
> Next
> End If
> Next
> End If
> Next
> End Sub
>
>
> I am not sure, whether formatting something as bold,
> which is bold anyway, may cause problems sometime.
>
> --
> GruÃ? aus Landsberg am Lech
>
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"
>