Etiqueta: Edición

 

Subíndices y superíndices

La aplicación Word, de tratamiento de textos, nos permite optar por dos opciones cuando necesitamos utilizar subíndices o superíndices alfanuméricos.

La más usual y la más sencilla es escribir el signo y luego aplicarle el formato deseado con los botones o los métodos abreviados de teclado correspondientes:

Ctr + +, para los superíndices. Ctr + =, para los subíndices.

Pero existe la opción de utilizar directamente unos caracteres especiales que presentan distinta forma y que pueden resultar más adecuados para algunos tipos de texto que necesitemos componer.

Dichos caracteres podemos obtenerlos utilizando la opción de Word ‘Insertar’ → ‘Símbolo’:

O bien mediante la combinación de la tecla Alt con el código ASCII o Unicode correspondiente.

Hay que tener en cuenta que no todas las familias de fuentes han diseñado todos estos caracteres especiales; por ejemplo, en la fuente Arial solo encontraremos los superíndices de las cifras, pero solo algunos subíndices, mientras que la fuente Times New Roman los ofrece todos.

A continuación, incluyo una imagen .jpeg con los caracteres numéricos especiales superíndices y subíndices de la fuente Times, para que podáis comparar la forma y decidir cual queréis utilizar en cada ocasión.

Estos caracteres especiales pueden irnos bien para representar fórmulas. Compárense estos ejemplos:

 

… à suivre.

Share Button

De siglos, números romanos y versalitas (macro)

«Como su nombre indica, la letra versalita es la letra versal pequeña, es decir, la que tiene forma de versal o mayúscula, pero que es más pequeña, en torno al 82 % del tamaño de esta (aproximadamente, el tamaño de la minúscula)». José Martínez de Sousa, Ortografía y ortotipografía del español actual (OOTEA), 2.ª ed., corregida.; Gijón: Trea, 2008; p. 415.

Uno de los diversos usos que se le da a este tipo de letra es la indicación de «las cifras romanas en palabras que se escriben con minúscula inicial, como los siglos, milenios, dinastías, volúmenes, tomos, páginas prologales, etcétera, tanto si se citan juntos como si se menciona solo la numeración» (OOTEA, p. 416).

Los  correctores, en ocasiones, tenemos que enfrentarnos con textos (como algunos estudios históricos, por ejemplo) en los que abundan las indicaciones de los siglos en números romanos; pero los autores, que no tienen por qué conocer la letra versalita, utilizan la mayor parte de las veces los números romanos con letras mayúsculas para referirse a los siglos, lo cual es hasta cierto punto admisible, y también, en algunas ocasiones, con minúsculas, lo cual es un anglicismo ortotipográfico inadmisible.

Para ahorrar el trabajo de tener que ir cambiando una por una todas las mayúsculas de las cifras romanas que indican los siglos, he grabado una pequeña macro que ofrezco a continuación. Solo llega hasta el siglo XXI,* que es en el que estamos (luego, obviamente, también nos sirve para los siglos antes de Cristo),  y, para poder detectar los cambios que se realicen cuando se ejecute, he añadido la función del resaltado (os aparecerá en el color que tengáis seleccionado en el botón), por si hubiera alguna I, V, o X seguida de punto que correspondiera a la inicial de algún apellido, por lo que podríamos restituirlas a las mayúsculas que les sean propias conforme se avance en la lectura.

Lo que hay que hacer para poder usarla es copiar la macro, a la que he llamado Romaversal, y pegarla en nuestro Visual Basic de Word y luego, si así se desea, podemos asignarle un botón. Esta es:

Sub Romaversal()

‘ Romaversal Macro
‘ Pasa los numeros romanos desde el I al XXI de mayúsculas a versalitas

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find.Replacement.Font
.SmallCaps = True
.AllCaps = False
End With
With Selection.Find
.Text = “I”
.Replacement.Text = “i”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “II”
.Replacement.Text = “ii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “III”
.Replacement.Text = “iii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “IV”
.Replacement.Text = “iv”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.SmallCaps = True
.AllCaps = False
End With
With Selection.Find
.Text = “V”
.Replacement.Text = “v”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “VI”
.Replacement.Text = “vi”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “VII”
.Replacement.Text = “vii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “VIII”
.Replacement.Text = “viii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “IX”
.Replacement.Text = “ix”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “X”
.Replacement.Text = “x”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XI”
.Replacement.Text = “xi”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XII”
.Replacement.Text = “xii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XIII”
.Replacement.Text = “xiii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XIV”
.Replacement.Text = “xiv”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XV”
.Replacement.Text = “xv”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XVI”
.Replacement.Text = “xvi”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XVII”
.Replacement.Text = “xvii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XVIII”
.Replacement.Text = “xviii”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XIX”
.Replacement.Text = “xix”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XX”
.Replacement.Text = “xx”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “XXI”
.Replacement.Text = “xxi”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Podría haber añadido más cifras romanas,  pero, al tener un número de comandos limitado Visual Basic, cuando aparezca la necesidad de transformar otras en versalitas, podéis ayudaros de la herramienta de Word ‘Buscar y reemplazar’ (BR), o bien podéis seleccionar la cifra en cuestión y utilizar el atajo de teclado Ctrl+Shift+L para obtenerlas.

