Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.