VBA para aplicar estilo a todas las imágenes en Word Doc
Pregunta
¿Es posible aplicar un estilo o al menos dar un borde delgado a todas las imágenes en un documento de Word 2013 usando VBA?
Solución
Lo siguiente debería funcionar,
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
pic.Borders.OutsideLineStyle = wdLineStyleSingle
pic.Borders.OutsideLineWidth = wdLineWidth050pt
Next
Otros consejos
Si desea aplicar un estilo a las imágenes, use esta macro:
Sub set_image_to_figure_style()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
pic.Select
Selection.Style = ActiveDocument.Styles("Figure")
Next
End Sub
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow