| Barry MacDonnell's
Toolbox for WordPerfect
Macros, tips, and
templates for Corel® WordPerfect® for Windows®
| Page updated Jul 9, 2020
|Redline all capital (UPPERcase) letters|
Related pages -
• Convert Case - a macro to convert the case of text (6 options, including Reverse case).
• ReplaceCodes - Quickly change any of 16 text attributes (e.g., bold, underline, italics, redline, large size, etc.) by replacing, adding, or deleting a chosen attribute wherever it appears in the current document (optionally pausing at each item found)
RLcaps.wcm is a macro that finds every capital (uppercase)
letter and emphasizes it with Redline (i.e., the same as using Format, Font, Redline).
It will process all such items found anywhere in the document, including acronyms (e.g., IBM) and other sequential strings of uppercase letters.
When played it will display a small menu to let you add large size, bold, and/or italics to items, Like This.
This also makes capital letters easy to find when proofreading the document.
To undo, change, or remove the redline, large size, bold, and/or italic attributes that were added to the capital letters, see the Notes and Tips below.
¤ Always make an archival backup of your document first.
¤ After marking up the document with this macro you can either -
undo the macro's changes with <Ctrl+Z> or Edit>Undo (depending on your settings in Edit>Undo/Redo History on the WordPerfect menu bar, you may be able to undo all changes made by the macro);
save the redlined document with a similar but different name to preserve the current version (this is handy because you can then compare the two using Window, Tile Side-by-Side and edit the current version while referring to the redlined version);
close the document without saving changes made by this macro.
¤ You can play the macro multiple times on the same document but unless you Undo changes between each play you might get lots of extra (but harmless) [Ignore...] codes around each capital letter.
¤ You can set the menu defaults to your preferences in the macro's User Modification Area. (Just open the macro for editing like any WordPerfect document.)
☼ You could use this macro with archaic texts to simulate a medieval "look." [See the macro in the footnote below to add a new font to just the capital letters, such as Lucida Calligraphy or Old English.]
☼ Change, augment, or remove the attributes? Since the macro adds a WordPerfect redline font attribute code (not a red text color, which is a different format code) to each item it finds, you can use another macro to change or augment (add to) the redline attribute codes for various effects -- or to simply remove the redline codes. See ReplaceCodes in the Library.
☼ The technique used by the macro can be modified by macro writers to use other means of emphasis (e.g., underlines) or -- using the macro's ForEach loop as a guide -- to find and replace a series of items such as characters, words, WordPerfect codes, etc.
You might want to change the font of the capital letters to something fancier. The (unnamed) macro below can do that. You could play it by itself, or after playing the RLcaps.wcm macro.
To copy the macro code into your WordPerfect program to create a functioning macro, see here.
Note that this macro does not search in substructures (footnotes, endnotes, headers, footers, text boxes, etc.). But you probably don't want it to work there, anyway.
See the comments at the top of the code below. (Note that if you play it multiple times on the same document you probably will see lots of extra "empty" [Font] code pairs. They can be ignored. The macro does very little error-checking, error-trapping, or clean up.)
// Macro begins here
// This simple macro assumes you have the Lucida Calligraphy font installed;
// you can also substitute any installed font -- but be sure to spell it exactly
// as it appears in your Font list (on the Text property bar).
PosDocVeryTop // Start at the top
MatchSelection // Select the item when found
SearchCaseSensitive (Yes!) // Look for capitals only
OnNotFound (NextLetter@) // If not found, jump down
SearchString (x) // Search for each letter above
While(True) // (i.e., keep looping until 'Not Found')
Font ("Lucida Calligraphy") // Apply the font
// Macro ends here