Sub Test()
Dim opt As New StructExportOptions
Dim flt As ExportFilter
opt.ResolutionX = 300
opt.ResolutionY = 300
opt.ImageType = cdrCMYKColorImage
opt.Compression = cdrCompressionLZW
Set flt = ActiveDocument.ExportEx("C:\Temp\img.tif", cdrTIFF, cdrSelection, opt)
flt.Finish
End Sub