VBA to Word problem

[willockguard-newsgoups]

Can anyone help with the following frustration?

I am trying to export a report into a Word Document with a specific
template. The code snippets are:

Dim Wrd As Word.Application
Dim objDocs As Object
Dim strLetter As String
Dim strTemplateDir As String
Dim prps As Object
Dim blnWordRunning As Boolean

........... Wrd.ChangeFileOpenDirectory _
"C:\Documents and Settings\STEPHEN LAYTON\Desktop\PDF\"
Wrd.Selection.InsertFile Filename:="ContractorCopy_379-05.rtf",
Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
and all works fine. However, change the file name to a variable passed
from another module and I get the error message that the file cannot be
found (despite debug.print the variable and checking the name. The
revised code is:

Wrd.ChangeFileOpenDirectory _
"C:\Documents and Settings\STEPHEN LAYTON\Desktop\PDF\"
Wrd.Selection.InsertFile Filename:=strFile, Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

Any ideas?

--
Public Key: http://www.pgp.uk.demon.net/pks/pks-commands.html -
0x36EA37F5

[Herbert Chan]

I'm not sure, but just an idea.

If you already know the directory is going to be "C:\Documents and
Settings\STEPHEN LAYTON\Desktop\PDF\", why don't you try giving the filename
together with the path, i.e., "C:\Documents and Settings\STEPHEN
LAYTON\Desktop\PDF\" & strFile.

Hope it works.

Herbert

<wi********************@yahoo.co.uk> ¦b¶l¥ó
news:Te**************@layton.demon.co.uk ¤¤¼¶¼g...

Can anyone help with the following frustration?

I am trying to export a report into a Word Document with a specific
template. The code snippets are:

Dim Wrd As Word.Application
Dim objDocs As Object
Dim strLetter As String
Dim strTemplateDir As String
Dim prps As Object
Dim blnWordRunning As Boolean

.......... Wrd.ChangeFileOpenDirectory _
"C:\Documents and Settings\STEPHEN LAYTON\Desktop\PDF\"
Wrd.Selection.InsertFile Filename:="ContractorCopy_379-05.rtf",
Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
and all works fine. However, change the file name to a variable passed
from another module and I get the error message that the file cannot be
found (despite debug.print the variable and checking the name. The
revised code is:

Wrd.ChangeFileOpenDirectory _
"C:\Documents and Settings\STEPHEN LAYTON\Desktop\PDF\"
Wrd.Selection.InsertFile Filename:=strFile, Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

Any ideas?

--
Public Key: http://www.pgp.uk.demon.net/pks/pks-commands.html -
0x36EA37F5

[willockguard-newsgoups]

Herbert

Many thanks for your reply. It works beautifully.

Stephen

In article <43**********@rain.i-cable.com>, Herbert Chan
<he*****@chan.com> writes

I'm not sure, but just an idea.

If you already know the directory is going to be "C:\Documents and
Settings\STEPHEN LAYTON\Desktop\PDF\", why don't you try giving the filename
together with the path, i.e., "C:\Documents and Settings\STEPHEN
LAYTON\Desktop\PDF\" & strFile.

Hope it works.

Herbert

<wi********************@yahoo.co.uk> ¦b¶l¥ó
news:Te**************@layton.demon.co.uk ¤¤¼¶¼g...

Can anyone help with the following frustration?

I am trying to export a report into a Word Document with a specific
template. The code snippets are:

Dim Wrd As Word.Application
Dim objDocs As Object
Dim strLetter As String
Dim strTemplateDir As String
Dim prps As Object
Dim blnWordRunning As Boolean

.......... Wrd.ChangeFileOpenDirectory _
"C:\Documents and Settings\STEPHEN LAYTON\Desktop\PDF\"
Wrd.Selection.InsertFile Filename:="ContractorCopy_379-05.rtf",
Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
and all works fine. However, change the file name to a variable passed
from another module and I get the error message that the file cannot be
found (despite debug.print the variable and checking the name. The
revised code is:

Wrd.ChangeFileOpenDirectory _
"C:\Documents and Settings\STEPHEN LAYTON\Desktop\PDF\"
Wrd.Selection.InsertFile Filename:=strFile, Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

Any ideas?

--
Public Key: http://www.pgp.uk.demon.net/pks/pks-commands.html -
0x36EA37F5