2 things
I can not get Excel to quit. I am using application.quit
second item is after this code.
Here is code:
Open word
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open "c:\PSV Travelog\Travelog
Template.dot"
WordApp.Visible = True
WordApp.Documents("Travelog Template.dot").Close
SaveChanges:=False
'-------------------
'Close Excel
Application.DisplayAlerts = False
'Workbooks("PSV WO and Specs.xls").Close 'Close
Excel
Application.Quit
'------------------
'Program Ending
' --- Do not modify ---
GoTo EndMain
Main_Err:
Main_Error_Handler
EndMain:
End_Text = "Macro Finished" & vbCrLf _
& "Time Started :" & Start_Time & vbCrLf _
& "Time Completed:" & Now & vbCrLf _
& "Your File is Open in word you may print it
now!"
End_Macro End_Text
End Sub ' Main
second item- How can I delete an .csv file after a
mailmerge takes place in a .dot
Michael
|