Reference Microsoft Word 16.0 Object Library

[YasserKhalil]

Try this code

Sub Add_Object_Library_Reference_By_GUID()  
    Dim strGUID As String
    strGUID = "{00020905-0000-0000-C000-000000000046}"              'Microsoft Word
    Rem strGUID = "{00020813-0000-0000-C000-000000000046}"          'Microsoft Excel
    Rem strGUID = "{91493440-5A91-11CF-8700-00AA0060263B}"          'Microsoft PowerPoint
    Rem strGUID = " {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}"         'Microsoft Access
    Rem strGUID = " {00062FFF-0000-0000-C000-000000000046}"         'Microsoft Outlook
    On Error Resume Next
        ThisWorkbook.VBProject.References.AddFromGuid strGUID, 0, 0
    On Error GoTo 0
End Sub