Home |
Search |
Today's Posts |
|
#1
|
|||
|
|||
using VB from Access worked with Word/Access2000, not 2002
I've written some VB code behind an Access form button that performs a
mailmerge. It works great for Word/Access 2000. Here is a fragment: Set oApp = CreateObject("Word.Application") With oApp ' US Doc .Visible = True .Documents.Open FileName:=Path & "Merge.doc" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument For 2002 I get a msg "Requested object is not available" on the last line. I made changes to the code: Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open FileName:=Path & "Merge.doc" Set oDoc = oApp.ActiveDocument oDoc.Mailmerge.Destination = wdSendToNewDocument and still get the error "Requested object is not available" on the last line. I have used the VB debugger with watch points and 'oDoc' is the document I expect it to be with mailmerge properties. Ideas? Thanks, Don |
#2
|
|||
|
|||
I would suggest that you dim mergedoc as Document, then use
Set mergedoc = Documents.Open(Filename:= Path & "Merge.doc") mergedoc.MailMerge.Destination = wdSendToNewDocument to make sure that the document you are trying to use is actually the mailmerge main document. Chances are that your problem is caused because the ActiveDocument is not what you think it is -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... I've written some VB code behind an Access form button that performs a mailmerge. It works great for Word/Access 2000. Here is a fragment: Set oApp = CreateObject("Word.Application") With oApp ' US Doc .Visible = True .Documents.Open FileName:=Path & "Merge.doc" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument For 2002 I get a msg "Requested object is not available" on the last line. I made changes to the code: Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open FileName:=Path & "Merge.doc" Set oDoc = oApp.ActiveDocument oDoc.Mailmerge.Destination = wdSendToNewDocument and still get the error "Requested object is not available" on the last line. I have used the VB debugger with watch points and 'oDoc' is the document I expect it to be with mailmerge properties. Ideas? Thanks, Don |
#3
|
|||
|
|||
Hi Doug,
Thanks for the response. I'd tried that previously (and again upon your suggestion) and got the error: "User-defined data type not defined" on the Dim statement. I have also tried some code with set oDoc = CreateObject("Word.Document") and tried working with oDoc to no avail. Regards, Don "Doug Robbins" wrote: I would suggest that you dim mergedoc as Document, then use Set mergedoc = Documents.Open(Filename:= Path & "Merge.doc") mergedoc.MailMerge.Destination = wdSendToNewDocument to make sure that the document you are trying to use is actually the mailmerge main document. Chances are that your problem is caused because the ActiveDocument is not what you think it is -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... I've written some VB code behind an Access form button that performs a mailmerge. It works great for Word/Access 2000. Here is a fragment: Set oApp = CreateObject("Word.Application") With oApp ' US Doc .Visible = True .Documents.Open FileName:=Path & "Merge.doc" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument For 2002 I get a msg "Requested object is not available" on the last line. I made changes to the code: Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open FileName:=Path & "Merge.doc" Set oDoc = oApp.ActiveDocument oDoc.Mailmerge.Destination = wdSendToNewDocument and still get the error "Requested object is not available" on the last line. I have used the VB debugger with watch points and 'oDoc' is the document I expect it to be with mailmerge properties. Ideas? Thanks, Don |
#4
|
|||
|
|||
Take a look at the "Super easy Word merge" item on fellow MVP Albert
Kallal's website at: http://www.attcanada.net/~kallal.msn.../msaccess.html -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... Hi Doug, Thanks for the response. I'd tried that previously (and again upon your suggestion) and got the error: "User-defined data type not defined" on the Dim statement. I have also tried some code with set oDoc = CreateObject("Word.Document") and tried working with oDoc to no avail. Regards, Don "Doug Robbins" wrote: I would suggest that you dim mergedoc as Document, then use Set mergedoc = Documents.Open(Filename:= Path & "Merge.doc") mergedoc.MailMerge.Destination = wdSendToNewDocument to make sure that the document you are trying to use is actually the mailmerge main document. Chances are that your problem is caused because the ActiveDocument is not what you think it is -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... I've written some VB code behind an Access form button that performs a mailmerge. It works great for Word/Access 2000. Here is a fragment: Set oApp = CreateObject("Word.Application") With oApp ' US Doc .Visible = True .Documents.Open FileName:=Path & "Merge.doc" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument For 2002 I get a msg "Requested object is not available" on the last line. I made changes to the code: Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open FileName:=Path & "Merge.doc" Set oDoc = oApp.ActiveDocument oDoc.Mailmerge.Destination = wdSendToNewDocument and still get the error "Requested object is not available" on the last line. I have used the VB debugger with watch points and 'oDoc' is the document I expect it to be with mailmerge properties. Ideas? Thanks, Don |
#5
|
|||
|
|||
Hi Doug,
I've tried a half dozen times or more over the last 3 days to access this URL - cannot find server. Can you summarize? Thanks, Don "Doug Robbins" wrote: Take a look at the "Super easy Word merge" item on fellow MVP Albert Kallal's website at: http://www.attcanada.net/~kallal.msn.../msaccess.html -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... Hi Doug, Thanks for the response. I'd tried that previously (and again upon your suggestion) and got the error: "User-defined data type not defined" on the Dim statement. I have also tried some code with set oDoc = CreateObject("Word.Document") and tried working with oDoc to no avail. Regards, Don "Doug Robbins" wrote: I would suggest that you dim mergedoc as Document, then use Set mergedoc = Documents.Open(Filename:= Path & "Merge.doc") mergedoc.MailMerge.Destination = wdSendToNewDocument to make sure that the document you are trying to use is actually the mailmerge main document. Chances are that your problem is caused because the ActiveDocument is not what you think it is -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... I've written some VB code behind an Access form button that performs a mailmerge. It works great for Word/Access 2000. Here is a fragment: Set oApp = CreateObject("Word.Application") With oApp ' US Doc .Visible = True .Documents.Open FileName:=Path & "Merge.doc" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument For 2002 I get a msg "Requested object is not available" on the last line. I made changes to the code: Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open FileName:=Path & "Merge.doc" Set oDoc = oApp.ActiveDocument oDoc.Mailmerge.Destination = wdSendToNewDocument and still get the error "Requested object is not available" on the last line. I have used the VB debugger with watch points and 'oDoc' is the document I expect it to be with mailmerge properties. Ideas? Thanks, Don |
#6
|
|||
|
|||
Hi Don,
I am not sure what the problem is with the website, but if you send me your email address, I can send you a copy of the zip file that you would have downloaded from the site. You will have to de-spam the address. -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... Hi Doug, I've tried a half dozen times or more over the last 3 days to access this URL - cannot find server. Can you summarize? Thanks, Don "Doug Robbins" wrote: Take a look at the "Super easy Word merge" item on fellow MVP Albert Kallal's website at: http://www.attcanada.net/~kallal.msn.../msaccess.html -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... Hi Doug, Thanks for the response. I'd tried that previously (and again upon your suggestion) and got the error: "User-defined data type not defined" on the Dim statement. I have also tried some code with set oDoc = CreateObject("Word.Document") and tried working with oDoc to no avail. Regards, Don "Doug Robbins" wrote: I would suggest that you dim mergedoc as Document, then use Set mergedoc = Documents.Open(Filename:= Path & "Merge.doc") mergedoc.MailMerge.Destination = wdSendToNewDocument to make sure that the document you are trying to use is actually the mailmerge main document. Chances are that your problem is caused because the ActiveDocument is not what you think it is -- Please respond to the Newsgroup for the benefit of others who may be interested. Questions sent directly to me will only be answered on a paid consulting basis. Hope this helps, Doug Robbins - Word MVP "strider235" wrote in message ... I've written some VB code behind an Access form button that performs a mailmerge. It works great for Word/Access 2000. Here is a fragment: Set oApp = CreateObject("Word.Application") With oApp ' US Doc .Visible = True .Documents.Open FileName:=Path & "Merge.doc" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument For 2002 I get a msg "Requested object is not available" on the last line. I made changes to the code: Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.Documents.Open FileName:=Path & "Merge.doc" Set oDoc = oApp.ActiveDocument oDoc.Mailmerge.Destination = wdSendToNewDocument and still get the error "Requested object is not available" on the last line. I have used the VB debugger with watch points and 'oDoc' is the document I expect it to be with mailmerge properties. Ideas? Thanks, Don |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I Mail Merge from an Access Query? | Mailmerge | |||
why word 2000 mail merge opens multiple instances of access table. | Mailmerge | |||
Word 97 opening Access 2000 | Mailmerge | |||
original office 2k access dbase merge with word2k worked fine. no. | Mailmerge | |||
Word mail merge with Access | Mailmerge |