Saving as PDF and Opening document for viewing in one step

[AnalystGuy]

I have this code which saves the document as a pdf in the proper folder but I want it to open up the newly saved PDF and close the Word Application as well. How would I code this?

ActiveDocument.SaveAs "R:\Group\Adverse Action Letter\ " & Me.TextBox5 & ".pdf"

Thank you!

[gmayor]

Dim strDocName as String
strDocName = "R:\Group\Adverse Action Letter\ " & Me.TextBox5 & ".pdf" 

    ActiveDocument.ExportAsFixedFormat OutputFilename:=strDocName, _
                                       ExportFormat:=wdExportFormatPDF, _
                                       OpenAfterExport:=True, _
                                       OptimizeFor:=wdExportOptimizeForPrint, _
                                       Range:=wdExportAllDocument, From:=1, to:=1, _
                                       Item:=wdExportDocumentContent, _
                                       IncludeDocProps:=True, _
                                       KeepIRM:=True, _
                                       CreateBookmarks:=wdExportCreateHeadingBookmarks, _
                                       DocStructureTags:=True, _
                                       BitmapMissingFonts:=True, _
                                       UseISO19005_1:=False
Application.Quit