Photograph in Report in Word format

Hi All,We have 2 modules Employee and Report.In the employee module we have information for each employee including their photographs as attachment.

Now in the report module we have to create a report in which we have to show photograph of each employee as well as their other information.

Report can be in any format : Word or Excel

We have tried creating an HTML report and we have been succesful.

However same thing is not working for MS Word.

Code for HTML report:

While Not( doc Is Nothing)

	Print |<tr>|

	Dim vEval As Variant

	vEval = Evaluate("@AttachmentNames", doc)

	i=0

	Forall v In vEval

		If v <> "" Then

			If (i<1) Then					

				Set attch = doc.GetAttachment( v)

				i=i+1

				dbpath = doc.path(0)					

				docID = doc.UniversalID					

				serName = doc.serName(0)					

				viewID=ViewByDocID.UniversalID

				imgName = attch.Name

				

				

				If Not imgName ="" Then

					Print |<td>| +|<img  src="http://|+ serName + |/|+ dbpath+|/|+viewID + |/|+docID+|/|+file+|/|+imgName+|"  width= 150 height =150>| 

					Print |</td>| 								

				End If