Como salvar Word Shapes na imagem usando VBA?

Question

Jun 28, 2011, 09:59 PM

Como salvar Word Shapes na imagem usando VBA?

Tenho um requisito simples para salvar os Objetos de Desenho do MS-Office incorporados em um Documento do Word em arquivos de imagem. O código a seguir trabalhou para a extração de imagens do Powerpoint. No entanto, ele não funciona para o MS-Word se eu modificar o ActivePresentation para ActiveDocument. O método Export não estava disponível para o objeto de forma. Alguma ideia

Dim oPPTShap as Shape
For k = 1 To .Slides(intSlide).Shapes.Count
    Set oPPTShape = ActivePresentation.Slides(intSlide).Shapes(k)
    oPPTShape.Export "C:\images\s" & k & ".bmp", ppShapeFormatBMP                
Next