… à suivre.

 

*Este blog no ofrece la posibiliadad de usar versalitas.

Share Button

Miguel Gardeta o la necesidad de escribir

Con tan solo 34 años, Miguel Gardeta Lordán ya ha publicado cuatro obras de narrativa: tres novelas y un libro de viajes. Sin embargo, si uno guglea un poco, descubre sorprendido que su nombre solo arroja ¡409 resultados! Tampoco lo busques en la Wikipedia porque es inútil: nadie se ha molestado en escribir una entrada sobre él. Entonces…

Miguel Gardeta

¿Quién es Miguel Gardeta Lordán?

Estudié aquí, en Huesca, Humanidades y el tercer año me marché de Erasmus: ­­yo había estudiado toda la vida inglés, pero solo quedaba la posibilidad de ir a Toulouse, así que me armé de valor y, sin saber decir «bonjour», me marché. La verdad que fue un antes y un después, porque regresé con la mente mucho más abierta. Después estuve otros tres años en Zaragoza estudiando Magisterio y, aunque había empezado también francés, al final lo abandoné y me especialicé solo en Inglés. Luego hice un máster de ELE (Español como Lengua Extranjera) en la Universidad Pontificia de Salamanca.

Básicamente, los estudios oficiales terminan allí, lo que pasa es que algunos años más tarde, mientras estaba escribiendo mi primera novela, _Cruce de fronteras_, me picaba el gusanillo y realicé un máster «online» de Criminología.

Luego comenzaste tu peripecia europea…

Efectivamente. Cuando acabé Magisterio, y después de hacer varias sustituciones durante el primer año, en vez de quedarme aquí haciendo interinidades, que hubiera sido lo lógico, decidí darle un giro de ciento ochenta grados a mi vida y marché a Londres a buscarme la vida con una mano delante y otra detrás: me marché sin trabajo, sin conocer a nadie, pero con la ventaja de que el idioma ya lo tenía más o menos dominado, y tuve la suerte de que eso sucedió antes de la gran oleada de españoles que se marcharon allí a trabajar, por lo que enseguida encontré trabajo, encontré piso… No tuve ningún problema en ese sentido.

Estuve trabajando un año y medio en Londres. Mi intención era, claro, trabajar de maestro de Español en Londres. Yo pensaba, inocente de mí, que un profesor de español iba a encontrar trabajo allí sin ningún problema ―envié currículums a todos los colegios―, pero solo encontré trabajo en una tienda de alimentación. Me equivoqué, pero no me arrepiento.

Después de estar allí año y medio, desde julio de 2011 hasta enero de 2013, decidí cambiar de aires y marché a Berlín. Allí estuve solo seis meses, hasta junio del 2013, porque allí enseguida me di cuenta de que sin el idioma no iba a hacer absolutamente nada. Estuve trabajando en un restaurante, aunque, como es lógico, no de cara al público, porque mis conocimientos de alemán eran escasos (en estos momentos se reducen al vocabulario de cocina básico).

Me hicieron comprender que sin alemán no iba a dar clases allí en la vida, así que me dije «Vuélvete a casa y así, por lo menos, trabajas de lo tuyo», así que volví y comencé la labor docente aquí en España, en Educación de la DGA [Diputación General de Aragón], haciendo interinidades. Fueron dos años maravillosos, porque tuve la gran suerte de que las interinidades fueron de año completo. Estuve en Villar del Cobo ―un pueblo de la sierra de Albarracín, provincia de Teruel― y luego aquí, en Zaidín, al lado de Huesca.

Y de Zaidín, al Nuevo Mundo…

Sí. El año pasado me surge la posibilidad de marcharme a EE. UU., esta vez a dar clases, con un programa de intercambio cultural, aunque, realmente, no existe ese intercambio; es decir, yo voy allí a dar clases, pero ningún americano viene a sustituirme aquí. No dejo escapar la posibilidad y ya llevo allí un año.

Con 34 años, ya cuentas en tu haber con cuatro libros. Parece que sientas una verdadera necesidad por escribir. ¿De dónde surge tu afición a la escritura?

