Macro In Word

[coleyoder]

I have this macro in word where i am trying to Merge and turn the files into PDFs. It doesnt seem to be working and i cannot figure out how to go about fixing it. I copied the macro below:

Sub Merge_to_pdf() '
' merge1record_at_a_time Macro
'
'
    Dim fd As FileDialog




    'Create a FileDialog object as a Folder Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd




        'Use the Show method to display the Folder Picker dialog box and return the user's action.
        'The user pressed the button.
        If .Show = -1 Then
                For Each vrtSelectedItem In .SelectedItems




                'vrtSelectedItem is aString that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example displays the path in a message box.
        SelectedPath = vrtSelectedItem




        Next vrtSelectedItem




        Else
        MsgBox ("No Directory Selected.  Exiting")
        Exit Sub
        End If
    End With




    'Set the object variable to Nothing.
    Set fd = Nothing




Application.ScreenUpdating = False




MainDoc = ActiveDocument.Name
    ChangeFileOpenDirectory SelectedPath
    For i = 1 To ActiveDocument.MailMerge.DataSource.RecordCount
        With ActiveDocument.MailMerge
            .Destination = wdSendToNewDocument
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = i
                .LastRecord = i
                .ActiveRecord = i
                docName = "2019 Detroit Tigers Spring Training 5 Game Flex Plan Information - " & .DataFields("First_Name").Value & " " & .DataFields("Last_Name").Value & ".pdf"      ' ADDED CODE
            End With
            .Execute Pause:=False
    Application.ScreenUpdating = False
            
        End With
    ActiveDocument.ExportAsFixedFormat OutputFileName:=docName, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ActiveWindow.Close SaveChanges:=False
    


    Next i
Application.ScreenUpdating = True


End Sub

If anyone can help me out that would be greatly appreciated

 

[Macropod]

It appears you got that code from: https://www.mrexcel.com/forum/gener...vidual-pdf-files-post3518623.html#post3518623
Try the somewhat simpler code at:
https://www.mrexcel.com/forum/gener...vidual-pdf-files-post3710126.html#post3710126
or, simpler still:
https://www.mrexcel.com/forum/gener...vidual-pdf-files-post3694494.html#post3694494

 

[coleyoder]

Thank you so much!

Got it to work with your help it was much appreciated