Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tim
Hi
I have a sheet that I use to generate costs. I wrote a bit of VBA to mail merge the info into a word document. This worked fine, then I did not use the sheet for a while. When I came to use it again, on pressing the button to invoke the mail merge, I got the following error: Runtime Error 5273 Application-Defined or Object-Defined error Dont understnad how this has come about as I've not changed anything! Any reason why?!?!? TIA Tim |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Tim
I think you are a con fused man Mr Spurious Error.
Show the code and give us a chance. -- HTH ------- Bob Phillips "Spurious error" wrote in message ... Hi I have a sheet that I use to generate costs. I wrote a bit of VBA to mail merge the info into a word document. This worked fine, then I did not use the sheet for a while. When I came to use it again, on pressing the button to invoke the mail merge, I got the following error: Runtime Error 5273 Application-Defined or Object-Defined error Dont understnad how this has come about as I've not changed anything! Any reason why?!?!? TIA Tim |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Spurios Error
Yeah, ok, point taken!
Here it is, but it worked at one point: Sub PopulateProposal() 'On Error GoTo errorHandler Dim wdApp As Word.Application Dim myDoc As Word.Document Dim myRange As Word.Range 'open Word Set wdApp = New Word.Application With wdApp .Visible = True .WindowState = wdWindowStateMaximize End With 'open Template Worksheets("Deployment Input").Activate 'activate the sheet with path details Curfile = Range("H18") 'the path details of the template Set myDoc = wdApp.Documents.Open(Curfile) Set myRange = myDoc.Words(1) 'mail merge Curfile = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name With ActiveDocument.MailMerge 'load data range from spreadsheet .MainDocumentType = wdCatalog .OpenDataSource Name:=Curfile _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, _ Format:=wdOpenFormatAuto, Connection:= _ "DSN=Excel Files;DBQ=" + Curfile + ";DriverId=22;MaxBufferSize=512;PageTimeout=5; " _ , SQLStatement:="SELECT * FROM `MailMergeField`" 'do actual mail merge '.Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|