The boxed area is truncating.
using this code Dim imagefilename As String
Dim options As New Aspose.Words.LoadOptions()
options.LoadFormat = Aspose.Words.LoadFormat.Html
Dim doc As New Aspose.Words.Document(file, options)
Dim saveOptions As New Aspose.Words.Saving.ImageSaveOptions(Aspose.Words.SaveFormat.Tiff)
saveOptions.PageIndex = 0
saveOptions.PageCount = doc.PageCount
saveOptions.PrettyFormat = True
saveOptions.TiffCompression = Aspose.Words.Saving.TiffCompression.Ccitt4
saveOptions.Resolution = 200
imagefilename = Program.imagepath + System.IO.Path.GetFileNameWithoutExtension(file) + Guid.NewGuid().ToString + ".TIFF"
doc.Save(imagefilename, saveOptions)
Program.NoOfPages = doc.PageCount