I am working on a document with numerous screenshots of software windows. The author obviously pasted these in without converting the graphic file format. The document is now too large for users to download.



I've recorded a simple macro to cut the graphic and then use Paste Special to reinsert it as a GIF file. What I would like to do is create a macro that would go through the entire document, find each graphic, convert each to GIF and then repaste the modified graphic. Can anyone help with the VBA to do this?

Here's the "little" macro:
Sub ConverttoGIF()
'
' ConverttoGIF Macro
'
'
Selection.Cut
Selection.PasteSpecial Link:=False, DataType:=13, Placement:=wdInLine, _
DisplayAsIcon:=False
End Sub