VBA Word - Find Formatted Text Version Only

macropod · #11 01-06-2016, 06:36 PM

As indicated in post #7, you can't just input the RGB values into a cell that way. You need to either input them as the number value of the colour, as a 9-digit number (which you could then parse mathematically into the R, G & B components), using code like:

Code:

If Split(xlFClr, "|")(i) <> "" Then .Color = RGB(INT(Split(xlClr, "|")/1000000), INT(Split(xlClr, "|")/1000000) mod 1000, Split(xlClr, "|") mod 1000)

or as a delimited string (which you could then parse via Split into the R, G & B components). You can't use commas as the delimiters, as Excel will start turning them into plain numbers, and adding spaces into the mix along with the commas still doesn't help with the parsing. I'd suggest inputting the R, G & B components as space-separated values (e.g. 127 127 127), which you could then process using code like:

Code:

If Split(xlFClr, "|")(i) <> "" Then .Color = RGB(Split(Split(xlClr, "|")(i), " ")(0), Split(Split(xlClr, "|")(i), " ")(1), Split(Split(xlClr, "|")(i), " ")(2))

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Table – Search All Tables - Find & Replace Text in Table Cell With Specific Background Color	jc491	Word VBA	8	09-30-2015 06:10 AM
Macro to keep formatted form fields after mail merge or replace text with formatted form fields	jer85	Word VBA	2	04-05-2015 10:00 PM
How can I paste text that's not formatted as a table into a new table?	WaltR	Word	2	10-11-2014 03:16 PM
Word VBA Find Table Text Shading Colour and replace with another	QA_Compliance_Advisor	Word VBA	10	09-19-2014 08:36 AM
Word VBA Macro to Find and Replace based on the Alt Text of an Image	bennymc	Word VBA	1	01-27-2014 04:23 PM