Private Sub ABRIRNOTABTN_Click()
If NOTATXT <> "" Then
On Error Resume Next
Call Shell("C:\Program Files (x86)\Foxit Software\Foxit Reader\FoxitReader.exe " & NOTATXT, vbMaximizedFocus)

End If



End Sub

Private Sub ABRIRORÇAMENTOBTN_Click()
If ORÇAMENTOTXT <> "" Then
On Error Resume Next
Call Shell("C:\Program Files\Microsoft Office\root\Office16\WINWORD.exe " & ORÇAMENTOTXT, vbMaximizedFocus)

End If

End Sub

Private Sub ANEXARNOTABTN_Click()
With Application.FileDialog(msoFileDialogFilePicker)
 .Filters.Add "PDF", "*.PDF", 2
 .AllowMultiSelect = False
 If .Show = 0 Then
 MsgBox "Nenhum arquivo selecionado", vbInformation, "Operação cancelada"
 Else
 NOTATXT = .SelectedItems(1)
 End If
 End With
 
End Sub

Private Sub ANEXARORÇAMENTOBTN_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Add "Documentos do Word", "*.docx", 1
.AllowMultiSelect = False
If .Show = 0 Then
MsgBox "Nenhum arquivo selecionado", vbInformation, "Operação cancelada"
Else
ORÇAMENTOTXT = .SelectedItems(1)
End If
End With

End Sub