Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Function IsWordActive() On Error Resume Next If wrdApp.Name <> "" Then ' Debug.Print wrdApp.Name End If If Err.Number = 462 Or 91 Then Err.Clear With wrdApp Set wrdApp = GetObject(Class:="Word.Application") If Err.Number <> 0 Then Set wrdApp = CreateObject("Word.Application") End If End With End If wrdApp.Visible = False On Error GoTo 0 End Function
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.