vba - varias - Convierta todas las formas en imágenes en Ms word con macro

seleccionar objetos en excel para mac

Question

Escribo esta macro para convertir todas las formas en documento a imagen:

Sub AllShapeToPic()    
   For Each oShp In ActiveDocument.Shapes
    oShp.Select
    Selection.Cut
    Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
   Next oShp

End Sub

Pero cuando lo ejecuto, ninguna de las formas se convierte en imagen.
¿Qué pasa con mi código macro?

Answer 1

Bienvenido al maravilloso mundo de la manipulación de la misma colección que estás recorriendo. En el momento en que corte, está eliminando efectivamente la forma de la colección, alterando su ciclo.

Si desea recorrer las formas (o las filas de la tabla o lo que sea) y eliminar algo de esa colección, simplemente retroceda:

Dim i As Integer, oShp As Shape

For i = ActiveDocument.Shapes.Count To 1 Step -1
    Set oShp = ActiveDocument.Shapes(i)
    oShp.Select
    Selection.Cut
    Selection.PasteSpecial Link:=False, dataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
Next i

Alternativamente para tablas (advertencia: no probado)

Dim tbl As Table

For i = ActiveDocument.Tables.Count To 1 Step -1
    Set tbl = ActiveDocument.Tables(i)
    tbl.Select
    Selection.Cut
    Selection.PasteSpecial Link:=False, dataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
Next i

Para ecuaciones: las ecuaciones son InlineShapes y tienen una propiedad "OMath". Úselo para identificar un objeto de ecuación. Advertencia: no probado

Dim equation As InlineShape

For i = ActiveDocument.InlineShapes.Count To 1 Step -1
    Set equation = ActiveDocument.InlineShapes(i)
    If equation.OMath > 0 Then
        equation.Select
        Selection.Cut
        Selection.PasteSpecial Link:=False, dataType:=wdPasteEnhancedMetafile, _
            Placement:=wdInLine, DisplayAsIcon:=False
    End If
Next i