Is there no wdOrange colorindex variable?

Jennifer Murphy · #5 12-30-2012, 09:33 AM

Paul,

Thanks for the suggestion, but I can't get it to work.

Here's my little macro:

Code:

Sub MyRandCharColors()
 
Dim obChar As Range
Dim ilColorNext As Word.WdColorIndex
Dim wdOrange As Long
wdOrange = 41215
Dim vaColors
vaColors = Array(wdBlack, wdRed, wdBlue)
'vaColors = Array(wdBlack, wdOrange)
Dim nsRnd As Single
 
Randomize
For Each obChar In Selection.Characters
  nsRnd = Rnd()
  ilColorNext = vaColors(Int((UBound(vaColors) + 1) * nsRnd))
  obChar.Font.ColorIndex = ilColorNext
Next obChar
 
End Sub

As shown above, it works with the built-in colors. If I remove the comment from the second vaColors statement, it gets Run-time error "5843" indicating that one of the values is out of range.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Run-time error '91': Object variable or With block variable not set	tinfanide	Excel Programming	2	06-10-2012 10:17 AM
variable Page references	scrinmemphis	Word	4	06-06-2012 11:50 PM
Capture a Font in a Variable	joatmon	Excel Programming	1	05-30-2012 08:23 PM
Help with VBA macro - Variable input	sc30317	Excel Programming	0	08-31-2011 01:00 PM
Variable fields?	Emalee77	PowerPoint	0	01-30-2011 05:58 PM