try first without all those storyranges:

Sub M_snb()
  sn=range("C5:C8")

  with Getobject("C:\Users\Admin\Google Drive\SMS TEMPLATES\02 RISK ASSESSMENTS\001 Electrical works RA.docx")
    activesheet.Shapes(1).CopyPicture
    .Paragraphs.Last.Range.PasteSpecial
    activesheet.Shapes(2).CopyPicture
    .Paragraphs.first.Range.PasteSpecial
     .Application.Selection.HomeKey 6

    .Find.execute "an1", , , , , , , , ,sn(1,4),2
    .find.execute "id1", , , , , , , , ,sn(1,1),2
    .find.execute  "rd1", , , , , , , , ,sn(1,2),2

   .SaveAs2 "C:\Users\Admin\Google Drive\SMS TEMPLATES\02 RISK ASSESSMENTS\001 Electrical works RA.docx"
   .Close 0
  end with
End Sub