Since you want to be able to change the save folder, you could use something as simple as:
Code:
Sub Demo()
Dim StrNm As String
StrNm = Split(ActiveDocument.Tables(1).Cell(1, 1).Range.Text, vbCr)(0)
With Application.Dialogs(wdDialogFileSaveAs)
.Name = StrNm
.Format = wdFormatPDF
.Show
End With
End Sub