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 doCStyleNew(strName)
' Procedure :   doCStyleNew
' Description:  Optionally create, but apply the named character style.
' Copyright: Chris Greaves Inc.
' Inputs:       String (style name)
' Returns:      None.
' Assumes:      None.
' Side Effects: The current selected text will be reformatted in the chosen style.
' Tested:       By the calls shown below.
    Dim bool As Boolean
    bool = False
    Dim sty As Style
    For Each sty In ActiveDocument.Styles
        If UCase(sty) = UCase(strName) Then
            bool = True
            Exit For
        Else
        End If
    Next sty
    If bool Then
    Else
        ActiveDocument.Styles.Add Name:=strName, Type:=wdStyleTypeCharacter
        With ActiveDocument.Styles(strName)
'            .AutomaticallyUpdate = False
            .BaseStyle = "Default Paragraph Font"
            .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 If
    Selection.Style = ActiveDocument.Styles(strName)
'Sub TESTCStyleNew()
'Call doCStyleNew("aaabc")
'End Sub
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 doCStyleNew(strName)
' Procedure :   doCStyleNew
' Description:  Optionally create, but apply the named character style.
' Copyright: Chris Greaves Inc.
' Inputs:       String (style name)
' Returns:      None.
' Assumes:      None.
' Side Effects: The current selected text will be reformatted in the chosen style.
' Tested:       By the calls shown below.
    Dim bool As Boolean
    bool = False
    Dim sty As Style
    For Each sty In ActiveDocument.Styles
        If UCase(sty) = UCase(strName) Then
            bool = True
            Exit For
        Else
        End If
    Next sty
    If bool Then
    Else
        ActiveDocument.Styles.Add Name:=strName, Type:=wdStyleTypeCharacter
        With ActiveDocument.Styles(strName)
'            .AutomaticallyUpdate = False
            .BaseStyle = "Default Paragraph Font"
            .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 If
    Selection.Style = ActiveDocument.Styles(strName)
'Sub TESTCStyleNew()
'Call doCStyleNew("aaabc")
'End Sub
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