S
sam
Hi All,
I am trying to create a button 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
I am trying to create a button 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