La descubrí por casualidad. En los largos años de estudio, como te puedes imaginar, estuve trabajando en un montón de sitios ―zapaterías, tiendas…―. En el 2010 (no recuerdo el mes exacto), yo estaba trabajando en un supermercado, aquí en Huesca, y, sinceramente, es uno de los trabajos más aburridos que he tenido en mi vida. Entonces, una de las estrategias que yo tenía para que el tiempo pasara más deprisa, durante las tardes, sobre todo, era abstraerme, imaginarme una historia, una película nueva. Cada día mi mente reconstruía lo del día anterior e iba añadiendo más detalles, más cosas, y conforme los días se sucedían, el aburrimiento era cada vez mayor y, claro, esa historia iba creciendo. Una tarde que estaba aburrido en casa decidí empezar a escribir esa historia que yo ya tenía en la cabeza desde hacía varios meses; sin ningún objetivo concreto, sino, simplemente, por darle forma.

Me senté en el ordenador y lo escribí de cualquier manera. Lo releí, no me pareció mal del todo, así que continué escribiendo, con la suerte ―o la desgracia, depende de cómo se mire― que me picó el gusanillo. Cada vez necesitaba más y al final salió una historia completa, con planteamiento, nudo y desenlace.

En lo que escribes podemos rastrear alguna de las localizaciones y otros elementos de tu vida.

Esto que apuntas es una de las cosas que quería comentar. Aunque, por supuesto, en el caso de las novelas, se trata de ficción, dicen que los escritores escribimos sobre aquello que conocemos; en mi caso, como he viajado tanto y he vivido en tantos lugares, entonces ¿qué mejor que hacer un pequeño homenaje en cada uno de los libros a un lugar en el que haya vivido?

Tu primera novela es Cruce de fronteras.

Exacto, si no me equivoco, en octubre del 2012, ya estaba en la calle. Entonces yo estaba en Londres y vine a presentarla a Huesca para las fiestas del Pilar. _Cruce de fronteras_ se desarrolla en Toulouse, en Francia, donde estuve de Erasmus, y en Zaragoza, donde he estudiado y he vivido durante cuatro años. Luego, en _Sangre de rodeno_, que fue el tercer libro, aunque segunda novela, ubico la trama en Villar del Cobo y en Albarracín, donde estuve trabajando como maestro, y, por último, la trama de _En defensa de Plutón_ se desarrolla en Berlín, la ciudad donde radiqué durante mi estancia en Alemania. Por supuesto, tengo más ideas para futuras novelas en Londres, en Houston y en otros lugares: hay cuerda para rato.

En concreto, _Cruce de fronteras_ nació en un supermercado. Empecé a escribirla aquí, pero la terminé estando ya en Londres. Yo le tengo un cariño especial, tal vez por ser la primera. En verano del 2010 empecé a escribirla y en ella se desarrolla una historia de amor adolescente, pero, sobre todo, hablo de la guerra de Yugoslavia. En el libro incluyo incluso algunos recortes de periódico reales que hablaban de aquello, porque voy viendo en las noticias sucesos que nos recuerdan aquella terrible guerra. Recuerdo perfectamente la cara de estupor que se me quedaba cuando, a raíz de los procesos que se iban sucediendo en el Tribunal de la Haya, iba enterándome de la talla de los personajes de los que hablo. Esto me iba produciendo un desasosiego que dio lugar a la creación de una trama en la que iba relacionando esa historia de amor adolescente con la serie de los crímenes que se cometieron en aquella guerra, que yo creo que nadie que lea la novela puede quedar indiferente, no ya ante la guerra de Yugoslavia, sino ante la guerra como idea filosófica.

Cruce de fronteras

Luego, en 2014, publicas tu libro de viajes, Mi no spick London, y al año siguiente llega _Sangre de rodeno_, cuya acción se ubica en Albarracín, pero ese no era el título que habías pensado al principio.

En _Mi no spick London_ recojo algunas anécdotas que me han sucedido a lo largo de mis viajes. Es como una especie de diario donde comento las cosas curiosas que iba descubriendo o que ocurrían a mi alrededor.

Mi no spick London

Sangre de rodeno iba a llamarse _Perdiendo el rumbo_, porque el título me gustó, pero al final, hablando con mi editor y comentándolo con varias personas, parece que no tenía la fuerza necesaria, así que desaté una tormenta de ideas y, aprovechando que los pinares de rodeno se hallan en la sierra de Albarracín y que son una reserva natural increíble, impresionante ―a todo aquel que quiera visitarla, yo se lo recomiendo encarecidamente―, al final, qué mejor que incluir la palabra ‘sangre’, que siempre vende mucho, y luego ‘rodeno’, para que nadie se lleve a engaño de dónde está situada la trama; es tan sencillo como eso: _Sangre de rodeno_, Albarracín y asesinatos. También podría haberse llamado _Asesinato en Albarracín_, pero eso sería más adecuado para una novela de Agatha Christie.

