Save word to pdf and open it with viewer

SaveAsPdf.vbs

Sub SaveAsPdf()
'
'
'
    Dim filename As String
    filename = ActiveDocument.Path & "\" _
        & CreateObject("scripting.filesystemobject").getbasename(ActiveDocument) _
        & ".pdf"
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        filename, ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
        
    Dim a
    Dim s As String
    s = "e:\SumatraPDF\SumatraPDF.exe  -reuse-instance " & Chr(34) & filename & Chr(34)
    a = Shell(s, 1)
End Sub