{"id":496,"date":"2016-10-22T14:37:29","date_gmt":"2016-10-22T19:37:29","guid":{"rendered":"http:\/\/blog.espol.edu.ec\/cjbernal\/?p=496"},"modified":"2016-10-25T14:08:29","modified_gmt":"2016-10-25T19:08:29","slug":"496","status":"publish","type":"post","link":"https:\/\/blog.espol.edu.ec\/cjbernal\/2016\/10\/22\/496\/","title":{"rendered":"Insertar borde a varias im\u00e1genes en Word (MACRO)"},"content":{"rendered":"<p>Este c\u00f3digo sirve para colocar un borde en\u00a0algunas o todas las im\u00e1genes de un documento Word, de acuerdo a la selecci\u00f3n de las mismas; lo que se debe hacer es utilizar la herramienta Macros ubicada en la pesta\u00f1a Vista, o directamente (Alt+F8)<\/p>\n<ol>\n<li>Damos un nombre al c\u00f3digo Macro que colocara el borde\u00a0a las im\u00e1genes. En mi caso que es el mismo del ejemplo lo he llamado \u201c<em><strong>BorderMacro<\/strong>\u201d<\/em><\/li>\n<li>Hacer clic en crear<\/li>\n<li>Se abrir\u00e1 la ventana emergente \u201c<em>Microsoft Visual Basic para Aplicaciones\u201d<\/em> y en la cual pegar el siguiente c\u00f3digo:<\/li>\n<\/ol>\n<p style=\"padding-left: 60px\"><!--more-->Sub <strong>BorderMacro<\/strong>()<\/p>\n<p style=\"padding-left: 60px\">Dim oInlineShp As InlineShape<\/p>\n<p style=\"padding-left: 60px\">For Each oInlineShp In ActiveDocument.InlineShapes<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0 With oInlineShp<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 With .Borders(wdBorderLeft)<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineStyle = wdLineStyleSingle<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineWidth = wdLineWidth<span style=\"color: #ff0000\">100<\/span>pt<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .Color = wd<span style=\"color: #0000ff\">ColorAutomatic<\/span><\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End With<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 With .Borders(wdBorderRight)<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineStyle = wdLineStyleSingle<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineWidth = wdLineWidth<span style=\"color: #ff0000\">100<\/span>pt<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .Color = wd<span style=\"color: #0000ff\">ColorAutomatic<\/span><\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End With<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 With .Borders(wdBorderTop)<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineStyle = wdLineStyleSingle<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineWidth = wdLineWidth<span style=\"color: #ff0000\">100<\/span>pt<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .Color = wd<span style=\"color: #0000ff\">ColorAutomatic<\/span><\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End With<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 With .Borders(wdBorderBottom)<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineStyle = wdLineStyleSingle<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .LineWidth = wdLineWidth<span style=\"color: #ff0000\">100<\/span>pt<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .Color = wd<span style=\"color: #0000ff\">ColorAutomatic<\/span><\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 End With<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .Borders.Shadow = False<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0 End With<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0 With Options<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .DefaultBorderLineStyle = wdLineStyleSingle<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .DefaultBorderLineWidth = wdLineWidth<span style=\"color: #ff0000\">100<\/span>pt<\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 .DefaultBorderColor = wd<span style=\"color: #0000ff\">ColorAutomatic<\/span><\/p>\n<p style=\"padding-left: 60px\">\u00a0\u00a0\u00a0 End With<\/p>\n<p style=\"padding-left: 60px\">Next<\/p>\n<p style=\"padding-left: 60px\">End Sub<\/p>\n<ol start=\"3\">\n<li>Una vez pegado el c\u00f3digo, este se guarda autom\u00e1ticamente.<\/li>\n<li>Cierra la ventana y realiza una prueba<\/li>\n<li>Inserta varias im\u00e1genes en un nuevo documento o sino en un informe o trabajo que contenga varias im\u00e1genes.<\/li>\n<li>Selecciona el rango del documento que contenga a las im\u00e1genes que desees colocar borde; no necesariamente se debe escogerlas de una en una. Para hacerlo con todas las im\u00e1genes debes seleccionar todo o directamente (Ctrl+E)<\/li>\n<li>Nos vamos a Macros y damos clic en \u201cver macros\u201d o sino (Alt+F8)<\/li>\n<li>Seleccionamos nuestro macro (BorderMacro), damos clic en ejecutar y listo.<\/li>\n<\/ol>\n<p>NOTA:<\/p>\n<ul>\n<li>Aseg\u00farate que la primera linea del c\u00f3digo contenga el mismo nombre que diste al momento de crear el Macro<\/li>\n<li>Puedes<\/li>\n<li>El texto con rojo en el c\u00f3digo representa el ancho\u00a0del borde que se insertara en las im\u00e1genes, puedes editar este campo a tu gusto. Aseg\u00farate de que sea el mismo en los 4 lados.<\/li>\n<li>El texto con azul en el c\u00f3digo representa el color del borde que se insertara en las im\u00e1genes, puedes editar este campo para escoger otro colores, utilizando los c\u00f3digos de la siguiente <a href=\"https:\/\/msdn.microsoft.com\/en-us\/library\/microsoft.office.interop.word.wdcolor.aspx\" target=\"_blank\">lista<\/a><\/li>\n<\/ul>\n<p>Espero les sea de mucha utilidad, saludos a todos!<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Este c\u00f3digo sirve para colocar un borde en\u00a0algunas o todas las im\u00e1genes de un documento Word, de acuerdo a la selecci\u00f3n de las mismas; lo que se debe hacer es utilizar la herramienta Macros ubicada en la pesta\u00f1a Vista, o directamente (Alt+F8) Damos un nombre al c\u00f3digo Macro que colocara el borde\u00a0a las im\u00e1genes. En [&hellip;]<\/p>\n","protected":false},"author":659,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1465],"tags":[1213107,1213111,1213108,43843,1333],"class_list":["post-496","post","type-post","status-publish","format-standard","hentry","category-investigacion","tag-borde-imagenes","tag-borde-imagenes-word","tag-borde-varias-imagenes","tag-macros","tag-word"],"_links":{"self":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts\/496","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/users\/659"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/comments?post=496"}],"version-history":[{"count":4,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts\/496\/revisions"}],"predecessor-version":[{"id":525,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/posts\/496\/revisions\/525"}],"wp:attachment":[{"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/media?parent=496"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/categories?post=496"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.espol.edu.ec\/cjbernal\/wp-json\/wp\/v2\/tags?post=496"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}