Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Option Explicit Private Declare Function ShellExecute Lib "shell32" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL As Long = 1 Private Const SW_SHOWMAXIMIZED As Long = 3 Private Const SW_SHOWDEFAULT As Long = 10 Private Const SE_ERR_NOASSOC As Long = 31 Private Sub CommandButton1_Click() Dim ThisDoc as Document Dim strOurRefGuide As String Set ThisDoc = ActiveDocument strOurRefGuide = ThisDoc.AttachedTemplate.Path & "\OurRefGuide.pdf" Call ShellExecute(0&, "open", strOurRefGuide, 0&, 0&, SW_SHOWNORMAL) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.