Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Thank you thank you thank you |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Opening word docs in excel | Excel Discussion (Misc queries) | |||
Opening a Word Template from within Excel | Excel Worksheet Functions | |||
Opening a Word Document in Excel | Excel Programming | |||
opening and writing into notepad | Excel Programming |