RE: 100 X 2 MS Word Docs

["Kevin Christy" <kevinchristy -at- socal -dot- rr -dot- com>]

FYI Trudie, here's a macro I recorded that deletes every instance of the
style 'Code' from a document. All that will be left (in my test, at least)
is the last Code paragraph marker, which Word doesn't delete. Of course, you
can change it to whatever style you want.

-Kevin

*************************
' delete_code_style Macro
' Macro recorded 5/30/02 by Kevin Christy
'
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Code")
    Selection.Find.ParagraphFormat.Borders.Shadow = False
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

-----Original Message-----
From: bounce-techwr-l-92043 -at- lists -dot- raycomm -dot- com
[mailto:bounce-techwr-l-92043 -at- lists -dot- raycomm -dot- com]On Behalf Of Kevin
Christy
Sent: Thursday, May 30, 2002 6:57 AM
To: TECHWR-L
Subject: RE: 100 X 2 MS Word Docs



Trudie said:

>>Is there an easier way to manage these documents? I'd like to strip the
tangled formatting and styles and find a way to make global changes when
updating these documents.<<

I would make the teacher notes a unique style, and simply use a macro to
strip every instance of the style out of the document when you convert it to
a student version. I used to have a macro to do this, but know I can't find
it... let me know if you need help on this.

Kevin




^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Check out RoboDemo for tutorials! It makes creating full-motion software
demonstrations and other onscreen support materials easy and intuitive.
Need RoboHelp? Save $100 on RoboHelp Office in May with our mail-in rebate.
Go to http://www.ehelp.com/techwr-l

Free copy of ARTS PDF Tools when you register for the PDF
Conference by May 15. Leading-Edge Practices for Enterprise
& Government, June 3-5, Bethesda,MD. www.PDFConference.com

---
You are currently subscribed to techwr-l as: archive -at- raycomm -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot-  Visit http://www.raycomm.com/techwhirl/ for more resources and info.