Insertar borde a varias imágenes en Word (MACRO)

Este código sirve para colocar un borde en algunas o todas las imágenes de un documento Word, de acuerdo a la selección de las mismas; lo que se debe hacer es utilizar la herramienta Macros ubicada en la pestaña Vista, o directamente (Alt+F8)

1. Damos un nombre al código Macro que colocara el borde a las imágenes. En mi caso que es el mismo del ejemplo lo he llamado “BorderMacro”
2. Hacer clic en crear
3. Se abrirá la ventana emergente “Microsoft Visual Basic para Aplicaciones” y en la cual pegar el siguiente código:

Sub BorderMacro()

Dim oInlineShp As InlineShape

For Each oInlineShp In ActiveDocument.InlineShapes

    With oInlineShp

        With .Borders(wdBorderLeft)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth100pt

            .Color = wdColorAutomatic

        End With

        With .Borders(wdBorderRight)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth100pt

            .Color = wdColorAutomatic

        End With

        With .Borders(wdBorderTop)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth100pt

            .Color = wdColorAutomatic

        End With

        With .Borders(wdBorderBottom)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth100pt

            .Color = wdColorAutomatic

        End With

        .Borders.Shadow = False

    End With

    With Options

        .DefaultBorderLineStyle = wdLineStyleSingle

        .DefaultBorderLineWidth = wdLineWidth100pt

        .DefaultBorderColor = wdColorAutomatic

    End With

Next

End Sub

3. Una vez pegado el código, este se guarda automáticamente.
4. Cierra la ventana y realiza una prueba
5. Inserta varias imágenes en un nuevo documento o sino en un informe o trabajo que contenga varias imágenes.
6. Selecciona el rango del documento que contenga a las imágenes que desees colocar borde; no necesariamente se debe escogerlas de una en una. Para hacerlo con todas las imágenes debes seleccionar todo o directamente (Ctrl+E)
7. Nos vamos a Macros y damos clic en “ver macros” o sino (Alt+F8)
8. Seleccionamos nuestro macro (BorderMacro), damos clic en ejecutar y listo.

NOTA:

• Asegúrate que la primera linea del código contenga el mismo nombre que diste al momento de crear el Macro
• Puedes
• El texto con rojo en el código representa el ancho del borde que se insertara en las imágenes, puedes editar este campo a tu gusto. Asegúrate de que sea el mismo en los 4 lados.
• El texto con azul en el código representa el color del borde que se insertara en las imágenes, puedes editar este campo para escoger otro colores, utilizando los códigos de la siguiente lista

Espero les sea de mucha utilidad, saludos a todos!

Tags: borde imagenes, borde imagenes word, borde varias imagenes, macros, word