Конвертация встроенных изображений в документе

[Franck]

Доброго времени суток.
Помогите, пожалуйста, справиться с такой проблемой:
Имеется много больших многостраничных файлов *.docx с картинками, причем картинки в большинстве вставлены в формате png, что очень сильно увеличивает размер файла. Вручную вырезать каждую картинку и вставлять ее в формате jpg сильно долго и муторно. Есть ли возможность автоматизировать эту работу макросом? Ну, чтобы макрос сконвертировал каждое изображение в документе в формат jpg?

[Franck]

Сам нашел

Sub Convert_2_jpg()

Dim shp As InlineShape
If ActiveDocument.InlineShapes.Count = 0 Then Exit Sub
For i = ActiveDocument.InlineShapes.Count To 1 Step -1
   Set shp = ActiveDocument.InlineShapes(i)
    If shp.Type = wdInlineShapePicture Then
        shp.Select
        Selection.Cut
        Selection.PasteSpecial Link:=False, DataType:=15, Placement:=wdInLine, _
        DisplayAsIcon:=False
    End If
Next
End Sub