Temporary styles not deleted

[Chris Mahoney]

Hi

I've written some VBA code which goes through the current document and
removes any styles that aren't defined in a template. It correctly
removes "permanent" styles (ones you define using New Style) but seems
to ignore "temporary" ones (eg. if you select some Normal text and make
it italic, Word will create a new style called Italic). Can anyone tell
me how to check for these "temporary" styles?

Here's the code I'm using:

Dim templateDoc As Word.Document
Dim Styles() As String
Dim CurrentStyle As Integer
Dim wrdStyle As Word.Style
Dim StyleFound As Boolean
Set templateDoc =
Documents.Open(FileName:="U:\Settings\templates\styles.xml",
Visible:=False)
ReDim Styles(templateDoc.Styles.Count)
For CurrentStyle = 0 To templateDoc.Styles.Count - 1
Styles(CurrentStyle) = templateDoc.Styles(CurrentStyle +
1).NameLocal
Next
For Each wrdStyle In ActiveDocument.Styles
StyleFound = False
For CurrentStyle = 0 To templateDoc.Styles.Count
If wrdStyle.NameLocal = Styles(CurrentStyle) Then
StyleFound = True
Exit For
End If
Next
If StyleFound = False Then wrdStyle.Delete
Next
templateDoc.Close

Thanks
Chris

 

[Chris Mahoney]

I figured it out - Selection.Font.Reset

Chris