colorindex as name

[Örjan Skoglösa]

When I run

Dim färg
färg = Selection.Shading.BackgroundPatternColorIndex
MsgBox färg

then I get the colorindex as a number.

Is it possible to return it as a constant name?

TIA
Örjan

(I´m on Word97)

 

[Jonathan West]

When I run

Dim färg
färg = Selection.Shading.BackgroundPatternColorIndex
MsgBox färg

then I get the colorindex as a number.

Is it possible to return it as a constant name?

You create an array of names, and then use the number to look it up. There's
no automatic way.

 

[Örjan Skoglösa]

Thanks for your reply Jonathan.

I guess it is obvious, but sadly I do not understand completely.

I create an array with all the constants, e.g. by copying them from
the help, yes?

But how do I get the connection between numbers and names?

TIA
Örjan

 

[Jonathan West]

Put the constants into the array in the order of their value, like this

Dim vColors as variant
vColors = Array("wdAuto", "wdBlack", "wdBlue", "wdTurquise", _
"wdBrightGreen", "wdPink", "wdRed", "wdYellow", "wdWhite", _
"wdDarkBlue", "wdTeal", "wdGreen", "wdViolet", "wdDarkRed", _
"wdDarkYellow", "wdGray50", "wdGray25",)

Then you can return the color name like this

MsgBox vColors(Selection.Shading.BackgroundPatternColorIndex)

 

[Jezebel]

Add a function like this:

Public Function ColorIndexName(ColorIndex as WdColorIndex) as string

Select Case ColorIndex
Case wdAuto
ColorIndexName = "Auto"
Case wdBlack
ColorIndexName = "Black"
:
Case else
ColorIndex = "** Invalid ColorIndex"
end select

End Function

färg = ColorIndexName(Selection.Shading.BackgroundPatternColorIndex)

An array would also work in this case because the constants have sequential
values, but that's not the case with all sets of constants. Using Select
Case has the advantage that it doesn't matter what values the constants
actually represent.

 

[Helmut Weber]

Hi Örjan,

in addition have a look at:

http://techsupt.winbatch.com/TS/T000001033003F9.html

Unfortunately, I don't know of another,
more upto date source.

Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Örjan Skoglösa]

Thanks Jonathan, Jezebel and Helmut.

Great.

Örjan