VBA Word - Find Formatted Text Version Only

jc491 · #1 01-06-2016, 04:36 PM

Hello Paul,

Hope you are doing great today!

thank you for the pointers.

I was just wondering, does the font need a name? I could not find a column for the font name.

I have attached the updated spreadsheet - I think its starting to look a bit better now.

For the RGB I would need to add the code below

Code:


Dim xlRGB

xlRGB = xlRGB & "|" & Trim(.Range("M" & i))


If Split(xlRGB, "|")(i) <> "" Then .Color = Split(xlRGB, "|")(i)


If Split(xlRRGB, "|")(i) <> "" Then .Size = Split(xlRRGB, "|")(i)

I managed to figure out the True / False bit - when I ran the VBA sadly it did not do anything - knowing me as usual - I probably don't have the correct font name as there was not a column for the font name, or am confusing things.

In the document I am testing it on -

The font is : Times New Roman Bold 16

I am really excited I can see the endless possibilities - but I need to get the spreadsheet working first -

Thank you for helping me again

J

macropod · #2 01-06-2016, 04:52 PM

Quote:

Originally Posted by jc491

I was just wondering, does the font need a name? I could not find a column for the font name.

If you want to use that as a parameter, yes.

Quote:

Originally Posted by jc491

For the RGB I would need to add the code below

Actually, you might need both a Find colour and a Replace colour. And, unless you're actually using RGB values, I'd not be inclined to use RGB as part of the variable's name - perhaps xlFClr & xlRClr would be more appropriate.

You also would NOT want:

Code:

If Split(xlRRGB, "|")(i) <> "" Then .Size = Split(xlRRGB, "|")(i)

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