ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   opening & writing to Word from Excel (https://www.excelbanter.com/excel-programming/280078-opening-writing-word-excel.html)

Mike Molyneaux[_2_]

opening & writing to Word from Excel
 
I'm running Excel & Word 2000 on nt4, sp6

I'm trying to create a mailmerge file from Excel with data
from the excel sheet.

I get a 'variable not defined' compiler error on
the 'wdMailingLabels' value of
the '.ActiveDocument.MailMerge.MainDocumentType = ' line.

I expect similar compile errors on other values. How can I
find what I need to code these in order to execute the
macro?


Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")

With wordApp

.ActiveDocument.MailMerge.MainDocumentType =
wdMailingLabels

End With

wordApp.Quit
Set wordApp = Nothing


thanks for any help




Debra Dalgleish

opening & writing to Word from Excel
 
In Word, you can type a question mark and constant name in the Immediate
window, e.g.:
?wdMailingLabels

then press the Enter key, to determine the value of the constant.

In Excel, list the constants at the top of the module, and the code
should run correctly:

'================================
Option Explicit
Const wdMailingLabels As Long = 1

Sub MergeDoc()
Dim WdApp As Object

Selection.Copy
On Error Resume Next
Set WdApp = GetObject(, "Word.Application")
If Err.Number < 0 Then
Err.Clear
Set WdApp = CreateObject("Word.Application")
End If

With WdApp
.Visible = True
.Documents.Add DocumentType:=0
.ActiveDocument.MailMerge.MainDocumentType _
= wdMailingLabels
End With
' Set WdApp = Nothing

End Sub
'==========================

Mike Molyneaux wrote:
I'm running Excel & Word 2000 on nt4, sp6

I'm trying to create a mailmerge file from Excel with data
from the excel sheet.

I get a 'variable not defined' compiler error on
the 'wdMailingLabels' value of
the '.ActiveDocument.MailMerge.MainDocumentType = ' line.

I expect similar compile errors on other values. How can I
find what I need to code these in order to execute the
macro?


Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")

With wordApp

.ActiveDocument.MailMerge.MainDocumentType =
wdMailingLabels

End With

wordApp.Quit
Set wordApp = Nothing


thanks for any help





--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html


Mike Molyneaux[_2_]

opening & writing to Word from Excel
 

Thank you thank you thank you


All times are GMT +1. The time now is 03:58 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com