Word te va a sorprender! Formatea tus publicaciones mediante MACROS...

•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:=""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If



End Sub
Sub LINKS()
'
' Links Macro
'
'
    Selection.TypeText Text:="[]()"
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    
    
End Sub
Sub CentrarTexto()
'
' CentrarTexto Macro
'
'


If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=9
    
End If




    
    
End Sub
Sub Citas()
'
' Citas Macro
'
'




If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=13
    
End If


End Sub
Sub insertarimagen()
'
' insertarimagen Macro
'
'
       Selection.Font.Bold = True
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:=""
    Selection.Font.Color = wdColorSkyBlue
    Selection.TypeText Text:="   URL   "
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:="^{"
    Selection.Font.Color = wdColorGreen
    Selection.TypeText Text:="   []()   "
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:="}"
    Selection.Font.Color = wdColorAutomatic
        Selection.Font.Bold = False
        
        Selection.TypeParagraph


        
End Sub


Sub titulo1()
'
' titulo1 Macro
'
'




If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If




End Sub

Sub titulo2()
'
' titulo1 Macro
'
'


If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If


End Sub

Sub titulo3()
'
' titulo1 Macro
'
'


If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If


End Sub
Sub titulo4()
'
' titulo1 Macro
'
'


If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If


End Sub
Sub titulo5()
'
' titulo1 Macro
'
'


If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If


End Sub
Sub titulo6()
'
' titulo1 Macro
'
'


If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    
End If


End Sub

Sub bloquecodigo()
'

'
'



If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="```" & x & "```"
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    
End If





End Sub

Sub tachado()

If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=9
    
End If


End Sub
Sub preformateado()

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 fuentecodigo()

If Selection.Range = Empty Then

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

Else

    x = Selection.Text

    Selection.TypeText Text:="" & x & ""
    Selection.MoveLeft Unit:=wdCharacter, Count:=7
    
End If


End Sub
Sub alineacionderecha()

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 doblecolumna()
'
'
'
'
   Selection.Font.Bold = True
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:=""
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorBlack
    Selection.TypeText Text:="   TEXTO IZQ   "
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:=""
    
        Selection.TypeParagraph
        
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorRed
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:=""
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorBlack
    Selection.TypeText Text:="   TEXTO DER   "
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:=""

   
        Selection.TypeParagraph
        Selection.TypeParagraph
        

   Selection.TypeText Text:="---"
   
       Selection.Font.Bold = False
    Selection.Font.Color = wdColorBlack
   
       
        Selection.TypeParagraph
   
    Selection.Font.Bold = False
    Selection.Font.Color = wdColorBlack
        
   
End Sub

Sub tabla()


   Selection.Font.Bold = False
    Selection.Font.Color = wdColorBlack
    Selection.TypeText Text:="TÍTULO 1"
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:=" | "
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorBlack
    Selection.TypeText Text:="TÍTULO 2"

        Selection.TypeParagraph
        
    Selection.Font.Color = wdColorRed
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="-|-"
    
        Selection.TypeParagraph
         
    Selection.Font.Color = wdColorBlack
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="CONTENIDO 1"
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorRed
    Selection.TypeText Text:=" | "
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorBlack
    Selection.TypeText Text:="CONTENIDO 2"

        Selection.TypeParagraph

End Sub


Códigos de VisualBasic para las Macros (MarkDown): 
Hay pocas variaciones respecto al código anterior, solo debes sustituir:

<b></b> por **** para Letra Negrita.

<i></i> por ** para letra cursiva.

<blockquote></blockquote> por > para las citas.

<strike></strike> por ~~~~ para las letras tachadas.

<h1></h1> por # para los títulos (1, 2, 3, etc).

Cambiar el número Count:=


 Deja tu comentario o comparte (reblog) esta publicación si te ha parecido interesante. 
 Leave a comment or share (reblog) this post if you found it interesting. 

 
_{Música 1: Midnight - E-Piano Lounge & Chill Music (de JuliusH) - Pixabay}
_{Música 2: Cali (de ItsWatR) - Pixabay}
_{Música 3: Christmas Chill lofi Lounge Background Music for Videos (de Lesfm) - Pixabay}
    ¡Gracias por visitar! —   Deja tu comentario        @acont  


▶️ 3Speak}

Word te va a sorprender! Formatea tus publicaciones mediante MACROS | TUTORIAL #HTML #MarkDown

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

" & x & "

" & x & "

" & x & "

" & x & "

" & x & "

" & x & "

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