VBA code runs and creates new file with a format of file and not word doc!!

[sashapixie]

Hello There,

I have the following vba written in my access 2013 database:

Private Sub CmbMobileReceipt_Click()

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim sEmployeeFullName As String

sEmployeeFullName = Full_Name
sMobileNumber = Mobile_Phone

'Open Word
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

'Print Employee handbook receipts
MobileReceipt = CurrentProject.Path & "\Mobile Phone acceptance letter"
Set wrdDoc = wrdApp.Documents.Open(MobileReceipt)
With wrdApp.ActiveDocument.Bookmarks

.Item("EmployeeFullName").Range.Text = sEmployeeFullName
.Item("MobileNumber").Range.Text = sMobileNumber

wrdApp.ActiveDocument.PrintOut
wrdApp.ActiveDocument.Close


'Close Word
wrdApp.Application.Quit

'Clean up code
Set wrdApp = Nothing

End With
End Sub

When I run this code a file appears in my folder location with the same document name but the file type is a file and not a word document, when I run the code again it always opens this file, does anyone know why this is happening or how I can delete the file?

 

[smozgur]

I think you are missing the file extension in your MobileReceipt variable - doc or docx. You probably don't see the extension in windows explorer but it is supposed to have an extension. Right click on the file, properties and see the file extension and add to the variable like below.

[COLOR=#333333]MobileReceipt = CurrentProject.Path & "\Mobile Phone acceptance letter.docx"[/COLOR]

 

[sashapixie]

Hello Smozgur,

Thank you, I have added the doc to the end of the file path and this has fixed my issue.

 

[smozgur]

Hello Smozgur,

Thank you, I have added the doc to the end of the file path and this has fixed my issue.

Glad to hear it helps!