Hola,
Este es un buen post,
Hace poco quería aprenderme un texto de algo más de 6 párrafos, y en realidad, pensaba que mi memoria era más analítica que otra cosa, así que, aprenderme algo de memoria era un proceso muy engorroso porque no sabía cual médoto usar, si es que había uno.
Buscando encontré uno muy interesante y consiste en extraer del texto solo las primeras letras de cada palabra y armar un nuevo documento para aprenderlo.
Este es un ejemplo: Queremos aprendernos esto
Tomemos este texto:
El hijo de Rana, Rinrín Renacuajo,
salió esta mañana, muy tieso y muy majo
con pantalón corto, corbata a la moda,
sombrero encintado y chupa de boda.
Ahora lo convertimos en esto:
EhdR,RR,
sem,mtymm
cpc,calm,
seycdb.
Ahora solo hay que practicar un poco, solo lee las primeras letras y tu maravillosa mente recordará cada palabra, después de algo de práctica no tendrás que leer las primeras palabras y lo sabrás de memoria.
Hasta ahora fabuloso, pero, yo fuí un paso mas adelante, cree una sencilla macro para word 2007 y todo queda muy sencillo de hacer,
Abres el archivo de texto en word 2007
Corres la macro
Tienes un archivo nuevo con las primeras letras
.....bueno y aquí esta el regalo.....
Macro para extraer las primeras letras de cada palabra de un texto en Word 2007 y colocarlas en un nuevo archivo.
---------------------------------------------------
Sub ExtraePrimeras()
'
' Extrae las primeras letras de cada palabra y las coloca en un nuevo documento
'
'
palabras = 1
Selection.HomeKey Unit:=wdStory 'se ubica al inicio del documento
Char = Selection.Characters(1).Text
primeras = Char
wUnits = Selection.Move(Unit:=wdWord, Count:=1) 'muevo la primera palabra
Do While wUnits <> 0
Char = Selection.Characters(1).Text
primeras = primeras & Char
wUnits = Selection.Move(Unit:=wdWord, Count:=1)
palabras = palabras + 1
Loop
Documents.Add
With ActiveDocument
.Paragraphs(1).Range.InsertBefore primeras
End With
End Sub
---------------------------------------------------
Selecciona la macro y la pegas en la seccion de macros dentro de la seccion de módulos de la plantilla normal, la corres y listo.
Espero que lo disfruten.
Este es un buen post,
Hace poco quería aprenderme un texto de algo más de 6 párrafos, y en realidad, pensaba que mi memoria era más analítica que otra cosa, así que, aprenderme algo de memoria era un proceso muy engorroso porque no sabía cual médoto usar, si es que había uno.
Buscando encontré uno muy interesante y consiste en extraer del texto solo las primeras letras de cada palabra y armar un nuevo documento para aprenderlo.
Este es un ejemplo: Queremos aprendernos esto
Tomemos este texto:
El hijo de Rana, Rinrín Renacuajo,
salió esta mañana, muy tieso y muy majo
con pantalón corto, corbata a la moda,
sombrero encintado y chupa de boda.
Ahora lo convertimos en esto:
EhdR,RR,
sem,mtymm
cpc,calm,
seycdb.
Ahora solo hay que practicar un poco, solo lee las primeras letras y tu maravillosa mente recordará cada palabra, después de algo de práctica no tendrás que leer las primeras palabras y lo sabrás de memoria.
Hasta ahora fabuloso, pero, yo fuí un paso mas adelante, cree una sencilla macro para word 2007 y todo queda muy sencillo de hacer,
Abres el archivo de texto en word 2007
Corres la macro
Tienes un archivo nuevo con las primeras letras
.....bueno y aquí esta el regalo.....
Macro para extraer las primeras letras de cada palabra de un texto en Word 2007 y colocarlas en un nuevo archivo.
---------------------------------------------------
Sub ExtraePrimeras()
'
' Extrae las primeras letras de cada palabra y las coloca en un nuevo documento
'
'
palabras = 1
Selection.HomeKey Unit:=wdStory 'se ubica al inicio del documento
Char = Selection.Characters(1).Text
primeras = Char
wUnits = Selection.Move(Unit:=wdWord, Count:=1) 'muevo la primera palabra
Do While wUnits <> 0
Char = Selection.Characters(1).Text
primeras = primeras & Char
wUnits = Selection.Move(Unit:=wdWord, Count:=1)
palabras = palabras + 1
Loop
Documents.Add
With ActiveDocument
.Paragraphs(1).Range.InsertBefore primeras
End With
End Sub
---------------------------------------------------
Selecciona la macro y la pegas en la seccion de macros dentro de la seccion de módulos de la plantilla normal, la corres y listo.
Espero que lo disfruten.