Sangre de rodeno

De todas maneras, también las portadas de mis novelas indican qué es lo que va a encontrar el lector, y eso me gusta.

_En defensa de Plutón_ está recién estrenada. Es una novela que, por su estructura, me recuerda a algunas películas de Tarantino, como _Reservoir dogs_ o _Abierto hasta el amanecer_, porque se observan dos partes claramente diferenciadas…

Hombre, me gusta que me compares con Tarantino…

Sí, _En defensa_ es de este 2016. Se trata de otra novela de suspense donde también juego con el asesinato, aunque quizá en este caso es menos evidente lo que está sucediendo hasta el final. Lo envuelvo todo en un halo de normalidad hasta que la burbuja que se va creando explota y se descubre que nada de lo que aparentemente era normal lo es en realidad.

Me han dicho muchos conocidos que la primera parte, que ocupa noventa páginas, no tiene nada que ver con lo que había escrito hasta ahora porque permito que el lector se enamore de algún personaje y odie a otro. No se lo esperaban de mí; sin embargo, cuando lees el conjunto de la obra, te das cuenta de que esas noventa páginas son esenciales para comprender la historia y para meterte dentro de ella. Necesitas conocer a fondo a los dos personajes principales para poder ver después su evolución: dos jóvenes que tenían una vida más o menos ordenada se trasladan a la ciudad de Berlín donde experimentarán un cambio radical.

En cuanto al título, _En defensa de Plutón_, hay gente que no lo entiende, pero necesitas leer todo el libro para comprenderlo, porque yo juego con la idea de que en este mundo puede suceder cualquier cosa. Todos los días vemos noticias en el telediario en las que la realidad supera cualquier ficción. Parto de una idea absurda en apariencia, pero al final esa idea la convierto en verosímil, que es de lo que se trata.

En defensa de Plutón

En efecto, Miguel: de eso se trata, de ofrecer verosimilitud. Solo hay que leer algún cómic de superhéroes o escuchar el discurso de algunos políticos…

Claro. Todo el mundo acepta como algo normal, por ejemplo, que un chaval como Peter Parker, Spiderman, adquiera superpoderes de forma milagrosa a través de la picadura de una araña. Y, como estamos en Berlín ―no puedo dejar de decirlo―, Joseph Goebbels, el ministro de propaganda nazi, hizo famosa la frase de que la mentira, cuanto más grande sea, a fuerza de repetirla se convierte en una gran verdad, algo que ya sabían los griegos, pero Goebbels lo aplicó en pleno siglo XX.

Ahora sigue funcionando esta táctica en el mundo de la política: hay crisis, tú sabes que hay crisis porque sigue habiendo desahucios, gente que está buscando en los contenedores y los informes Pisa son horribles, sin embargo, en una ciudad como Huesca, tú vas por la calle y ves todas las terrazas de los bares llenas. Eso parece no concordar demasiado, pero como todos los días están repitiendo por la televisión que hay crisis, todo el mundo vive asustado con esa idea, pero no se comportan como correspondería. Antes la gente protestaba quemando contenedores o, incluso, desatando guerras civiles, pero ahora parece que nos estamos civilizando, aunque eso ya lo decíamos después de la primera guerra mundial, de la que los que la vivieron decían que era «la guerra para terminar con todas las guerras». Luego llegó la segunda guerra mundial, y parece que aprendimos la lección porque aquello de los campos de concentración nos dejó muy tocados. Pero en la década de los noventa apareció un personaje tétrico en la antigua Yugoslavia, Slobodan Milošević, El Carnicero de los Balcanes, que hizo exactamente lo mismo que Hitler; y, mientras, Europa miraba para otro lado porque pensaba que aquello no podía estar pasando y cuando quisieron reaccionar ya era demasiado tarde.

Has publicado cuatro libros y los cuatro en la Editorial Pirineos de Huesca.

Sí. Cuando empecé con _Cruce de fronteras_ la envié a muchas editoriales, pero es muy difícil entrar, no ya por la puerta grande, sino por cualquier tipo de puerta. Tú ya sabes cómo funciona el mundo editorial, igual que el mundo del cine, el de la canción o el del fútbol: si tienes padrino te bautizas; hoy hasta Belén Esteban ha publicado un libro (otra cosa es que lo haya escrito). Ninguna editorial se dignó contestarme, lo que me dejó un poco tocado porque uno espera un mínimo de cortesía, pero no recibí ni un simple «Gracias, ya lo miraremos», o «No nos interesa», lo que en otros lugares no es una cosa común. He tratado de ponerme en contacto con editoriales en Estados Unidos, ahora que estoy allí, y con agentes literarios, y todos te contestan; para bien o para mal, pero todos tienen la deferencia de contestarte.

La Editorial Pirineos se molestó en contestarme y en decirme «Adelante». Al menos te ofrecen la posibilidad de la autoedición, que es a lo que los escritores que están empezando pueden aspirar. Es una editorial pequeña que no puede arriesgar demasiado ―claro, no van a pillarse los dedos―, pero si ven que algo puede ser interesante y saben que tú estás dispuesto a moverte por las ferias para vender tus libros, pueden llegar a un acuerdo. Por eso sigo con ellos. Tal vez me falta algo de promoción porque, realmente, fuera de Huesca no soy nadie.

Espero que esta entrevista contribuya a solucionar en parte ese problema. A ver si dentro de unos meses el buscador de Google arroja una cifra mayor de resultados si uno escribe en el campo correspondiente tu nombre y tus apellidos: Miguel Gardeta Lordán.

Share Button

Quiero publicar mi obra

Todos los escritores para los que he realizado algún encargo, bien sea de corrección o bien algún informe de lectura, me han planteado la siguiente cuestión: ¿Qué tengo que hacer para publicar?

Escritora novel

Escritora novel


Imagen sacada del blog Escrito en el aire. Notas sobre el oficio de escribir, del autor peruano José de Piérola.


 

Los escritores noveles, por regla general, no saben por dónde empezar, van un poco perdidos: bastante esfuerzo les ha costado escribir su obra.

Como este tema está lo suficientemente tratado en varios sitios web —y muy bien, por cierto— he preparado la siguiente lista de enlaces:

Cómo conseguir que una editorial publique tu libro

https://www.escritores.org/publicar/articulos-de-interes/506-como-hacer-para-ser-publicado-guia-para-escritores
http://www.oficiodeescritor.com/como-publicar-un-libro/

Sistema de autoedición
http://www.webempresa20.com/blog/autoedicion-20-secretos-que-mucha-gente-no-conoce.html
Amazon: http://www.amazon.es/gp/feature.html?docId=1000590863

Sistema de coedición
Qué es: http://marianaeguaras.com/de-que-hablamos-cuando-hablamos-de-coedicion/

Editoriales
http://www.letrasdeencuentro.es/editoriales.php

Concursos y premios
http://www.escritores.org/index.php/component/search/?searchword=novela+hist%C3%B3rica&ordering=newest&searchphrase=exact&limit=0

Micromecenazgo
http://www.comoescribirunlibro.com/que-es-el-crowdfunding-micromecenazgo/

… à suivre.

Share Button

Macro para unificar secuencias que se escriben en una o más palabras con idéntico valor

¿Cómo se escribe: ‘en seguida’ o ‘enseguida’? ¿’Así mismo’ o ‘asimismo’? ¿’Al rededor’ o ‘alrededor’? ¿’Cortocircuito’, ‘corto circuito’, ‘corta circuito’ o ‘cortacircuito’? En español hay algunas secuencias de palabras que pueden escribirse en un solo término o en varios sin que cambie su significado. También existen otras expresiones que varían su valor dependiendo de si las escribimos en una o varias palabras: no es lo mismo ‘en torno’ que ‘entorno’. En esta entrada ofrezco una herramienta a los escritores, correctores y, en general a todas aquellas personas interesadas por el lenguaje para unificar las secuencias que se escriben en una o más palabras con idéntico valor.

Se trata de una macro para Word que he elaborado después de analizar los listados que ofrece, por un lado, la RAE en su Ortografía de la lengua española del 2010 (OLE-2010) y, por otro, la que recoge José Martínez de Sousa en Ortografía y ortotipografía del español actual (Gijón: Ed. Trea, 2008; 2.ª edición, corregida).

Como se puede comprobar, ambas listas no coinciden completamente; por ello cito los criterios que ambas obras utilizan y los listados completos, y, al final, he pegado la macro resultante, después de analizarlas y reducirlas a una sola.

Aunque todas las expresiones pueden considerarse correctas, siempre existe una preferencia explícita sobre unas u otras formas. Son precisamente estas expresiones preferidas (o recomendadas) las que se han incluido en la macro. Para aquellas personas que no conozcan muy bien las labores de los correctores profesionales, conviene recordar que una de ellas es la de unificar las formas a lo largo de los textos que les toca corregir para que el lector no se vea despistado.

