VBA code correction!

Hello,

Does anyone know how i can amend the below code to printout a notepad file instead of a word document??

Sub PrintWordDocument()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim myDocName As String
Dim myPrintBackground As Boolean


myDocName = "C:\transactions.txt"
Set wrdApp = CreateObject("Word.Application") 'I think its something to do with the code on this line

wrdApp.Visible = True 'Use this if you want it for testing.
Set wrdDoc = wrdApp.documents.Open(Filename:=myDocName)
myPrintBackground = wrdApp.Options.printbackground
wrdApp.Options.printbackground = False
wrdDoc.PrintOut
wrdApp.Options.printbackground = myPrintBackground
wrdDoc.Close savechanges:=False
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub