I have a word macro that I want to save the active document as a PDF to a nominated address, It works by opening the pdf in a pdf reader but won't svae to the nominated address.

The cide fr the Macro is :

4  Save as a PDF and Open

    Sub SaveAsPDFAndOpen()

    Dim Terms As String

    Dim number As String

    Dim office As String

    Dim filePath As String

    ' Get the content of the bookmarks

    Terms = ActiveDocument.Bookmarks("Terms").Range.Text

    number = ActiveDocument.Bookmarks("Number").Range.Text

    ' Construct the file path

    filePath = " G:\Shared drives\AuSIL Bookshop\Invoices-Receipts\Darwin Invoices" & "_" & number & "_" & Terms & ".pdf"

    ' Save the document as PDF

    ActiveDocument.ExportAsFixedFormat _

        OutputFileName:=filePath, _

        ExportFormat:=wdExportFormatPDF

    ' Open the PDF file

    Shell "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe """ & filePath & """", vbNormalFocus

End Sub