missing or broken reference to the file 'MSWORD.OLB' version 8.7

[ricanos]

Hi guys,
I Need Some Help



I use this code to fill a word document with records from a access form:

Option Compare Database
Private Sub Command14_Click()
Call fillwordform
End Sub


Function fillwordform()
Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String

On Error Resume Next
Error.Clear
Path = "C:\Users\Home\Desktop\Print.docx"
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
app.Word.Visible = True
End If
Set doc = appword.Documents.Open(Path, , True)
With doc
    .FormFields("Text1").Result = Me.Field1
    .FormFields("Text2").Result = Me.Field2
    .FormFields("Text3").Result = Me.Field3
    End With
appword.Visible = True
appword.Activate

Set doc = Nothing
Set appword = Nothing


End Function

The project was made on my home pc using Office 2016 and works fine but when a try to run the code on my pc from work i get this error: "Your Microsoft Access database or project contains a missing or broken reference to the file 'MSWORD.OLB' version 8.7"

On pc from work I have word 2013 and access runtime 2013.

[ranman256]

each pc is different. You have to go into vbe, Tools, References, and put the WORD version that that PC does have.

[ricanos]

each pc is different. You have to go into vbe, Tools, References, and put the WORD version that that PC does have.

Thanks for you replay. I have one question. I must put the word version in my home PC for word version in work PC?

[ranman256]

your home pc may have 1 version, so it will be checked.
the work pc may have a different one,
but as long as its checked in references, it will run.

[ricanos]

your home pc may have 1 version, so it will be checked.
the work pc may have a different one,
but as long as its checked in references, it will run.

Thanks to your replay, now it works, unchecked the missing version of word object library and I checked the available object library for that version of word.