The way Apple defines a word in Pages body text causes it to filter characters and thus, it returns an "A" when it encounters whitespace around "[A]". So I have code that can match capital letters A through G, bold them in the original font's bold face, and even color them if you want. It does not bold the square brackets as that would require scanning all the characters in the document and program logic on what to do when encountering the "[x]" triad. More development and testing time that I do not have to donate.
The following was tested with Pages v12 on macOS 11.6.5 and the document font in this case was Helvetica Regular.
Before:
After:
Note: I already tried a list named letterNotation containing these characters and used as where it is in letterNotation and it failed, so I had to do the mutliple or it clauses to get it done.
Code:
use scripting additions
set highlightColor to "blue"
set txtFormat to "Bold"
tell application "Pages"
activate
tell body text of front document
repeat with aword in (words where it is "A" or it is "B" or it is "C" or it is "D" or it is "E" or it is "F" or it is "G")
log (aword as text)
tell application "Font Book"
set ffnames to name of (font family (font of aword))'s typefaces
end tell
set font_name to (aword's font & "-" & txtFormat)
set font_name_alt to (aword's font & space & txtFormat)
if ffnames contains font_name or ffnames contains font_name_alt then
-- failure is tolerated if missing font_name or highlightColor
try
set aword's font to font_name
set aword's color to highlightColor
set matchCnt to matchCnt + 1
on error
set aword's font to font_name_alt
set aword's color to highlightColor
end try
end if
end repeat
end tell
end tell
return
