Paul: Thank you! I've tested and it works perfectly in seconds on a large document. However, the screenshots lose quality in the conversion to GIF. I've tested all the graphics formats available in the Paste Special dialog, and windows metafile and enchanced metafile formats are the best quality.

Thinking that the "data type = 13" in the macro referred to the graphic format, I re-recorded two macros, one with metafile and the other with enhanced metafile. But the macro looks different from the first one I recorded. They also are exactly the same. I'm not sure how to modify the code you sent to insert one of the metafile formats. Can you suggest? The second macro is below.

Sub ConvertToMeta2()
'
' ConvertToMeta2 Macro
'
'
Selection.Cut
Selection.PasteAndFormat (wdPasteDefault)
End Sub