Word Documents from Excel Macros

by Allen Wyatt
(last updated March 21, 2015)

3

Eric has an Excel database of company information. He wants to use an Excel macro to copy addresses and information from the database into different Word documents. Eric is curious as to how he can make an Excel macro open a specific Word document into which the information will be pasted.

One way to accomplish this task is to just not use Excel. Instead, use Word's mail merge feature to pull information from an Excel database. This approach works best if you are creating a document from well-defined information. If, however, you need to open a series of documents and copy the data from the Excel database into the documents, then mail merge won't do the trick.

Word has a special name for using macros to work with different Office applications: Office Automation. Creating Office Automation macros is a bit more complex than creating a macro that will work solely within a specific application, such as Excel. One of the things you may want to do is to download a free Help file that includes a good deal of information about Office Automation applications. You can download the file at the following Microsoft page:

http://support.microsoft.com/kb/302460

The basic procedure to open a Word document from within an Excel macro is to create an object that references the Word application, and then use that object to open the document. The following code illustrates this concept:

Sub OpenWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Set wdApp = CreateObject("Word.application")
    Set wdDoc = wdApp.Documents.Open _
      (FileName:="C:\Path\myTestDoc.doc")

' put your code here for working with Word
' This is Word VBA code, not Excel code

    wdDoc.Close savechanges:=False
    Set wdDoc = Nothing
    wdApp.Quit
    Set wdApp = Nothing
End Sub

You'll need to change the path and document name of the document you want to open, but this code very nicely demonstrates what needs to be done to open the document. As written, the Word document (indeed, the entire Word application) will not be visible on screen. If you prefer to have the application visible, you should use this code line near the beginning of the macro:

    wdApp.Visible = True

Another approach to working with a Word file from inside your Excel macro is to use DDE and the SendKeys function to copy the information. Consider the following DDE command:

ChannelNumber=Application.DDEInitiate{ _
  app:="WinWord", topic:=FullPath

The DDEInitiate method uses two properties: app and topic. The app property indicates the application you are opening via DDE. Typical examples could be "calc" for the calculator or "WinWord" (in this case) for the Word application. The topic property indicates the full path to the document file you are opening. In this case, the full path is contained in the FullPath variable.

Using this method, you can open a document and then use SendKeys to copy information to that document:

Sub PasteExcel2Word()
    Dim channelNumber As String  'Application Handle
    Dim FullPath As String

    FullPath = 'C:\MyFolder\MyFile.Doc'
    'Replace above with a file or loop of files

    Selection.Copy  'Assumes you hilighted what you want copied

    channelNumber = Application.DDEInitiate( _
      app:="WinWord", topic:=FullPath
    SendKeys "^v", False

    Application.DDETerminate channelNumber
End Sub

The Copy method is used to copy information to the Clipboard, and then SendKeys uses ^v (Ctrl+V) to paste the information into the Word documented opened using DDEInitiate.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (2423) applies to Microsoft Excel 97, 2000, 2002, and 2003.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He  is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Retaining Explicit Formatting after Applying Styles

The formatting in a document is often a mix of styles and explicit formatting, applied over time. You may want to apply ...

Discover More

Understanding R1C1 References

Referring to cells is typically done using a letter and a number, which represent the column and row. That's not the only way ...

Discover More

Select One Cell and Make Another Cell Bold

Excel provides a number of different ways you can apply formatting to a cell based upon various dynamic conditions. One ...

Discover More

Solve Real Business Problems Master business modeling and analysis techniques with Excel and transform data into bottom-line results. This hands-on, scenario-focused guide shows you how to use the latest Excel tools to integrate data from multiple tables. Check out Microsoft Excel 2013 Data Analysis and Business Modeling today!

Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is 6 + 4?

2017-02-17 05:41:43

Barry

@Janet,

There are a couple of ways to get information into a Word Document from an Excel macro. My preferred method is to insert "formfields" into the Word Document (if you have a lot of fields I suggest renaming them with something meaningful - I've Word document with over 200 fields in it that I populate from Excel). (There are different types of formfield so you need to insert the correct one for the type entry you want Excel to make). Then once Excel has opened the document use can use the following code to move information into a text type formfield:

wdDoc.FormFields("Text24").Result = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value

the expression to the right of the "=" sign can be any valid Excel expression. This can then be repeated for any number of fields.

If you want to have checkboxes and tick/untick them then the following code will do this (obviously you need to insert in your document a formfield checkbox:

wdDoc.FormFields("Check6").CheckBox.Value = TRUE

you can use an Excel expression to the right but it must evaluate to either TRUE or FALSE.


2017-02-16 11:00:08

Janet

This article was excellent for what I need it for however I would like to go a little further and export fields in excel to words without to use Ctrl +V to create a log. Could you help me in this regards


2015-07-12 11:53:40

Javier Gonzalez

Hi,

thank you very much for this tip, very interesting and useful!

The name of the Word document is not known and fixed, but actually I need the user to select a Word file. Would you know how to integrate such user interaction?


Thanks a lot in advance,

Javier


This Site

Got a version of Excel that uses the menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)? This site is for you! If you use a later version of Excel, visit our ExcelTips site focusing on the ribbon interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.