Microsoft Office Forums - View Single Post - [Solved] Save As PDF Macro/VBA with Predetermined File Name

DefinedDesign · 10-29-2014, 06:19 AM

Thank you Paul

I am very grateful for your help! I inserted your code but I'm getting 'Compile Error: Expected End Sub'. The first line of text was highlighted yellow in the error.

Code:

Private Sub CommandButton1_Click()
Sub Demo()
Dim StrPth As String
StrPth = GetFolder & "\"
If StrPth = "\" Then Exit Sub
With ActiveDocument
  .SaveAs2 FileName:=StrPth & "\Documents\NURS_353_Clinical_Evaluation_" & _
    Replace(.FormFields("Client").Result, " ", "_") & "_" & _
    Format(Date, "MM.DD.YYYY") & ".PDF", _
    FileFormat:=wdFormatPDF, AddToRecentFiles:=False
End With
End Sub
 
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function