Function FnImageInsert(strImagePath, strDocPath)
  Dim objWord
  Dim objDoc
  Set objWord = CreateObject("Word.Application")
  Set objDoc = objWord.Documents.Open(strDocPath)
  objWord.Visible = True
  objWord.Selection.TypeText (vbCrLf & "One Picture will be inserted here....")
  objDoc.InlineShapes.AddPicture (strImagePath)
End Function