Sub tiff()
'
' Recorded 29.10.2007
'
' Description:
'
'
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim expflt As ExportFilter
Set expflt = ActiveDocument.ExportBitmap("C:\buklet(Curves)..tif", cdrTIFF, cdrSelection, cdrCMYKColorImage, 1748, 2480, 300, 300, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone)
expflt.Finish
End Sub