How to check for the higest superScript number, that is NOT red?

BrianHoard · #1 07-31-2022, 10:35 AM

I'm writing a script that needs to find all superScript numbers in the document, that are NOT red, and get the highest number found.

Here's what I have so far, but I don't know how to process the find to check if the found character is red, or how to retrieve the number it found. I'm thinking I need a loop during the find to check it's font color and text. But I'm stumped how to do that.

Code:

With rng_selection.Find
  .Font.Superscript = True ' Only find superScripts
  .Text = "[0-9]" ' Find only numbers
  .MatchWildcards = True
  .Execute
End With

Thanks for any help.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Char style and footnotes reference style superscript - applying character style removes superscript	RRB	Word	2	06-02-2021 02:54 PM
Count and display number of spell check errors	Leslie	Word VBA	3	03-01-2020 03:26 AM
The “spelling and grammar” check fails to work as the number of words in the file exceeds a certain	Jamal NUMAN	Word	3	09-24-2019 10:45 AM
Footnote reference numbers precede by superscript '(' and follow w/ superscript ')'	Swarup	Word	4	07-18-2019 05:51 PM
cannot check/uncheck check box but added check box	learn2office	Word	1	11-27-2012 02:02 AM