RE: Style Comparison

["Steve Hudson" <steve -at- wright -dot- com -dot- au>]

Indeed we were just discussing that the other day onlist

I used these two macros to generate my output to the list. Do this for each
set of styles and then use Compare Documents to generate the list of
diffs...

Of course you will have to edit the content of GimmeStyleNames but that
should be a doddle

Sub StyleLister()
    Dim StyleCounter As Integer, k As Integer
    Dim InDoc As Word.Document, OutDoc As Word.Document
    Dim s As Word.Style
    Dim myStyles() As String
    Dim Flag As Boolean

    GimmeStyleNames myStyles()
    Set InDoc = ActiveDocument
    Set OutDoc = Documents.Add
    InDoc.Select
    With OutDoc.Range
'changing stylesets (internal) clipped
            For StyleCounter = 1 To InDoc.Styles.Count
                Set s = InDoc.Styles(StyleCounter)
                Flag = False
                For k = 1 To UBound(myStyles) 'my style or built-in?
                    If s.NameLocal = myStyles(k) Then
                        Flag = True
                        Exit For
                    End If
                Next
                If Flag Then
                    .InsertAfter s.NameLocal & vbTab & s.Description
                    .InsertParagraphAfter
                End If
            Next
    End With
End Sub

Sub GimmeStyleNames(AnArray() As String)
    ReDim AnArray(46) As String

    AnArray(1) = "Normal"
    AnArray(2) = "Default Paragraph Font"
    AnArray(3) = "Body Text"
    AnArray(4) = "Body Text C"
    AnArray(5) = "Body Text R"
    AnArray(6) = "Code"
    AnArray(7) = "Copyright"
    AnArray(8) = "Emphasis"
    AnArray(9) = "FollowedHyperlink"
    AnArray(10) = "Footer"
    AnArray(11) = "Glossary"
    AnArray(12) = "Header"
    AnArray(13) = "Heading 1"
    AnArray(14) = "Heading 2"
    AnArray(15) = "Heading 3"
    AnArray(16) = "Heading 4"
    AnArray(17) = "Heading 5"
    AnArray(18) = "Heading 6"
    AnArray(19) = "Heading 7"
    AnArray(20) = "Heading 8"
    AnArray(21) = "Heading 9"
    AnArray(22) = "Heading 1 No TOC"
    AnArray(23) = "Heading 2 No TOC"
    AnArray(24) = "Heading-table-centred"
    AnArray(25) = "Heading-table-left"
    AnArray(26) = "Heading-table-right"
    AnArray(27) = "Hyperlink"
    AnArray(28) = "Input"
    AnArray(29) = "KeyPress"
    AnArray(30) = "List Bullet"
    AnArray(31) = "List Number"
    AnArray(32) = "List Number Outline"
    AnArray(33) = "Output"
    AnArray(34) = "Page Number"
    AnArray(35) = "Subtitle"
    AnArray(36) = "Terminal Screen"
    AnArray(37) = "TextBox"
    AnArray(38) = "TextBox C"
    AnArray(39) = "TextBox R"
    AnArray(40) = "Title"
    AnArray(41) = "TOC 1"
    AnArray(42) = "TOC 2"
    AnArray(43) = "TOC 3"
    AnArray(44) = "TOC 4"
    AnArray(45) = "Version"
    AnArray(46) = "Generic"
End Sub



Steve Hudson
Principal Technical Writer
Wright Technologies (Aus)
steve -at- wright -dot- com -dot- au
(612) 9518-1822
The best way to predict the future... is to create it!


 -----Original Message-----
From: 	Patti Arteaga

I've seen a couple of notes going back and forth regarding comparing styles.
We've just instituted a new style for all of our documents and I was in the
process of changing them over.  Our Director of Engineering decided to
modify our new styles and now I need to compare the styles.  Is there a
simple way (I've never used VBA) to print out and compare each style in two
different documents?

Patti Arteaga


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Planning to attend IPCC 01, October 24-27 in Santa Fe?  Sign up by
October 3 and get a substantial discount!  Program information, 
online registration, and more on http://ieeepcs.org/2001/

  Your monthly sponsorship message here reaches more than
  5000 technical writers, providing 2,500,000+ monthly impressions.
  Contact Eric (ejray -at- raycomm -dot- com) for details and availability.

---
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.