•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
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:="<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
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:=
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  |
▶️ 3Speak
Desde hace muchos años he dejado de usar Word para usar OpenOffice cuyo procesador de textos se llama Writer.
Es open source, como la mayor parte de los programas que uso, de uso libre y gratuito y después de ser abandonado el proyecto por la comunidad que lo sostenía se hizo cargo Apache de él. La comunidad a su vez fundó un nuevo proyecto, prácticamente un clone del original, llamado LibreOffice que se encuentra preinstalado en casi todas las distribuciones de Linux y las mismas funciones y caracteísticas, solo han exluído el software propietario del mismo, por ejemplo algunos tipos de fuentes.
Recuerdo que una de sus principales ventajas respecto a Word era que, hasta hace algunos años, Word no te permitía transformar automáticamente tus documentos en .pdf sino que debías hacerlo a través de otra aplicación (Adobe Reader o Acrobat reader) que eran por supuesto de pago.
OpenOffice-Writer tenía un botón arriba en el panel de instrumentos (todavía lo tiene) apretando el cuál el documento era convertido automáticamente en .pdf
De cualquier manera lo mio era solo un comentario. Más que valorable tu esfuerzo para facilitar y mejorar el trabajo de todos aquellos que usan Word.
Saludos.
Saludos @greengalletti pues veo que LibreOffice no es tan poco usado como pensé, tuve la oportunidad de usarlo pero no me agradó del todo y seguí prefiriendo Word, habría que ver si sus versiones nuevas han mejorado. Gracias por comentar!
Hola amigo Angel (@acont).
Una vez más tú con contenidos formidables que nos ayudan a la información.
En este caso el uso del Microsoft Word con los Macros ha sido un tiro al piso que estoy seguro que a más de uno le va ayudar.
De paso, tu forma sencilla y justa de explicar hace que esto no se vea algo complicado para quien es algo ignorante en lo que respecta a esta herramienta de Office.
Mil felicidades amigo y te doy gracias por esto que ya voy a compartir con familiares y amigos.
Un abrazo.
Saludos amigo gracias por pasar a comentar, espero que te sirva de ayuda y que le sirva a todos.
¡Excelente aporte, @acont! Más gente debería leer esto. Yo por mi parte lo que uso es Typora y LibreOffice en Linux. Me encantaría saber cómo hacer funcionar las macros allí. Siento que la estructura es diferente y no sé cómo hacerlos funcionar, lamentablemente. ¡Muchas gracias por compartir este post! Esto no solo puede ayudar a mejorar estéticamente los posts de los demás, sino también su flujo de trabajo. Toma !PIZZA y !LUV.
Vaya, yo conocía LibreOffice pero no Typora, la verdad Linux me parece muy interesante, pero LibreOffice nunca me terminó de gustar, en ese sentido prefiero Word. Claro, tengo entendido que Linux permite que tú introduzcas mejoras al sistema ya que es open source, pero nunca he profundizado en ello. Como bien mencionas, el flujo de trabajo es importante, tal como mostré al principio. Saludos @cpol!
Sí, es un muy buen sistema operativo de verdad. Uno puede introducirle mejoras, pero también se puede usar tal cual, sin complicarse la vida. Yo uso Kubuntu que es lo más sencillo. He probado de todo en el pasado, pero siempre vuelvo a ese. Yo tengo de usar linux ya 16 años. Typora lo conocí hace como medio año, buscando una alternativa al editor de HIVE para hacer plantillas en Markdown y poder escribir rápido y mejorar mi flujo de trabajo. Lo único malo es que no es libre, aunque es gratuito. Pero me ha servido de maravilla, no puedo ser desagradecido con la herramienta. Yo Libreoffice lo uso desde que era Openoffice, igualmente desde hace 16 años. En aquel tiempo daba muchos problemas, pero en los últimos años está muy bueno y super estable. Mi tesis de graduación la escribí con Libreoffice y no tengo quejas. Es más, para calcular mis ingresos para los reportes de Splinterlands uso Calc, que es la versión de Libreoffice del MS Excel.
@cpol(1/1) gave you LUV.
H-E tools | connect | <><
Saludos @germanandradeg @soychalbed @rodqui95 @tex73110 @fixie quizás les interese esta información!
GRacias por etiquetarme en la publicación, me va a servir al 100% no solo a mi sino a un amigo que recien está comenzando. Demasiado detallado.
Sí, lo estaba esperando.
¡Gracias por el aviso!
Gracias amigo ya leo
Gracias Angel
*Gracias por esto que es de gran utilidad. Me falta repasar mucho porque siento que me estoy oxidando XD. Se agradece.
Hola! pues si es muy útil esta herramienta en Word, espero que ye ayude, saludos!
PIZZA Holders sent $PIZZA tips in this post's comments:
@cpol(1/5) tipped @acont (x1)
Please vote for pizza.witness!
Excelente aporte amigo tendré que ponerlo en práctica en la PC en casa para registrar los comandos de verdad que no sabía esa estrategia, lo más que había hecho es que tenía fijado un post de mark down para copiar los códigos una vez ya había redactado el post.
Gracias por compartir
También he hecho eso, tengo fijado un bloc de notas con algunos códigos que uso frecuentemente. Pero de vez en cuando utilizo Microsoft Word para el formateo, es bastante útil-.
Saludos @soychalbed!
~~~ embed:1485779757941854215 twitter metadata:Z2xhZ19sZW9uYXJkb3x8aHR0cHM6Ly90d2l0dGVyLmNvbS9nbGFnX2xlb25hcmRvL3N0YXR1cy8xNDg1Nzc5NzU3OTQxODU0MjE1fA== ~~~
The rewards earned on this comment will go directly to the person sharing the post on Twitter as long as they are registered with @poshtoken. Sign up at https://hiveposh.com.