•Partes del video:

•Introducción: 00:00

•Cómo grabar Macros en Word: 02:40

•Ingresar al Visual Basic a ver y editar códigos: 03:40

•Cómo asignar Macro a botón y agregar botón a la barra de herramientas: 05:00

•Editando código de la Macro para mejorarlo: 07:45

•Cómo crear Macro para formateo de imágenes: 09:15

•Cómo crear Macro para formateo del texto escrito (justificado, centrado, etc.): 11:50

•Personalizando interfaz de Word (botones): 13:10

•Palabras finales: 14:30

•Publicaciones escritas anteriores: 15:25

Microsoft Word te puede sorprender. No necesitas saber de programación para poder hacer esto. Solo con introducir los comandos que necesites, ya sea en HTML o MarkDown, Word puede grabar por ti las macros necesarias, es decir, los códigos en el Visual Basic, y solo con un poco de intuición podrás modificarlas según tu conveniencia.

A diferencia de los editores de Hive.blog y PeakD.com, Microsoft Word te ofrece bastante dinamismo a la hora de redactar y formatear tu publicación. Eso sí, depende de ti saber usar y aprovechar al máximo las herramientas de Word, no te ofrece todo automáticamente.

Formatea tus posts de Hive con Microsoft Word Macros acont blog.png

Aunque puede que a veces no sea tan necesario, todos en #Hive sabemos la importancia del formateo, sin él nuestras publicaciones no tendrían el aspecto visual que desearíamos. Tanto si eres nuevo usuario o no, esta publicación puede servirte de ayuda.

Y es que no importa si eres nuevo o no en Hive, es probable que todos alguna vez en la vida hayamos utilizado o abierto Microsoft Word.

Si eres de los que les cuesta entender cómo usar los códigos para el formateo, quizás esta publicación te ayude a aprender cómo introducirlos automáticamente en Word. Si bien los editores de los diferentes front-ends (como hive.blog y peakd.com) ya poseen algunas herramientas básicas, otras más avanzadas como la doble columna y texto rojo requieren una introducción manual aparte.

También puedes visitar mi video anterior acerca de Microsoft Word y Hive, el cual hacía referencia a Tips para tu contenido escrito, y las ventajas de Word cómo alternativa a los editores de la plataforma para redactar tus publicaciones:

Post escrito

Hace casi 2 años realicé 3 publicaciones relacionadas al formateo mediante Word (enlaces abajo). Este video de #3Speak vendría a actualizar y agregar Tips útiles para no solo formatear sino para saber cómo agregar dichas Macros a botones en tu interfaz de Word, para tenerlos a la vista cuando los necesites.

•Usando las macros de Microsoft Word (Visual Basic) para formatear

•Formateo de texto (justificado/centrado) mediante macros de Word y VB

•Microsoft Word Macros (Visual Basic) — Formateo de imágenes en Hive

Códigos de VisualBasic para las Macros (HTML):

Solo copia y pegar lo siguiente en Visual Basic (Microsoft Word objetos-ThisDocument). Puedes acceder a VisualBasic mediante ALT+F11 en Word:

Sub LETRAROJA()

    
If Selection.Range = Empty Then

    Selection.TypeText Text:="
"
    Selection.MoveLeft Unit:=wdCharacter, Count:=6

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & "

" Selection.MoveLeft Unit:=wdCharacter, Count:=6 End If End Sub Sub NEGRITA() If Selection.Range = Empty Then Selection.TypeText Text:="" Selection.MoveLeft Unit:=wdCharacter, Count:=4 Else x = Selection.Text Selection.TypeText Text:="" & x & "" Selection.MoveLeft Unit:=wdCharacter, Count:=4 End If End Sub Sub CURSIVA() ' ' Cursiva Macro ' If Selection.Range = Empty Then Selection.TypeText Text:="" Selection.MoveLeft Unit:=wdCharacter, Count:=4 Else x = Selection.Text Selection.TypeText Text:="" & x & "" Selection.MoveLeft Unit:=wdCharacter, Count:=4 End If End Sub Sub SUBTITULO() ' If Selection.Range = Empty Then Selection.TypeText Text:="" Selection.MoveLeft Unit:=wdCharacter, Count:=6 Else x = Selection.Text Selection.TypeText Text:="_" & x & "" Selection.MoveLeft Unit:=wdCharacter, Count:=6 End If End Sub Sub SUPERINDICE() ' If Selection.Range = Empty Then Selection.TypeText Text:="" Selection.MoveLeft Unit:=wdCharacter, Count:=6 Else x = Selection.Text Selection.TypeText Text:="^{" & x & "}" Selection.MoveLeft Unit:=wdCharacter, Count:=6 End If End Sub Sub VIÑETA() If Selection.Range = Empty Then Selection.TypeText Text:="