Sub Test() Dim opt As New StructExportOptions Dim flt As ExportFilter opt.ImageType = cdrBlackAndWhiteImage opt.Compression = cdrCompressionPackBits opt.Dithered = True Set flt = ActiveDocument.ExportEx("C:\Temp\img.bmp", cdrBMP, cdrCurrentPage, opt) flt.FinishEnd Sub