Why does this code fail?

[Dale]

Hello all,

Would someone be so kind as to look at the following and tell me why this
code is intermittent/fails? Is my logic faulty?



With Dialogs(wdDialogFileSaveAs)

If Dir("J:\LASER\" & PATH & "\") <> "" Then

.Name = "J:\LASER\" & PATH & "\LaserAddressSimulation.doc"

Else

.Name = "J:\LASER\LaserAddressSimulation.doc"

End If

.Display
.Execute

End With

 

[Doug Robbins - Word MVP]

I would use:

Dim Path As String, fname As String
If Dir("J:\LASER\" & Path & "\") <> "" Then
fname = "J:\LASER\" & Path & "LaserAddressSimulation.doc"
Else
fname = "J:\LASER\LaserAddressSimulation.doc"
End If
ActiveDocument.SaveAs fname


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Dale]

Doug,

Any particular reason you would axe the Word dialog box?

Dale

 

[Doug Robbins - Word MVP]

It wasn't necessary.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP