Microsoft KB Archive/95065

-

{| The information in this article applies to:
 * width="100%"|
 * Microsoft Word for Windows, versions 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c

SUMMARY
This article describes how you can modify the MEMO2.DOT template supplied with Word for Windows so it inserts each name on the TO: and CC: lines of a memo on a separate line, as shown below:

TO: Bob Hawley Ed Paulson Steve Vaughan

CC: Don Ellis Mark Gibson Susan Dodd Note: Microsoft does not support modifications to the template files supplied with Word for Windows. WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code &quot;as is&quot; 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.

MORE INFORMATION
In the native format, as supplied with Word for Windows, the MEMO2.DOT template inserts designated names on the TO: and CC: lines of a memo separated by commas, as shown below:

TO: Bob Hawley, Ed Paulson, Steve Vaughan

CC: Don Ellis, Mark Gibson, Susan Dodd Note: This modification affects only individual names you insert in the TO: or CC: lines. If you insert a group on these lines, the template lists the group names on the same line, separated by commas. The following instructions modify the MEMO2.DOT AutoNew macro so it inserts each name on the TO: and CC: lines of a memo on a separate line:

 Open the MEMO2.DOT template file. From the Tools menu, choose Macro. In the Show box, select the Template Macros option. From the Macro Name list, select Autonew and choose the Edit button. From the Edit menu, choose Replace.  In the Find What box, type the following (be sure to type a space after the comma): Insert &quot;, &quot;   In the Replace With box, type the following and choose the Replace All button (be sure to type a space between the quotation marks): Insert &quot; &quot; + chr$(11) Note: Word should make two replacements.   In the Find What box, type the following: Insert Display$(counter) + &quot;, &quot;   In the Replace With box, type the following and choose the Replace All button (be sure to type a space between the quotation marks): Insert Display$(Counter) + &quot; &quot; + Chr$(11) Note: Word should make one replacement. </li> Choose the Close button.</li> From File menu, choose Close.</li> When Word prompts you to save changes to the AutoNew macro, choose the OK button.</li></ol>