FRIKISMO INFORMÁTICO, PT. 1

Si siempre has soñado con una macro en VBA para Word que añada un punto al final de aquellos párrafos que no lo lleven, salvo en el caso de determinados estilos que tú definas y en el caso de todos los párrafos que comiencen con la palabra "artículo"... ¡Tachán!

Option Explicit

Public Sub puntfinal()
Dim mparraf As Paragraph
Dim mitext As String
Selection.HomeKey unit:=wdStory 'principio documento
For Each mparraf In ActiveDocument.Paragraphs 'recorremos todos los párrafos
If mparraf.Style = "MD_Titulo1" Or mparraf.Style = "MD_Titulo2" Then 'or ......
'estilos que no recorremos o al raves sin else MsgBox (mparraf.Style)
Else
mparraf.Range.Select
mitext = RTrim(Replace(Selection.Text, Chr(13), "")) 'eliminamos espacios y retorno carro
If mitext = "" Or Right(mitext, 1) = "." Then
' es un retorno de carro sin texto o con espacios o tiene punto final
Else
Selection.EndKey unit:=wdLine 'final párrafo
Do While True 'nos movemos por los posibles espacios en blanco al final párrafo
Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
If Selection.Text = Space(1) Then 'continua bucle espacios blanco finales
Selection.MoveLeft unit:=wdCharacter, Count:=1
Else 'caracter no espacio, no estariamos aquí, salimos bucle
Selection.MoveRight unit:=wdCharacter, Count:=1 'movemos derecha
Exit Do
End If
Loop
Selection.TypeText Text:="." 'añadimos punto
End If
End If
Next
Selection.HomeKey unit:=wdStory 'principio documento

End Sub

LA CANCIÓN DEL DÍA

Probablemente no sea su canción favorita, pero hablar del Pollo es hablar de los Stones y hablar de los Stones es hablar del Exile...
Sueño con montar algún día en su cerda... de paquete, claro.



Título: Tumbling dice.
Intérprete: The Rolling Stones.
Álbum: Exile on main St.
Año: 1972.

LA CANCIÓN DEL DÍA

Si me preguntaran quién es la persona que más sabe del mundo mundial de música y a quién querría parecerme de mayor, la respuesta sería la misma: JaviWaits.



Título: Cry me a river.
Intérprete: Julie London.
Álbum: Julie is her name, vol. 1.
Año: 1955.

LA CANCIÓN DEL DÍA

Título: Maggot brain.
Intérprete: Funkadelic.
Álbum: Maggot brain.
Año: 1971.

No es una de mis canciones favoritas (a pesar de ese arpegio Em-D-Bm-C del comienzo), pero escucharla me recuerda siempre a Carlos...

SEMANA INTERNACIONAL DE CINE Y TV EN ALTA DEFINICIÓN

Se celebra en Zaragoza entre los días 12 y 18 de junio.
Web del evento: http://www.tea06.com/
Programa de actividades en PDF: http://www.tea06.com/es/programa/programa_gral.pdf

LA CANCIÓN DEL DÍA

Título: Vicarious.
Intérprete: Tool.
Álbum: 10,000 days.
Año: 2006.