Write a VBA created word doc to a specific location

[Laurencebpk]

Hello,

I have the following code segment that creates a word document from Access VBA.

Dim oWord As New.Application
Dim strTN As String

With oWord

.Documents.Add "\\ServerName\Fred\Templates\Fred.dot"
.Selection.GoTo wdGoToBookmark, , , "bmkName"
.Selection.TypeText Me.txtName
.
.
.Visible = False

End With

I want to write the created document Fred.doc to a particular location. If I hard code the required pathname in it works using this
.ActiveDocument.SaveAs FileName:= "\\ServerName\Fred\Number\Fred.doc"

But the 'Number' Folder is a variable name and I want to use something like
PathName = "\\ServerName\Fred\" & strNumber & "\Fred.dot"
then
.ActiveDocument.SaveAs FileName:= PathName

But this does not work I get an error dialouge boe that says
"Error in Sub TransferToWord
Description: This is not a valid file name. Error Number: 5152"

ANY IDEAS. Also, should I close the file before saving.

Many Thanks
Laurence

[kadghar]

perhaps its Fred.doc instead of .dot
^.^

and... im not sure, but maybe you have to create the folders first...

and no, you can save when the file is open, that shouldn't give you an error