Automatically save new Word Document from Access 07 with customised name

I use the code below to open a new document based on a template. When the Word file opens it is called Document 1. Is there anyway to automatically save a copy of the file with a customised name (based on fields in the Access form) to a specified folder?
strtoday = Date
    strfrom = Me.OrderPickUp
    strto = Me.OrderDestination
    strdate = Format(Me.OrderDate, "DDDD dd MMMM, YYYY")
    strtime = Me.OrderStartTime
    strtype = Me.WCCType.Column(1)
    strcosttype = Me.WCCCostType
    strboxes = Me.WBox
    strcostboxes = Me.WCostBox
    strtotalex = Me.WTotalEx
    strtotalgst = Me.WTotalGST
    Strtotalincl = Me.WTotalInc
    Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Add(Template:="C:\Users\Robert\Desktop\wcchup.dotx")
    wApp.Visible = True
    For Each wSec In wDoc.Sections
   
           For Each wPara In wSec.Range.Paragraphs
            Select Case True
                Case InStr(1, wPara.Range.Text, "{today}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{today}", strtoday)
                    
                Case InStr(1, wPara.Range.Text, "{from}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{from}", strfrom)
                    
                Case InStr(1, wPara.Range.Text, "{to}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{to}", strto)
                    
                Case InStr(1, wPara.Range.Text, "{date}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{date}", strdate)
                    
                Case InStr(1, wPara.Range.Text, "{time}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{time}", strtime)
                    
                Case InStr(1, wPara.Range.Text, "{type}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{type}", strtype)
                    
                Case InStr(1, wPara.Range.Text, "{costtype}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{costtype}", strcosttype)
                    
                Case InStr(1, wPara.Range.Text, "{boxes}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{boxes}", strboxes)
                    
                Case InStr(1, wPara.Range.Text, "{costboxes}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{costboxes}", strcostboxes)
                    
                Case InStr(1, wPara.Range.Text, "{totalex}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{totalex}", strtotalex)
                    
                Case InStr(1, wPara.Range.Text, "{totalgst}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{totalgst}", strtotalgst)
                    
                Case InStr(1, wPara.Range.Text, "{totalincl}") > 0
                    wPara.Range.Text = Replace(wPara.Range.Text, "{totalincl}", Strtotalincl)
 
                End Select
   
        Next
    Next
 
End Sub

Open in new window

GreekiwiAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Chris BottomleyConnect With a Mentor Commented:
Hello Greekiwi,

i.e.
wdoc.SaveAs "c:\deleteme\" param1 & param2 & ".doc"

where param1 and param2 are for examples field derived data from Access record

Regards,
Chris
0
 
GreekiwiAuthor Commented:
I have put this after the last next:

wdoc.SaveAs "C:\Users\Robert\Desktop\" & Me.OrderDate & Me.WCCHUPID & ".doc"

And get this error
"This is not a valid name. Try on or more of the following:
CHeck the path to make sure it was typed correctly
Select a file from the list of files and folder"
0
 
CvDConnect With a Mentor Commented:
Your problem probably is in your date format. If it contains slashes, windows will not allow it as a filename. Make sure the output of Me.OrderDate does not contain slahes.
0
 
Chris BottomleyCommented:
Can you evaluate the variables ... I presume characters are invalid or the relevant directory path does not exist

Chris
0
 
GreekiwiAuthor Commented:
It was the slashes. Thanks guys
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.