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 With 
End Sub