Cleaning Up Text in a Macro

There have been many macros that I have written with the express purpose of "cleaning up" text prior to doing something else with it. For instance, inserting it in a new document or saving it in a text file. Often this process is tedious, involving examining each character in a text string and then making some decision as to what to do with it if the character is not within a range of acceptable characters.

VBA includes an interesting method that can be used to help clean up text. It is called, appropriately enough, the CleanString method. You use it as shown here:

sCleanedUp = Application.CleanString(Selection.Text)

This instance sets the sCleanedUp string equal to a "cleaned up" version of the selected text. What exactly does the CleanString method do? It removes non-printing characters in the ANSI range of 1 through 29, with the exception of 7, 9, 10, and 13. In the case of ANSI character 7, it is removed unless it is preceded by character 13, in which case it is replaced with a tab (ANSI 9). In the case of ANSI character 10, it is replaced with character 13 unless preceded by character 13, in which case it is removed. Characters 9 and 13 are not changed.

A number of other characters outside the range of 1 through 29 are also affected by the CleanString method. ANSI character 31 (the optional hyphen), character 172 (also an optional hyphen), and character 182 (the paragraph mark character) are all removed. ANSI character 160 (the nonbreaking space), character 176 (another nonbreaking space), and character 183 (a bullet character) are each replaced with spaces. All other characters are unchanged.