atw: Re: Delete unused styles

Thank you

Regards
Donald Halley=20

-----Original Message-----
From: austechwriter-bounce@xxxxxxxxxxxxx
[mailto:austechwriter-bounce@xxxxxxxxxxxxx] On Behalf Of LIVERANI Petra
Sent: Thursday, 23 December 2004 3:00 PM
To: austechwriter@xxxxxxxxxxxxx
Subject: atw: Re: Delete unused styles

Hi Donald,
Editorium provides the macro below (
<http://lists.topica.com/lists/editorium/read/message.html?mid=3D17173814=
1
6>
http://lists.topica.com/lists/editorium/read/message.html?mid=3D171738141=
6
).



Sub DeleteUnusedStyles()

'Courtesy of the Editorium

'www.editorium.com

For Each sty In ActiveDocument.Styles

If sty.BuiltIn =3D False Then

If sty.InUse =3D False Then

    sty.Delete

Else

    Selection.HomeKey Unit:=3DwdStory

    Selection.Find.ClearFormatting

    Selection.Find.Style =3D ActiveDocument.Styles(sty)

    With Selection.Find

        .Text =3D ""

        .Replacement.Text =3D ""

        .Forward =3D True

        .Wrap =3D wdFindStop

        .Format =3D True

        .MatchCase =3D False

        .MatchWholeWord =3D False

        .MatchWildcards =3D False

        .MatchSoundsLike =3D False

        .MatchAllWordForms =3D False

    End With

    Selection.Find.Execute

    If Selection.Find.Found =3D False Then sty.Delete

End If

End If

Next sty

Selection.HomeKey Unit:=3DwdStory

End Sub

Regards,
Petra





-----Original Message-----
From: austechwriter-bounce@xxxxxxxxxxxxx
[  <mailto:austechwriter-bounce@xxxxxxxxxxxxx>
mailto:austechwriter-bounce@xxxxxxxxxxxxx]
Sent: Thursday, 23 December 2004 15:13 PM
To: austechwriter@xxxxxxxxxxxxx
Subject: atw: Delete unused styles


Hi everyone

Many moons ago, in the days of Word 2 or Word 6, there was a disk of
extras that included an excellent macro called 'DeleteUnusedStyles'.
Does anyone still have a copy of the macro?

Regards
Donald Halley
MAXEN Pty Ltd.
Phone: +61 (08) 8231 7900
Fax: +61 (08) 8231 3766
<  <http://www.maxen.com.au/> http://www.maxen.com.au/ <blocked::
<http://www.maxen.com.au/> http://www.maxen.com.au/> > Disclaimer This
message contains privileged and/or confidential information intended
only for the use of the addressee named above.

If you are not the intended recipient of this message you are hereby
notified that you must not disseminate, re-transmit, copy or take any
action in reliance on it. If you have received this message in error,
please notify MAXEN immediately, and delete this email from your system.

Any loss/damage incurred by using this material is not the sender's
responsibility. Any views expressed in this message are those of the
individual sender, except where the sender specifically states them to
be the views of the MAXEN Pty Ltd. We do not guarantee that this
material is free from viruses or any other defects





**************************************************
To post a message to austechwriter, send the message to
austechwriter@xxxxxxxxxxxxxx

To subscribe to austechwriter, send a message to
austechwriter-request@xxxxxxxxxxxxx with "subscribe" in the Subject
field.

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx
with "unsubscribe" in the Subject field.

To search the austechwriter archives, go to
www.freelists.org/archives/austechwriter

To contact the list administrator, send a message to
austechwriter-admins@xxxxxxxxxxxxx
**************************************************



IMPORTANT NOTICE: This e-mail and any attachment to it are intended only
to be read or used by the named addressee. It is confidential and may
contain legally privileged information. No confidentiality or privilege
is waived or lost by any mistaken transmission to you. The RTA is not
responsible for any unauthorised alterations to this e-mail or
attachment to it. Views expressed in this message are those of the
individual sender, and are not necessarily the views of the RTA. If you
receive this e-mail in error, please immediately delete it from your
system and notify the sender. You must not disclose, copy or use any
part of this e-mail if you are not the intended recipient.

**************************************************
To post a message to austechwriter, send the message to
austechwriter@xxxxxxxxxxxxxx

To subscribe to austechwriter, send a message to
austechwriter-request@xxxxxxxxxxxxx with "subscribe" in the Subject
field.

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx
with "unsubscribe" in the Subject field.

To search the austechwriter archives, go to
www.freelists.org/archives/austechwriter

To contact the list administrator, send a message to
austechwriter-admins@xxxxxxxxxxxxx
**************************************************
**************************************************
To post a message to austechwriter, send the message to 
austechwriter@xxxxxxxxxxxxxx

To subscribe to austechwriter, send a message to 
austechwriter-request@xxxxxxxxxxxxx with "subscribe" in the Subject field.

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx with 
"unsubscribe" in the Subject field.

To search the austechwriter archives, go to 
www.freelists.org/archives/austechwriter

To contact the list administrator, send a message to 
austechwriter-admins@xxxxxxxxxxxxx
**************************************************

Other related posts: