26
•Partes del video:
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.
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:
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
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:="<div class=phishy></div>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Else
x = Selection.Text
Selection.TypeText Text:="<div class=phishy>" & x & "</div>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
End If
End Sub
Sub NEGRITA()
If Selection.Range = Empty Then
Selection.TypeText Text:="<b></b>"
Selection.MoveLeft Unit:=wdCharacter, Count:=4
Else
x = Selection.Text
Selection.TypeText Text:="<b>" & x & "</b>"
Selection.MoveLeft Unit:=wdCharacter, Count:=4
End If
End Sub
Sub CURSIVA()
'
' Cursiva Macro
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<i></i>"
Selection.MoveLeft Unit:=wdCharacter, Count:=4
Else
x = Selection.Text
Selection.TypeText Text:="<i>" & x & "</i>"
Selection.MoveLeft Unit:=wdCharacter, Count:=4
End If
End Sub
Sub SUBTITULO()
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<sub></sub>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Else
x = Selection.Text
Selection.TypeText Text:="<sub>" & x & "</sub>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
End If
End Sub
Sub SUPERINDICE()
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<sup></sup>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Else
x = Selection.Text
Selection.TypeText Text:="<sup>" & x & "</sup>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
End If
End Sub
Sub VIÑETA()
If Selection.Range = Empty Then
Selection.TypeText Text:="<li></li>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<li>" & x & "</li>"
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:="<center></center>"
Selection.MoveLeft Unit:=wdCharacter, Count:=9
Else
x = Selection.Text
Selection.TypeText Text:="<center>" & x & "</center>"
Selection.MoveLeft Unit:=wdCharacter, Count:=9
End If
End Sub
Sub Citas()
'
' Citas Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<blockquote></blockquote>"
Selection.MoveLeft Unit:=wdCharacter, Count:=13
Else
x = Selection.Text
Selection.TypeText Text:="<blockquote>" & x & "</blockquote>"
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:="<center>"
Selection.Font.Color = wdColorSkyBlue
Selection.TypeText Text:=" URL "
Selection.Font.Color = wdColorRed
Selection.TypeText Text:="</center><center><sup>"
Selection.Font.Color = wdColorGreen
Selection.TypeText Text:=" []() "
Selection.Font.Color = wdColorRed
Selection.TypeText Text:="</sup></center>"
Selection.Font.Color = wdColorAutomatic
Selection.Font.Bold = False
Selection.TypeParagraph
End Sub
Sub titulo1()
'
' titulo1 Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<h1></h1>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<h1>" & x & "</h1>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
End If
End Sub
Sub titulo2()
'
' titulo1 Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<h2></h2>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<h2>" & x & "</h2>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
End If
End Sub
Sub titulo3()
'
' titulo1 Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<h3></h3>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<h3>" & x & "</h3>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
End If
End Sub
Sub titulo4()
'
' titulo1 Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<h4></h4>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<h4>" & x & "</h4>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
End If
End Sub
Sub titulo5()
'
' titulo1 Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<h5></h5>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<h5>" & x & "</h5>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
End If
End Sub
Sub titulo6()
'
' titulo1 Macro
'
'
If Selection.Range = Empty Then
Selection.TypeText Text:="<h6></h6>"
Selection.MoveLeft Unit:=wdCharacter, Count:=5
Else
x = Selection.Text
Selection.TypeText Text:="<h6>" & x & "</h6>"
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:="<strike></strike>"
Selection.MoveLeft Unit:=wdCharacter, Count:=9
Else
x = Selection.Text
Selection.TypeText Text:="<strike>" & x & "</strike>"
Selection.MoveLeft Unit:=wdCharacter, Count:=9
End If
End Sub
Sub preformateado()
If Selection.Range = Empty Then
Selection.TypeText Text:="<pre></pre>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Else
x = Selection.Text
Selection.TypeText Text:="<pre>" & x & "</pre>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
End If
End Sub
Sub fuentecodigo()
If Selection.Range = Empty Then
Selection.TypeText Text:="<code></code>"
Selection.MoveLeft Unit:=wdCharacter, Count:=7
Else
x = Selection.Text
Selection.TypeText Text:="<code>" & x & "</code>"
Selection.MoveLeft Unit:=wdCharacter, Count:=7
End If
End Sub
Sub alineacionderecha()
If Selection.Range = Empty Then
Selection.TypeText Text:="<div class=""text-right""></div>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
Else
x = Selection.Text
Selection.TypeText Text:="<div class=""text-right"">" & x & "</div>"
Selection.MoveLeft Unit:=wdCharacter, Count:=6
End If
End Sub
Sub doblecolumna()
'
'
'
'
Selection.Font.Bold = True
Selection.Font.Color = wdColorRed
Selection.TypeText Text:="<div class=""pull-left"">"
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorBlack
Selection.TypeText Text:=" TEXTO IZQ "
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorRed
Selection.TypeText Text:="</div>"
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorRed
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="<div class=""pull-right"">"
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorBlack
Selection.TypeText Text:=" TEXTO DER "
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorRed
Selection.TypeText Text:="</div>"
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
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:=
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 |
Comments:
Reply:
To comment on this video please connect a HIVE account to your profile: Connect HIVE Account