Sub Test() Dim exp As ExportFilter Dim pal As StructPaletteOptions Dim se As StructExportOptions Dim n As Long Dim i As Integer Set pal = CreateStructPaletteOptions Set se = CreateStructExportOptions With pal .DitherType = cdrDitherNone .Smoothing = 5 .PaletteType = cdrPaletteOptimized End With With se .AntiAliasingType = cdrNormalAntiAliasing .Dithered = False .ResolutionX = 96 .ResolutionY = 96 End With Set exp = ActiveDocument.ExportEx("c:\transparent.gif", cdrGIF, , se, pal) With exp n = .NumColors For i = 1 To n If .PaletteColor(i) = RGB(255, 255, 255) Then .ColorIndex = i .Transparency = 1 Exit For End If Next i .Finish End WithEnd Sub