If you want to open the PDF, then instead of using:
.SaveAs2 FileName:=StrPth & StrNm & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
in my code or:
Shell "C:\program files (x86)\adobe\acrobat 11.0\acrobat\acrobat.exe", vbNormalFocus
in your code, you could use:
.ExportAsFixedFormat OutputFileName:=StrPth & StrNm & ".pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True
with my code (or the equivalent in your code).

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]