Hi guys,
I have this button so that I can open a PDF file. Is there anyway where I can rename the hyperlink path? I want to change it to "soft copy". The coding of my button is below.
Private Sub Command461_Click()
Dim Fd As FileDialog
Set Fd = Application.FileDialog(msoFileDialogFilePicker)
With Fd
.AllowMultiSelect = False
.Title = "Select Only One File"
.Filters.Clear
.Filters.Add "Pdf file", "*.pdf*"
If .Show Then
For Each VtrSelectItem In .SelectedItems
Me.Pdfcopy = VtrSelectItem
Next VtrSelectItem
Else
'error when we cancel dialog box
MsgBox "No file Selected", vbInformation, "Cancelled"
Me.Pdfcopy = ""
End If
Set Fd = Nothing
End With
End Sub