Por otra parte, los diferentes escritores o editores pueden tener a su vez preferencias distintas, lo cual , como es obvio, debe aceptarse. Con la herramienta ‘Buscar y reemplazar’ que ofrece la aplicación de tratamiento de textos de Word, puede unificarse el criterio planteado en cada ocasión, una vez ejecutada la macro.

OLE-2010 (RAE)

Secuencias que se escriben en una o más palabras con idéntico valor

«Aunque las dos variantes se documenten en el uso y resulten admisibles, se señala en todos los casos en que ello es posible la grafía que debe usarse con preferencia, para intentar limitar al máximo la dispersión gráfica que supone la existencia de varias formas de escritura para una misma expresión. En muchos casos, se desaconsejan de manera explícita grafías admitidas con anterioridad, bien por ser ya claramente minoritarias o para evitar confusiones con secuencias de idéntica forma, pero con diferente significado». (OLE-2010, pág. 546).

GRAFÍA PREFERIDA

GRAFÍA DESACONSEJADA

a cal y canto a calicanto
a machamartillo a macha martillo
a maltraer a mal traer
a matacaballo a mata caballo
a rajatabla a raja tabla
a tocateja a toca teja
a vuelapluma a vuela pluma
aguanieve agua nieve
alrededor al rededor
altamar alta mar
altorrelieve alto relieve
aposta a posta
aprisa a prisa
arcoíris arco iris
bajorrelieve bajo relieve
bienvenido bien venido
bienvenida bien venida
bocabajo boca abajo
bocarriba boca arriba
buenaventura buena ventura
calicanto cal y canto
camposanto campo santo
caradura cara dura
casaquinta casa quinta
cielorraso cielo raso
cubalibre cuba libre
deprisa de prisa
dizque diz que
donjuán don juan
enfrente en frente
enhorabuena en hora buena
enseguida en seguida
entremedias entre medias
entretanto entre tanto
exlibris ex libris
fueraborda fuera borda
fuerabordo fuerabordo
guardia civil guardiacivil
guardiamarina guardia marina
hierbabuena hierba buena
hierbaluisa hierba luisa
librecambio libre cambio
maleducado mal educado
medialuna media luna
medianoche media noche
medioambiente medio ambiente
Nochebuena Noche Buena
Nochevieja Noche Vieja
padrenuestro padre nuestro
Perogrullo Pero Grullo
puercoespín puerco espín
quintaesencia quinta esencia
sanseacabó san se acabó
sobremanera sobre manera
tosferina tos ferina
viacrucis vía crucis

OOTEA (J. Martínez de Sousa)

«Cualquiera que sea la preferencia académica, se ha situado en primer lugar la grafía en una sola palabra, que en principio debería ser la preferida. Adoptando esta postura, es decir, soslayando las formas en dos o más términos, se consigue simplificar las dudas ortográficas que su escritura presenta». (OOTEA, 2.ª edición, pág. 285).

 GRAFÍA PREFERIDA

 GRAFÍA DESACONSEJADA

a la chitacallando a la chita callando
a espetaperros a espeta perros
a machamartillo a macha martillo
a mansalva a man salva
a matacaballo a mata caballo
a muerdisorbe a muerde y sorbe
a quemarropa a quema ropa
a rajatabla a raja tabla
a regañadientes a regaña dientes
a salvamano a salva mano
a tocateja a toca teja
a trochemoche a troche y moche
a vuelapluma a vuela pluma
abarrisco a barrisco
adentro a dentro
adonde a donde
agnusdéi agnus Dei
aguacafé agua café
aguacibera agua cibera
aguanafa agua nafa
aguanieve agua nieve
aguaviento agua viento
ajorro a jorro
alderredor al derredor
alrededor al rededor
altorrelieve alto relieve
anteanoche antes de anoche
anteayer antes de ayer
apenas a penas
aposta a posta
aprisa a prisa
asafétida asa fétida
asimismo así mismo
avefría ave fría
bajorrelieve bajo relieve
balarrasa bala rasa
bocabajo boca abajo
buenaventura buena ventura
camposanto campo santo
cañaduz caña duz
caradura cara dura
cortocircuito corto circuito
cortacircuito
corta circuito
cuantimás cuanto y más
de chichinabo de chicha y nabo
de quitapón de quita y pon
de sobremesa de sobre mesa
deprisa de prisa
dondequiera donde quiera
dondiego don diego
donjuán don juán
dompedro don pedro
doquiera do quiera
enfrente en frente
enhorabuena en hora buena
enhoramala en hora mala
enseguida en seguida
entretanto entre tanto
exlibris ex libris
francocuartel franco cuartel
fueraborda fuera de borda
gentilhombre gentil hombre
gloriapatri gloria Patri
hierbabuena hierba buena
hojalata hoja de lata
hoja lata
infraganti in fraganti
librecambio libre cambio
malandanza mala andanza
masecoral maese coral
malavenido mal avenido
malhumor mal humor
maltraer mal traer
malvarrosa malva rósea
malva rosa
maremagno mare mágnum
mediagua media agua
medianoche media noche
montepío monte pío
Nochebuena Noche Buena
Nochevieja Noche Vieja
padrenuestro padre nuestro
pamperdido pan perdido
¡porvida! ¡por vida!
prorrata pro rata
purasangre pura sangre
quintaesencia quinta esencia
sanseacabó san se acabó
sinhueso sin hueso
sobremanera sobre manera
sobrepeine sobre peine
talvez tal vez
tiquismiquis tiquis miquis

 

