Try


If wdApp Is Nothing Then
   Set wdApp = CreateObject("Word.Application")
End If