Hi All,

I am trying to create a button on access form that would export some of the
fields to a word template. I think I have it right but I am getting a type
mismatch error on this line:

Set doc = wdApp.Documents.Open(fDialog)

what might be the reason? Here is the whole code:

Dim wdApp As Object
Dim doc As Object
On Error Resume Next
Set wdApp = GetObject("C:\My Documents\Address.dotx", "Word.Application")

If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Dim FName As String

fDialog = Application.FileDialog(msoFileDialogFilePicker).Show

On Error Resume Next
Set doc = wdApp.Documents.Open(fDialog)

wdApp.ActiveDocument.Variables("Address").Value = Me.Address.Value
wdApp.ActiveDocument.Variables("City").Value = Me.City.Value

wdApp.ActiveDocument.Fields.Update

FName = "C:\My Documents\" & "Address" & ".doc"

wdApp.ActiveDocument.SaveAs FileName:=FName

wdApp.Visible = True

Set doc = Nothing
Set wdApp = Nothing
wApp.Quit

End Sub

Please help!

Thanks in advance

"Sam" <(E-Mail Removed)> wrote in message
news:75F988A4-67BD-4437-B307-(E-Mail Removed)...
> Hi All,
>
> I am trying to create a button on access form that would export some of
> the
> fields to a word template. I think I have it right but I am getting a type
> mismatch error on this line:
>
> Set doc = wdApp.Documents.Open(fDialog)
>
> what might be the reason? Here is the whole code:
>
> Dim wdApp As Object
> Dim doc As Object
> On Error Resume Next
> Set wdApp = GetObject("C:\My Documents\Address.dotx", "Word.Application")
>
> If Err.Number <> 0 Then 'Word isn't already running
> Set wdApp = CreateObject("Word.Application")
> End If
> On Error GoTo 0
>
> Dim FName As String
>
> fDialog = Application.FileDialog(msoFileDialogFilePicker).Show
>
> On Error Resume Next
> Set doc = wdApp.Documents.Open(fDialog)
>
> wdApp.ActiveDocument.Variables("Address").Value = Me.Address.Value
> wdApp.ActiveDocument.Variables("City").Value = Me.City.Value
>
> wdApp.ActiveDocument.Fields.Update
>
> FName = "C:\My Documents\" & "Address" & ".doc"
>
> wdApp.ActiveDocument.SaveAs FileName:=FName
>
> wdApp.Visible = True
>
> Set doc = Nothing
> Set wdApp = Nothing
> wApp.Quit
>
> End Sub


The Show method of the FileDialog object returns a Long value indicating
whether the user pressed the action button (-1) or the cancel button (0).
It doesn't return the name of the file selected as a string, which seems to
be what your code is expecting. Instead, you have to get the selected
filename from the dialog's SelectedItems collection. See the example in the
online help.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)