Question: Copying data from Word document for PASTE to Excel

Sub CopWordDoc()
Dim n As Integer, z As Boolean
With ThisWorkbook.VBProject.References
    For n = 1 To .Count
        If InStr(.Item(n).Description, "Microsoft Word") Then GoTo 1
    Next n
    .AddFromGuid "{00020905-0000-0000-C000-000000000046}", 1, 0
    z = True
1: End With
HitIt (z)
End Sub

Private Sub HitIt(z As Boolean)
Dim y As OLEObject, n As Integer
Set y = Sheets(1).OLEObjects(1)
Application.ScreenUpdating = False
y.Verb Verb:=xlPrimary
Set y = Nothing
Documents(1).Content.Copy
Sheets(1).[a1].PasteSpecial xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

If z = True Then
    With ThisWorkbook.VBProject.References
    For n = 1 To .Count
        If InStr(.Item(n).Description, "Word") Then
            .Remove .Item(n)
            Exit For
        End If
    Next n
    End With
End If

End Sub