Remove character style with direct formatting

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

m rafala - 12 Sep 2007 18:11 GMT

I have text styled with a custom character style. Some of that text also has
direct formatting applied (bold, ital, etc.).

I need to remove the character style, but retain the direct formatting.

Possibly I also need to retain any font formatting provided by the style as.

I can do this:

For Each c In Selection.Characters
Set f = c.Font.Duplicate
c.Font.Reset
c.Font = f
Next c

but this is slow and I keep thinking I'm missing a simpler, faster way to do
this. Any suggestions?

Reply to this Message

Helmut Weber - 12 Sep 2007 21:38 GMT

Hi,

like this:

Sub Test7()
Dim aStl As Style
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
For Each aStl In ActiveDocument.Styles
If aStl.Type = 2 Then
With ActiveDocument.Range.Find
.Style = aStl
While .Execute
rDcm.Font.Reset
Wend
End With
End If
Next

End Sub

Search for character-styles only,
that is style.type = 2,
while found
reset

There are other ways as well.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

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

Reply to this Message

m rafala - 13 Sep 2007 13:22 GMT

Unfortuneately, all this does is reset the font formatting of the styled
text. I need to retain any direct formatting.

> Hi,
>
[quoted text clipped - 23 lines]
>
> There are other ways as well.

Reply to this Message

Helmut Weber - 13 Sep 2007 15:23 GMT

Hi Rafala,

i hadn't quite got what you wanted to do.

Maybe, if you don't need the particular character style any longer,
deleting it from the doc would help you.

Sub Test7()
Dim aStl As Style
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
For Each aStl In ActiveDocument.Styles
If aStl.Type = wdStyleTypeCharacter And _
aStl <> "Default Paragraph Font" Then
With rDcm.Find
.Style = aStl
While .Execute
rDcm.Select ' for testing
Stop ' for testing
ActiveDocument.Styles(aStl).Delete
Wend
End With
End If
Next
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

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

Reply to this Message

m rafala - 13 Sep 2007 16:22 GMT

Ah. Excellent. I didn't think of that.

This does indeed retain the direct formatting. I do loose the formatting
that's build into the style (such as bold), but I can reapply that if needed
after deleting the style. thanks.

> Hi Rafala,
>
[quoted text clipped - 21 lines]
> Next
> End Sub

Reply to this Message