'If Err.Number <> 0 Then
'MsgBox ("Word isn't already running")
Set wdApp = CreateObject("Word.Application")
MsgBox "Got here 3 and Err.Number = " & Err.Number
'End If
wdApp.Documents.Close (wdDoNotSaveChanges)
MsgBox "Got here 4 and Err.Number = " & Err.Number
' On Error GoTo 0
Set wdDoc = wdApp.Documents.Open(Application.Presentations(1).Slides(i).Shapes.Range(Array("WordLoc")).TextFrame.TextRange.Text)
MsgBox "Got here 5 and Err.Number = " & Err.Number
wdApp.Visible = True
wdDoc.Activate
MsgBox "Got here 6 and Err.Number = " & Err.Number