VBA参照設定　WORD

エクセルの自動参照設定は

‘エクセル自動参照設定
On Error GoTo Err_Shori
Dim Ref As Reference
Const strExcel As String = “{00020813-0000-0000-C000-000000000046}”
Set Ref = References.AddFromGuid(strExcel, 1, 3)
Set Ref = Nothing
Exit Sub
Err_Shori:
If err.Number = 32813 Then
Resume Next
Else
MsgBox err.Description
End If

としているが　wordでは

Const strWord As String = “{00020905-0000-0000-C000-000000000046}”
Set Ref = References.AddFromGuid(strWord, 8, 1)

にしてみる