Why does this code fail?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dale - 20 Mar 2006 18:24 GMT

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

Reply to this Message

Doug Robbins - Word MVP - 20 Mar 2006 19:48 GMT

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

Signature

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

> Hello all,
>
[quoted text clipped - 17 lines]
>
> End With

Reply to this Message

Dale - 20 Mar 2006 19:59 GMT

Doug,

Any particular reason you would axe the Word dialog box?

Dale

>I would use:
>
[quoted text clipped - 27 lines]
>>
>> End With

Reply to this Message

Doug Robbins - Word MVP - 20 Mar 2006 22:19 GMT

It wasn't necessary.

Signature

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

> Doug,
>
[quoted text clipped - 33 lines]
>>>
>>> End With

Reply to this Message