Al hilo del artículo anterior del blog, algunos me habéis comentado que sería interesante tener también la macro de VBA para pegar sin formato en Word.
Planteamiento del problema
Esta sección es una repetición del anterior artículo, así que si ya te lo conoces, te recomiendo que te la saltes.
Como bien comenta el artículo de How-To Geek, en Word existe la posibilidad de pegar sin formato, es decir, pegar perdiendo los colorines, tipografía, tamaños, etc. del texto original guardado en el Portapapeles. El procedimiento sería así:
Es un proceso que necesita dos clics de ratón y si eres de los que tienes atadas las manos al teclado, te costará despegarlas para maniobrar con el ratón por la cinta de Word.
Por otra parte, el atajo CTRL + MAYÚS + V se utiliza en muchas otras aplicaciones para pegar sin formato. Lo uso cada día en Evernote.
Por estas razones recomiendo tener un atajo de teclado CTRL + MAYÚS + V en Word para pegar sin formato. Como no existe de serie en Word, hay varias formas de conseguirlo:
- Crear una macro de AutoHotkey, que es la forma que vamos a desarrollar en este artículo.
- Crear una macro de Word y asignar el atajo CTRL + MAYÚS + V a esa macro.
La primera forma la vimos en el anterior artículo. Ahora veremos la segunda. ¡Entramos al tajo!
⁂
Macro de VBA para pegar sin formato en Word
Dentro de Microsoft Word puedes pegar sin formato en Word sin ningún programa externo, gracias a las macros de VBA y con los mismos beneficios que la macro de AutoHotkey: fiabilidad y rapidez.
La macro de VBA para pegar sin formato en Word es:
Sub PegarSinFormato()
' Macro de VBA para pegar sin formato en Word
' https://www.gonduana.com/macro-de-vba-para-pegar-sin-formato-en-word
Selection.PasteAndFormat (wdFormatPlainText)
End Sub
Sencilla, ¿verdad?
La macro de VBA en acción:
Instantánea y fiable, ¿verdad?
☛ Por último, lo que te aconsejo es que asignes el atajo de teclado CTRL + MAYÚS + V a esta macro. De esta forma tendrás el mismo atajo de teclado para la misma función en diferentes aplicaciones.
Si no quieres asignar ningún atajo de teclado, siempre podrás seleccionar la macro que quieres ejecutar con el botón Macros de la cinta de Word Desarrollador:
⁂
Comparativa con la macro de AutoHotkey
Si solo buscabas la macro de VBA, puedes saltarte esta sección.
Pero si quieres compararla con la macro de AutoHotkey que vimos en el anterior artículo, recordarás que no era más compleja:
☛ Pongo solo la imagen de esta macro de AutoHotkey para que no la puedas copiar sin querer, pensando que es de VBA… Si quieres la macro de AutoHotkey, aquí tienes el enlace al artículo.
Como ves, aparte de que en AutoHotkey hay un atajo de teclado (^+v:: para CTRL + MAYÚS + V ) y de que aparece esta línea:
oWord := ComObjActive("Word.Application")
la línea que efectivamente pega sin formato es prácticamente la misma:
oWord.Selection.PasteAndFormat(22) para AutoHotkey
Selection.PasteAndFormat (wdFormatPlainText) para VBA
La única diferencia es la constante de VBA wdFormatPlainText, que en realidad tiene el valor 22, así que puedes comprobar que ambas líneas en ambos idiomas de programación (VBA y AutoHotkey) son muy parecidas.
Esto que podría parecerte un caso muy particular, en realidad no lo es:
☛ La idea que quiero dejarte en esta sección es que si encuentras en internet unas líneas de código en VBA, es bastante fácil pasarlas a AutoHotkey. VBA es más simple porque no hay que definir el objeto oWord, pero el resto de líneas serán siempre muy similares.
⁂
Conclusiones de la macro de VBA
Con esta macro de VBA consigues que el atajo de teclado CTRL + MAYÚS + V sirva para pegar sin formato en Word.
De esta manera, el mismo atajo funciona igual que en otras aplicaciones, así no tienes que memorizar más atajos.
⁂
Nada más, solo un par de recomendaciones si te interesa leer más sobre macros de VBA o si quieres estar al tanto de los artículos de Gonduana que continuarán a este:
- Lee los otros artículos de macros de VBA, de este mismo blog. Los tienes todos si filtras por «VBA» en la nube de etiquetas (columna derecha del blog).
- Suscríbete al boletín del blog, o sígueme en LinkedIn o Twitter (@jssprt). De esta manera, serás el primero en enterarte de la publicación de los artículos.