Combinando ambas listas de secuencias, y efectuando algunos ajustes, he elaborado la siguiente macro, que he denominado «Secuencias», que, si os interesa, podéis copiar y pegar directamente en Visual Basic.

Sub Secuencias()

‘ Secuencias Macro
‘ Unifica las secuencias que se escriben en una o más palabras con idéntico valor. Ej.: enseguida/en seguida

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “¡por vida!”
.Replacement.Text = “¡porvida!”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a calicanto”
.Replacement.Text = “a cal y canto”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a espeta perros”
.Replacement.Text = “a espetaperros”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a la chita callando”
.Replacement.Text = “a la chitacallando”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a macha martillo”
.Replacement.Text = “a machamartillo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a mal traer”
.Replacement.Text = “a maltraer”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a man salva”
.Replacement.Text = “a mansalva”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a mata caballo”
.Replacement.Text = “a matacaballo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a muerde y sorbe”
.Replacement.Text = “a muerdisorbe”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a quema ropa”
.Replacement.Text = “a quemarropa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a raja tabla”
.Replacement.Text = “a rajatabla”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a regaña dientes”
.Replacement.Text = “a regañadientes”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a salva mano”
.Replacement.Text = “a salvamano”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a toca teja”
.Replacement.Text = “a tocateja”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a troche y moche”
.Replacement.Text = “a trochemoche”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a vuela pluma”
.Replacement.Text = “a vuelapluma”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a barrisco”
.Replacement.Text = “abarrisco”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a dentro”
.Replacement.Text = “adentro”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a donde”
.Replacement.Text = “adonde”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “agua café”
.Replacement.Text = “aguacafé”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “agua cibera”
.Replacement.Text = “aguacibera”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “agua nafa”
.Replacement.Text = “aguanafa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “agua nieve”
.Replacement.Text = “aguanieve”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “agua viento”
.Replacement.Text = “aguaviento”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a jorro”
.Replacement.Text = “ajorro”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “al derredor”
.Replacement.Text = “alderredor”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “al rededor”
.Replacement.Text = “alrededor”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “alta mar”
.Replacement.Text = “altamar”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “alto relieve”
.Replacement.Text = “altorrelieve”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “antes de anoche”
.Replacement.Text = “anteanoche”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “antes de ayer”
.Replacement.Text = “antesdeayer”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a penas”
.Replacement.Text = “antesdeayer”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a penas”
.Replacement.Text = “apenas”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a posta”
.Replacement.Text = “aposta”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “a prisa”
.Replacement.Text = “aprisa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “arco iris”
.Replacement.Text = “arcoíris”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “asa fétida”
.Replacement.Text = “asafétida”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “así mismo”
.Replacement.Text = “asimismo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ave fría”
.Replacement.Text = “avefría”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “bajo relieve”
.Replacement.Text = “bajorrelieve”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “bala rasa”
.Replacement.Text = “balarrasa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “bien venida”
.Replacement.Text = “bienvenida”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “bien venido”
.Replacement.Text = “bienvenido”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “boca abajo”
.Replacement.Text = “bocabajo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “boca arriba”
.Replacement.Text = “bocarriba”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “buena ventura”
.Replacement.Text = “buenaventura”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “cal y canto”
.Replacement.Text = “calicanto”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “campo santo”
.Replacement.Text = “calicanto”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “campo santo”
.Replacement.Text = “camposanto”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “caña duz”
.Replacement.Text = “cañaduz”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “cara dura”
.Replacement.Text = “caradura”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “casa quinta”
.Replacement.Text = “casaquinta”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “cielo raso”
.Replacement.Text = “cielorraso”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “corto circuito”
.Replacement.Text = “cortocircuito”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “cortacircuito”
.Replacement.Text = “cortocircuito”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “corta circuito”
.Replacement.Text = “cortocircuito”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “cuanto y más”
.Replacement.Text = “cuantimás”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “de chicha y nabo”
.Replacement.Text = “de chichinabo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “de sobre mesa”
.Replacement.Text = “de sobremesa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “de prisa”
.Replacement.Text = “deprisa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “diz que”
.Replacement.Text = “dizque”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “donde quiera”
.Replacement.Text = “dondequiera”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “don diego”
.Replacement.Text = “dondiego”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “don juan”
.Replacement.Text = “donjuán”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “do quiera”
.Replacement.Text = “doquiera”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “en frente”
.Replacement.Text = “enfrente”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “en hora buena”
.Replacement.Text = “enhorabuena”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “en hora mala”
.Replacement.Text = “enhoramala”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “en seguida”
.Replacement.Text = “enseguida”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “entre medias”
.Replacement.Text = “entremedias”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “entre medias”
.Replacement.Text = “entremedias”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ex libris”
.Replacement.Text = “exlibris”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “franco cuartel”
.Replacement.Text = “francocuartel”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fuera borda”
.Replacement.Text = “fueraborda”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fuera de borda”
.Replacement.Text = “fueraborda”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fuera bordo”
.Replacement.Text = “fueraborda”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fuera de bordo”
.Replacement.Text = “fueraborda”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “gentil hombre”
.Replacement.Text = “gentilhombre”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “gloria Patri”
.Replacement.Text = “gloriapatri”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guardia marina”
.Replacement.Text = “guardiamarina”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “hierba buena”
.Replacement.Text = “hierbabuena”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “hierba luisa”
.Replacement.Text = “hierbaluisa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “hoja de lata”
.Replacement.Text = “hojalata”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “hoja lata”
.Replacement.Text = “hojalata”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “in fraganti”
.Replacement.Text = “infraganti”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “libre cambio”
.Replacement.Text = “librecambio”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “mala andanza”
.Replacement.Text = “malandanza”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “mal educado”
.Replacement.Text = “maleducado”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “mal avenido”
.Replacement.Text = “malavenido”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “mal humor”
.Replacement.Text = “malhumor”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “mal traer”
.Replacement.Text = “maltraer”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “malva rósea”
.Replacement.Text = “malvarrosa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “malva rosa”
.Replacement.Text = “malvarrosa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “mare mágnum”
.Replacement.Text = “maremagno”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “maese coral”
.Replacement.Text = “masecoral”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “media agua”
.Replacement.Text = “mediagua”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “media luna”
.Replacement.Text = “mediagua”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “media luna”
.Replacement.Text = “medialuna”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “media noche”
.Replacement.Text = “medianoche”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “medio ambiente”
.Replacement.Text = “medioambiente”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “monte pío”
.Replacement.Text = “montepío”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Noche Buena”
.Replacement.Text = “Nochebuena”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Noche Vieja”
.Replacement.Text = “Nochevieja”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “padre nuestro”
.Replacement.Text = “padrenuestro”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “pan perdido”
.Replacement.Text = “panperdido”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “pro rata”
.Replacement.Text = “prorrata”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “puerco espín”
.Replacement.Text = “puercoespín”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “pura sangre”
.Replacement.Text = “purasangre”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “quinta esencia”
.Replacement.Text = “quintaesencia”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “san se acabó”
.Replacement.Text = “sanseacabó”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “sobre manera”
.Replacement.Text = “sobremanera”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “sobre peine”
.Replacement.Text = “sobrepeine”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “tiquis miquis”
.Replacement.Text = “tiquismiquis”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “tos ferina”
.Replacement.Text = “tosferina”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “vía crucis”
.Replacement.Text = “viacrucis”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “agnus Dei”
.Replacement.Text = “agnusdéi”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “cuba libre”
.Replacement.Text = “cubalibre”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “don pedro”
.Replacement.Text = “donpedro”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “don juan”
.Replacement.Text = “donjuán”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “don juán”
.Replacement.Text = “donjuán”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guardiacivil”
.Replacement.Text = “guardia civil”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guardiaciviles”
.Replacement.Text = “guardias civiles”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Noche Buena”
.Replacement.Text = “Nochebuena”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Noche Vieja”
.Replacement.Text = “Nochevieja”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “pedro jiménez”
.Replacement.Text = “pedrojiménez”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Pero Grullo”
.Replacement.Text = “Perogrullo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

Espero que os sirva.

…à suivre.

Share Button

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies