Hi: I have a workbook comprised of approximately 150 worksheets that each function as a template for data input into a mainframe application. A user selects a button on the "Main Menu" worksheet and a macro copies text from one of the 150 templates onto a "blank" template worksheet where the text is edited prior to being pasted into a mainframe application. The mainframe application used to have a limit of 12 lines by 72 characters so I set-up the templates with the same restrictions. There is no longer a restriction on pasting into the mainframe, so for user friendliness, I'd rather use Word as the editor versus Excel.

So, my idea is to continue using Excel as the place where the templates reside, but instead of copying them into a blank template in Excel, I want to paste them into a blank Word document. The following code copies the text from the correspoding template and then activates Word. From here, I am interested in knowing how to accomplish two things:

1) How to open a specific document within Word to act as the "blank" template where text will be pasted into.

2) How to automatically trigger the "Paste Special" command in Word to past the text in unformatted unicode text.

Here's what I have so far. i.e. I know how to copy the text and open Word. I'm stuck from there.

I'm also open to other strategy suggestions. (Please note that I considered using Excel as the editor versus Word by simply pasting all the text into a single cell. It works OK until you start pasting very large text blocks.)

Any help is sincerely appreciated.

Thanks in adavance for any responses.

Dave

Sub AmalgamationMandatory()

Sheets("AmalgamationMandatory").Select
Range("B2:B201").Select
Selection.Copy
Application.ActivateMicrosoftApp xlMicrosoftWord

End Sub