I'll need sometime to digest your code. However I have this so far which appears to work quite well. I'll fully test it today. There are aspects here that I do not understand, mostly about the when and how of declaring and retreiving variables. But I have a result of sorts.
Code:
Sub Main()
Dim i As Long
Dim tgf As String
Dim filenametitle As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Select Folder for..."
.Show
tgf = .SelectedItems(1)
End With
MsgBox tgf
Dim vrtSelectedItem As Variant
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Documents.Open FileName:=vrtSelectedItem
Options.DefaultFilePath(wdDocumentsPath) = tgf
filenametitle = ActiveDocument.BuiltInDocumentProperties("Title")
With Dialogs(wdDialogFileSaveAs)
.Name = filenametitle
.Format = wdFormatPDF
.Execute
ActiveDocument.Close SaveChanges:=False
End With
Next
Else
End If
End With
Shell "C:\program files (x86)\adobe\acrobat 11.0\acrobat\acrobat.exe", vbNormalFocus
End Sub