Hi Everyone,

I wonder if anyone can help me out with a VBA macro.



I have a word document and I'd like to change the font colour of every other word, so either all the odd words are say Red or all the even words are Red, the remaining words stay the default colour.

So I initially started with a word count in the hope of changing this to only count odd or even words, but this didn't work out for me.

I then went on to loading all the words into an array with the hope of picking out the odd or even indexed words and the somehow change the colour, but again I'm stuck and can't work out how to do it.

I'm not an expert but can do the basics, I've looked around on the web and found something that came close, it changed the colour of every letter but even then it was based on case, so if it was A it would be Red and B would be Blue. It worked, but this didn't help me as I couldn't work out how to get it to look at the words.

For the record, a word I'm referring to as text in-between 2 spaces. As I'm working with a different language, sometimes you with get numbers which are not words but are in-between spaces and thus would be treated as a 'word'.

Is there anyone that could help and guide me on how I can attain my goal?

Any help would be much appreciated.

Thank you

So after messing about, and finding bits of code online, i've managed to come up with this...

I hope it helps others looking to do the same thing.
----------------------------------------------------------------------------------------
Sub wordslistChange()

Dim avar As Variant

avar = Split(Replace(ActiveDocument.Range.Text, vbCr, " "))

For i = LBound(avar) To UBound(avar)

i = i + 1

'MsgBox avar(i)

With Selection.Find
.ClearFormatting
.Text = avar(i)
On Error Resume Next
.MatchCase = True
.MatchWholeWord = True
.Replacement.ClearFormatting
.Replacement.Text = avar(i)
.Replacement.Font.Color = wdColorRed 'change colour as required
.Forward = True
.Wrap = Word.WdFindWrap.wdFindContinue
.Execute Replace:=Word.WdReplace.wdReplaceOne
End With

Next i

End Sub
------------------------------------------------------------------------------------------

This basically populates the array and then does the odd even colour change magic.

Have fun people and feel free to mod the code to make it even more efficient.

Thank you

Stop press...

so I've just checked my text and although it should work as expected, there is a slight issue...

It seems to colour the last word on a line and the first word on the line immediately after in the same colour when it should be true Odd Even colouring.

Any help on this would be much appreciated..

So close yet so far

Edit::

I put a msgbox in the code to see what the array was outputting and saw that the array is adding the newline return in the middle of the 2 words making them show as one. A sample of this is 'close.□Then'

The □ is the new line or carriage return.

For now I can get around this by changing the page size to that the next word goes to the next line without adding a carriage return, but this messes up the formatting.

Please help

Edit Again::

So I've narrowed it down to the way the array is being split with the code avar = Split(Replace(ActiveDocument.Range.Text, vbCr, " "))

I've tried to replace the vbCr with both vbCrLf and vbLf with no avail.

The carriage return used in the text is shift+enter if that helps.