WD: WordBasic Macro to Replace Font Formatting

• Microsoft Word for Windows, versions 1.0, 1.1, 1.1a, 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c, 6.0, 6.0a, 6.0c
• Microsoft Word for Windows 95, versions 7.0, 7.0a
• Word for the Macintosh, versions 6.0, 6.0.1, 6.0.1a

SUMMARY

The following Microsoft Word macro examples can be used to change all characters formatted in one font to another font. For example, you could change all characters that originally occur in Arial to a font such as Times New Roman.

MORE INFORMATION

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

CAUTION: Save your file before you run these macros because changes made by running the following macros cannot be reversed by clicking Undo on the Edit menu. If you don't like the changes that occur when you run a macro, close your document without saving changes in order to "undo" the macro operation.

NOTE: The font names in the following macros must be spelled as they appear in the dialog box that appears when you choose Font from the Format menu. These macros do not affect the point size of the font.

Word 6.0, 6.0a, 6.0c, 7.0, 7.0a

The following macro changes all Arial-formatted characters in a document to Courier New.

   Sub Main
      StartOfDocument
      EditFindFont .Font = "Arial"
      EditReplaceFont .Font = "Courier New"
      EditReplace .Find = "", .Replace = "", .Format = 1,
      .ReplaceAll, .Wrap = 1
   End Sub

Word 2.x

The following macro changes all Arial-formatted characters in a document to Courier New.

   Sub Main
      StartOfDocument
      EditFindChar .Font = "Arial"
      EditReplaceChar .Font = "Courier New"
      EditReplace .Find = "", .Replace = "", .Format = 1, .ReplaceAll
   End Sub

Word for Windows 1.x

The following macro changes all Helvetica-formatted characters in a document to Courier:

   Sub MAIN
      StartOfDocument
      EditSearchChar .Font = "Helvetica"
      EditReplaceChar .Font = "Courier"
      EditReplace .Confirm = 0, .Format = 1
   End Sub

REFERENCES

"Using WordBasic," by Microsoft and WexTech Systems, pages 181, 187