Copying part of a header from active word document and pasting in excel using VBA

[Prabhat Barik]

My code is running fine for the first time, but when i close the document and open new one, it's showing error 462,
Sub headeradding()

Dim applWord As Object
Dim docWord As Object
Dim test As String
Dim claim As String

On Error Resume Next
Set applWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set applWord = CreateObject("Word.Application")
End If
On Error GoTo 0

'make the Word window visible:
applWord.Visible = True

'maximize Word window:
'replaced the Word's built-in constant wdWindowStateMaximize with its numerical value 1.
applWord.WindowState = 1

test = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

claim = ActiveCell.Value

openPos = InStr(test, "f")
closepos = InStr(test, claim)
midBit = Mid(test, openPos + 1, closepos - openPos - 1)

MsgBox midBit

docWord.Close SaveChanges:=-1

'quit the word application:
applWord.Quit

'clear the object variables:
Set docWord = Nothing
Set applWord = Nothing


End Sub


Showing error 91 (sometimes)

Please help