Macro for word font colour

Hi Guys,

I need a macro that goes through every line within a word document.

when it hits font with a particular colour, it needs to insert a line with text, then searching down the document, until it meets a second colour and then also insert a line with text, and repeat.

The document contains any type of fonts, but only about 4 or 5 colours. I am only interested in having a line inserted for the first change of occurance of each particular colours.

eg (for Blue and Red):
wfefd wefs
efwd wad
sefd wd a
esfsefd waa wd
sefww dw
ewqd ddsf
esfd wdd
wadwad
sef ww dad sa
sefdwd adwd ad a
redwda
sefdwd adwd ad a
sefdwd adwd ad a
wfefd wefs
sefdwd adwd ad a
esfd wdd
wfefd wefs
wadwad

would become:
wfefd wefs
Blue:
efwd wad
sefd wd a
esfsefd waa wd
sefww dw
ewqd ddsf
Red:
esfd wdd
wadwad
sef ww dad sa
Blue:
sefdwd adwd ad a
Red:
redwda
Blue:
sefdwd adwd ad a
sefdwd adwd ad a
wfefd wefs
sefdwd adwd ad a
Red:
esfd wdd
wfefd wefs
wadwad


I hope that makes sense!
Ideally I would like to be able to select what the two colours are, and also be able to customise the text inserted before each colour (eg "Red:" could be "Username A:" or "Serial NumberXXXX:")

Duplicate thread closed.

Continue here: https://www.excelforum.com/word-form...nt-colour.html