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.Finish
End Sub