Home | Tips | Library | Other Authors | Other WP Sites | Writer's Links | Contact | Site Map | Donate

Macros, tips, and templates for Corel® WordPerfect® for Windows®
© Copyright 1996-2012 by Barry MacDonnell. All Rights Reserved.

This macro finds every capital (uppercase) letter, then emphasizes it with redline. It can optionally add large size, bold, and/or italics, Like This.

This also makes capital letters easy to find when proofreading the document.

Tips

• 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.]
• Since the macro adds a WordPerfect redline font attribute (not a red text color) to each item it finds, you can use another macro to change or augment the redline attribute codes for various effects. See Ron Hirsch's Replace Codes - Plus.
• The technique 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.

Notes

• After marking up the document and editing it, either -
  • undo the macro's changes with <Ctrl+Z> or Edit>Undo (note: 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); or
  • save the document with a different name to preserve the original; or
  • close the document without saving changes made by this macro.
• Note that 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 menu defaults in the macro's User Modification Area.

You might want to change the font of the capital letters to something fancier. The macro below can do that. You could play it by itself, or after playing the HLcaps macro.

The macro doesn't search in substructures (footnotes, headers, 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, but it worked fine in several tests.)

To copy the macro code below into your WordPerfect program, see here.

// Macro begins:

// This simple macro assumes you have the Lucida Calligraphy font installed;
// you can also substitute any installed font; be sure to spell it exactly
// as it appears in your Font list.

OnError(End@)
ForEach (x;
{"A";"B";"C";"D";"E";"F";"G";"H";"I";"J";"K";"L";"M";
"N";"O";"P";"Q";"R";"S";"T";"U";"V";"W";"X";"Y";"Z"})
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')
SearchNext(Regular!)
Font ("Lucida Calligraphy") // Apply the font
Endwhile
Label(NextLetter@)
Endfor
Messagebox(;; "Finished")
Label(End@)
Return

// Macro ends