Dim mf As New Microsoft.Office.Interop.Word.Application
mf.Documents.Add()
Dim range As Object = mf.ActiveDocument.Range(Start:=0, End:=0)
range.InsertParagraph()
range.InsertParagraph()
range.Text = "Test"
range.InsertParagraph()
range.InlineShapes.AddPicture("d:\test.png")
Try
mf.ActiveDocument.SaveAs("d:\test1.docx")
mf.ActiveDocument.Close()
mf.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(mf)
System.Runtime.InteropServices.Marshal.ReleaseComObject(range)
GC.Collect()
GC.WaitForPendingFinalizers()
Catch
range = Nothing
mf = Nothing
End Try