•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.
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.
"Selection.MoveLeftUnit:=wdCharacter,Count:=6EndIfEndSubSubNEGRITA()IfSelection.Range=EmptyThenSelection.TypeTextText:=""Selection.MoveLeftUnit:=wdCharacter,Count:=4Elsex=Selection.TextSelection.TypeTextText:=""&x&""Selection.MoveLeftUnit:=wdCharacter,Count:=4EndIfEndSubSubCURSIVA()'
'CursivaMacro'
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()
'IfSelection.Range=EmptyThenSelection.TypeTextText:=""Selection.MoveLeftUnit:=wdCharacter,Count:=6Elsex=Selection.TextSelection.TypeTextText:=""&x&""Selection.MoveLeftUnit:=wdCharacter,Count:=6EndIfEndSubSubSUPERINDICE()'
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 = 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()
''
'IfSelection.Range=EmptyThenSelection.TypeTextText:="``````"Selection.MoveLeftUnit:=wdCharacter,Count:=3Elsex=Selection.TextSelection.TypeTextText:="```"&x&"```"Selection.MoveLeftUnit:=wdCharacter,Count:=3EndIfEndSubSubtachado()IfSelection.Range=EmptyThenSelection.TypeTextText:=""Selection.MoveLeftUnit:=wdCharacter,Count:=9Elsex=Selection.TextSelection.TypeTextText:=""&x&""Selection.MoveLeftUnit:=wdCharacter,Count:=9EndIfEndSubSubpreformateado()IfSelection.Range=EmptyThenSelection.TypeTextText:=""Selection.MoveLeftUnit:=wdCharacter,Count:=6Elsex=Selection.TextSelection.TypeTextText:="
Códigos de VisualBasic para las Macros (MarkDown):
Hay pocas variaciones respecto al código anterior, solo debes sustituir:
<b></b>por****paraLetraNegrita.<i></i>por**paraletracursiva.<blockquote></blockquote>por>paralascitas.<strike></strike>por~~~~paralasletrastachadas.<h1></h1>por# para los títulos (1, 2, 3, etc).CambiarelnúmeroCount:=
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.
@acont