It helps if you mention where it errors... most probably the line
which probably means the document does not contain a bookmark called 'Risk'
If would probably help if you programmed 'defensively' - check an object exists before trying to use it, especially if you have no control over opening the document. The user may not open the document you expect and then you know exactly what you are dealing with rather than trying to decipher a sometimes obscure error message.
I would also assign the document object to a variable rather than relying on the ActiveDocument property. Like Excels 'Activesheet', it may not be the one you expect.
Dim oDoc As Object Set oDoc = objWord.Documents.Open(Filename:=strFolder) 'pastes the value of cell at the bookmark With oDoc If .BookMarks.Exists("Risk") Then .BookMarks("RISKS").Range.Characters.Last.Next.PasteAppendTable Else MsgBox "The document " & UCase(.Name) & " does not contain a bookmark named 'RISKS'", vbExclamation, "Error" End If End With