Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function MakeParaStyle(strName As String)
        ActiveDocument.Styles.Add Name:=strName, Type:=wdStyleTypeParagraph
        With ActiveDocument.Styles(strName)
            .AutomaticallyUpdate = False
            .BaseStyle = "Normal"
            .NextParagraphStyle = "Normal"
        End With
        Dim intI As Integer
        intI = 0
        Do
            intI = Int(Rnd() * 16)
        Loop Until intI >= 2 And intI <= 16 And intI <> wdWhite
        With ActiveDocument.Styles(strName).Font
            .ColorIndex = intI
        End With
        If ActiveDocument.Type = wdTypeDocument Then
            Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:= _
            ActiveDocument.AttachedTemplate.FullName, Name:=strName, Object:= _
            wdOrganizerObjectStyles
        End If
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function MakeParaStyle(strName As String)
        ActiveDocument.Styles.Add Name:=strName, Type:=wdStyleTypeParagraph
        With ActiveDocument.Styles(strName)
            .AutomaticallyUpdate = False
            .BaseStyle = "Normal"
            .NextParagraphStyle = "Normal"
        End With
        Dim intI As Integer
        intI = 0
        Do
            intI = Int(Rnd() * 16)
        Loop Until intI >= 2 And intI <= 16 And intI <> wdWhite
        With ActiveDocument.Styles(strName).Font
            .ColorIndex = intI
        End With
        If ActiveDocument.Type = wdTypeDocument Then
            Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:= _
            ActiveDocument.AttachedTemplate.FullName, Name:=strName, Object:= _
            wdOrganizerObjectStyles
        End If
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001