Categoría: Corrección de textos

 

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

Macro para eliminar las tildes que sobran

Word y ortografía

Word y ortografía

Hace poco leí en varios periódicos digitales el siguiente titular:

LA RAE PIERDE LA BATALLA CONTRA LA TILDE EN LAS PALABRAS ‘SÓLO’ Y ‘ÉSTE’

 

Esto podría ser cierto si la RAE, junto con ASALE, hubieran emprendido alguna batalla; pero no es así, como puede comprobarse en la página 269 de la OLE-2010, donde las academias explican perfectamente los casos específicos del adverbio solo y de los demostrativos (§ 3.4.3.3) y dicen que «a partir de ahora se podrá prescindir de la tilde en estas formas incluso en casos de doble interpretación»: como adverbio o como adjetivo, en el caso de solo, y como pronombres o determinantes, en el caso de «los demostrativos este, ese y aquel, con sus femeninos y plurales». Es decir, que también se podrá continuar añadiendo la tilde como se venía haciendo hasta ahora en los casos en los que esta sea pertinente.

Yo prefiero prescindir de las tildes, pues, como bien indica la OLE, el contexto suele salvar casi siempre los posibles casos de ambigüedad y, si ello no ocurre, busco alguna solución alternativa.

Y para unificar criterios, y por si acaso se me escapa alguna tilde en estas palabras, cosa que pudiera ocurrir, pues pertenezco a una generación que hasta la fecha siempre las había tildado cuando hacía falta, he grabado una macro para Word 2010 donde no solo se eliminan en solo, este, ese y aquel (con sus femeninos y sus plurales), sino que también las elimina de una serie de palabras que nunca deben llevarla, como el posesivo ti, pero también algún sustantivo, como truhan, o las formas verbales di, del verbo dar, crie, crio, criais, crieis, del verbo criar, y así hasta un total de cincuenta y dos formas en una lista abierta que puede ir creciendo conforme surjan más casos.

A la macro la he denominado «Tildes» —en otro alarde de poca imaginación de los que suelen caracterizarme :)— y os la copiopego aquí para que podáis hacer lo propio en vuestra aplicación de tratamiento de textos:

Sub Tildes()

‘ Tildes Macro


Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “éste”
.Replacement.Text = “este”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ése”
.Replacement.Text = “ese”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “aquél”
.Replacement.Text = “aquel”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ésta”
.Replacement.Text = “esta”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ésa”
.Replacement.Text = “esa”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “aquélla”
.Replacement.Text = “aquella”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ésto”
.Replacement.Text = “esto”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “éso”
.Replacement.Text = “eso”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “aquéllo”
.Replacement.Text = “aquello”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “éstos”
.Replacement.Text = “estos”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ésos”
.Replacement.Text = “esos”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “aquéllos”
.Replacement.Text = “aquellos”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “éstas”
.Replacement.Text = “estas”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “ésas”
.Replacement.Text = “esas”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “aquéllas”
.Replacement.Text = “aquellas”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “sólo”
.Replacement.Text = “solo”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “dí”
.Replacement.Text = “di”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “tí”
.Replacement.Text = “ti”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “truhán”
.Replacement.Text = “truhan”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “crié”
.Replacement.Text = “crie”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “crió”
.Replacement.Text = “crio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “criáis”
.Replacement.Text = “criais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “criéis”
.Replacement.Text = “crieis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fié”
.Replacement.Text = “fie”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fió”
.Replacement.Text = “fio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fiáis”
.Replacement.Text = “fiais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fiéis”
.Replacement.Text = “fieis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fluí”
.Replacement.Text = “flui”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fluís”
.Replacement.Text = “fluis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “frió”
.Replacement.Text = “frio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “friáis”
.Replacement.Text = “friais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “friáis”
.Replacement.Text = “friais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fruí”
.Replacement.Text = “frui”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “fruís”
.Replacement.Text = “fruis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guié”
.Replacement.Text = “guie”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guió”
.Replacement.Text = “guio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guiáis”
.Replacement.Text = “guiais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “guiéis”
.Replacement.Text = “guieis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “huí”
.Replacement.Text = “hui”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “huís”
.Replacement.Text = “huis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “lié”
.Replacement.Text = “lie”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “lió”
.Replacement.Text = “lio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “liáis”
.Replacement.Text = “liais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “liéis”
.Replacement.Text = “lieis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “pié”
.Replacement.Text = “pie”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “pió”
.Replacement.Text = “pio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “piáis”
.Replacement.Text = “piais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “piéis”
.Replacement.Text = “pieis”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “rió”
.Replacement.Text = “rio”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “riáis”
.Replacement.Text = “riais”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Ruán”
.Replacement.Text = “Ruan”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Sión”
.Replacement.Text = “Sion”
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub

NOTA: Si os gusta esta web, podéis votarla en http://directoriohispanodelasartes.com/literatura/correctores/. Gracias.

à suivre.

Share

El arduísimo proceso editorial

En la entrada de este mes tenía pensado hablar de una novela, que me regalaron los Magos de Oriente, con muy buena pinta, aunque, mientras la leía, me di cuenta de que algo no iba bien, algo fallaba. Se trata de 261 páginas de papel ahuesado, de 90 gr/m, con la tripa cosida y encolada, pastas de unos 200 gr/m con una bella decoración a base de geometrías verdinegras, sobrecubiertas en las que aparece una bonita ilustración alusiva a la historia que contiene rematadas por solapas de 82 mm en las que se glosa la figura de la autora (delante) y se listan otros títulos de la editorial (que no mencionaré aquí por decoro, aunque a lo mejor luego sí que la nombro). Incluso, en un alarde de originalidad de semejantes proporciones a las de su ponderado costo, el extraordinario objeto incluía un precioso recortable con el que los ociosos pueden entretenerse montando un hotel de cartulina, que es donde transcurre la mayor parte de la trama (en un hotel no de cartulina).

Petit hôtel en «petit carton»

Petit hôtel en «petit carton»

Por otra parte, se trataba de una buena traducción del original inglés (esto debo suponerlo, porque, como comprenderéis, no lo he tenido en mis manos para juzgar de la manera más ecuánime posible, aunque reconozco que el inglés no es mi fuerte).

Entonces ¿qué era lo que fallaba?

Muy fácil: aquel «libro» no había pasado por ningún proceso de corrección, ni de estilo ni ortotipográfica, y esto es algo que nunca entenderé, y menos en este caso (una verdadera lástima, porque la historia en sí es interesante), donde salta a la vista que no han escatimado un euro en otras cuestiones, ni siquiera en recortables.

En los pocos años que llevo en el mundo de la edición, he visto nacer unas cuantas editoriales, en no pocas ocasiones con más buena voluntad que acierto, pues, en principio, para establecerse uno como editor nadie le exige ninguna preparación previa.

Algunos amantes de la literatura ―o de los libros en general, conocidos en catalán con el eufónico calificativo de lletraferits― se lanzan a la gran aventura de editar sin haberse preocupado de enterarse antes de cuáles son las fases de que consta el proceso de edición, o, lo que es lo mismo, desconociendo qué es exactamente el producto que intentan vendernos. Por ello me ha parecido oportuno explicar aquí, aunque sea de forma somera (y, si cabe, con algo de humor), qué características ha de tener un libro para que sea considerado como tal.

Para empezar, tenemos que saber de lo que estamos hablando, para lo que acudiremos a la definición de la RAE:

libro. (Del lat. liber, libri). | 1. m. Conjunto de muchas hojas de papel u otro material semejante que, encuadernadas, forman un volumen. | 2. m. Obra científica, literaria o de cualquier otra índole con extensión suficiente para formar volumen, que puede aparecer impresa o en otro soporte. Voy a escribir un libro. La editorial presentará el atlas en forma de libro electrónico. […]. | 3. m. Der. Para los efectos legales, en España, todo impreso no periódico que contiene 49 páginas o más, excluidas las cubiertas. […].

(He obviado aquí las acepciones que he estimado convenientes para los fines que se persiguen).

Con respecto a la primera acepción de la entrada, me gustaría recordar unas palabras de Marcos Mundstock:

«Un libro que no está escrito, más que libro, es un cuaderno». (LES LUTHIERS)

Esto no es el libro blanco de nada

Esto no es el libro blanco de nada

Respecto de la tercera acepción (la referida al número de páginas), cabe explicar que se trata de una de las características que recoge una definición técnica de la Unesco (United Nations Educational, Scientific and Cultural Organization, [Organización de las Naciones Unidas para la Educación, la Ciencia y la Cultura, por sus siglas en inglés]) «destinada a unificar, desde un punto de vista estadístico, la noción de libro. […] Esta definición se basa en una unidad de pliego de 16 páginas, de tal manera que no puede considerarse libro, estadísticamente hablando, si la obra, trate de lo que trate y cualquiera que sea su formato, no tiene más de tres pliegos de 16 páginas (o su equivalente), pues, como hemos visto, si solo tiene entre cinco y 48 páginas se llama folleto, y si solo tiene entre dos y cuatro, hoja suelta». (José M. de Sousa: Manual de edición y autoedición; Madrid: Pirámide; 2.ª edición, 2.ª impresión; 2008; pág. 66-67).

Sin embargo, hoy hay que ampliar esta definición debido, como bien sabemos, a los nuevos soportes electrónicos: los libros digitales ya no tienen páginas, bien sean textuales, videolibros o audiolibros. Cuando uno está leyendo uno de estos e-books, el dispositivo lector utilizado no suele informar de la página por la que se va leyendo, sino del porcentaje de lo leído.

—Oye, co: Te has leído Ana Karénina?

—No, co, pero me la bajé de internet para mi kindle y ya voy por el diez por ciento.

—Tómatelo con calma, co, que solo te faltan unas novecientas páginas de las de antes, y con letra pequeña.

―No me chafes el final, co, que está muy interesante el culebrón.

Tranqui, co, que no voy a espoileártela.

Libros sin páginas

Libros sin páginas

Sabido esto, nos arremangaremos para ir directamente al meollo de la cuestión:

El arduísimo proceso editorial

En el proceso editorial consta de varias fases, algunas de las cuales deberían ser ineludibles:

  • Creación del texto. Se trata de redactar o traducir un texto ajustándose a unas determinadas normas de estilo (1.ª fase). El texto traducido debería de pasar una revisión de la traducción (2.ª fase) que debería realizar una persona distinta al traductor. Esta última fase ya se lo salta a la torera alguna editorial (o alguna empresa que edita otro tipo de documentos que no son libros).
  • Tratamiento del texto. Una vez insertados los cambios de la revisión, habría que proceder a la revisión del contenido e insertar los cambios correspondientes (3.ª fase); luego, se debería realizar una corrección de estilo (4.ª fase) y, por último, una corrección de primeras pruebas (5.ª fase). En cada una de estas fases hay que ir introduciendo los cambios correspondientes: el texto y, por lo tanto, el posible lector, salen ganando, aunque el autor debe conceder el nihil obstat al texto definitivo.

 

Escritor anónimo

Escritor anónimo

«A mi no me canvias tu ni una tilde, de mi testo». (Autor anónimo).

  • Maquetación. La maquetación no se la salta nadie, porque, si no, volveríamos a tener un cuaderno. Si el texto lleva imágenes, ahora es el momento de incorporarlas en la maqueta (6.ª fase), lo que conlleva una o varias nuevas correcciones ortotipográficas (7.ª fase). Algunos piensan que esta fase sobra, pero si no se realiza pueden aparecer callejones o blancos de más en el texto, separaciones incorrectas de palabras al final de la línea, pueden producirse coincidencias de palabras iguales en líneas sucesivas e incluso puedes encontrarte con alguna sorpresa en los pies de foto, como ilustra el bello ejemplo en formato jotapegé.

 

«Regata de traineras en la ría de Bilbao» (Un mal pie de foto)

«Regata de traineras en la ría de Bilbao»
(Un mal pie de foto)

  • Impresión. En este apartado se incluye la compaginación con la correspondiente corrección de compaginadas, la creación de fotolitos, con revisión de ferros, diversas pruebas mecánicas y, por último, antes de encuadernar, también hay que verificar los pliegos (fases 8.ª, 9.ª, 10.ª y 11.ª). De estas fases, excepto de la  8.ª, como se encarga la imprenta, no se deja ninguna sin hacer.
  • Encuadernación, almacenaje y distribución (fases 12.ª, 13.ª y 14.ª). En este apartado, los libros deberían de someterse a los controles de calidad correspondientes (fase 15.ª), pero hay quien, con ver las cajas llenas y ojear un ejemplar, da por cumplimentado el trámite: ¿quién no se ha topado alguna vez ―aunque ahora ya sería rarísimo― con algún libro, además de intenso, intonso?
libro intonso

Libro intonso

 

No está de más aquí recomendar a los lectores que a la hora de adquirir un libro pierdan el mismo tiempo que cuando van a comprarse, no digo ya un automóvil, sino cualquier electrodoméstico, y también cabe recordar que tienen derecho a la devolución del dinero si el producto no les satisface: ello representa el mejor control de calidad posible.

En resumen (que no es gerundio)

¿Os imagináis al bueno de Daniel «Dan» Brown habilitando un búnker como el que montó para los traductores de su obra Inferno para cada grupo de personas que deberían haber intervenido en el proceso de edición? ¡No hubiera ganado para búnkeres! Así que se ahorró unos cuantos dólares, pero seguro que ha perdido un buen número de lectores (yo mismo, por ejemplo).

Por ello, y aunque hoy las modernas técnicas nos permitan agilizar enormemente las tareas de edición, si las editoriales quieren dotar de calidad a los libros que producen, no deberían saltarse ninguno de los pasos arriba expuestos: podrán buscar el ahorro en el gramaje o la calidad del papel, las tapas, las sobrecubiertas e incluso en recortables, pero lo que nunca nunca nunca deberían hacer es ahorrarse dinero en traductores ni correctores profesionales, y repito también lo de profesionales, porque existe una gran diferencia entre que las chapuzas de casa las pongas en manos de un fontanero, electricista o albañil profesional a que las fíes al manitas de tu cuñao, que estuvo una temporada de peón y otra desatascando cañerías.

En ello estriba la diferencia entre un libro, un seudolibro, un paralibro, un antilibro o, directamente, un cuaderno.

Nota: Para desarrollar los comentarios sobre las distintas fases del proceso de edición me he basado en una unidad didáctica del Curso de Corrección Profesional de la academia Cálamo&Cran, de Madrid, que realicé en línea hace unos años, y que recomiendo a todo letraherido que se precie de serlo. Al fin callo el título y la editorial del recortable por haber recortado —como mínimo— en las fases dos, tres, cuatro, cinco, siete y ocho, no sea que alguien pique y se lo compre.

… à suivre.

Share

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

Carta abierta de la Unión de Correctores, UniCo.

Reproduzco aquí una carta de protesta de UniCo ante la sanción recibida de la CNC (Comisión Nacional de Competencia).

Madrid, a 6 de febrero de 2013
UniCo, La Unión de Correctores, ha sido expedientada y multada por la Comisión Nacional de la Competencia (CNC). Un duro golpe para UniCo. El motivo: infringir el artículo 1 de la Ley de la Competencia por publicar unas cifras que pretendían orientar a los autónomos que se inician en la corrección. Del expediente se desprende que la CNC no ha demostrado que esas tarifas hayan restringido o falseado la libre competencia. Pero UniCo ha sido sancionada con la cantidad de 2.500 €, simbólica para la CNC, desproporcionada para UniCo, por dos razones:
1. El pago de la multa no mejorará la competencia libre en los servicios de corrección: en general, son las editoriales las que fijan lo que se paga, y no el profesional. Esta sanción solo daña los intereses de un grupo de profesionales de un sector crítico de las industrias de la lengua, mayoritariamente autónomo y femenino, con empleo precario y altas tasas de desempleo. La soledad del corrector, que trabaja desde su casa, solo se palía con el vínculo que establece al pertenecer a una asociación. Y UniCo es la primera que aglutina, sobre todo, a correctores y asesores lingüísticos.
2. Por lo que sabemos, ninguna de las multas impuestas por ese organismo alcanza un porcentaje tan alto de los bienes de una asociación o empresa como el impuesto a UniCo, que se ha mantenido desde sus inicios gracias a las cuotas de sus socios (50 € anuales), sin subvenciones ni otros recursos (en el momento de la apertura del expediente, tenía 144 socios).
«Cómo presupuestar» es la primera cuestión que se plantea un profesional-emprendedor. UniCo nunca ha querido unificar o pactar precios, sino orientar a los correctores sobre la viabilidad de sus proyectos empresariales en un momento en el que el autoempleo requiere de todo el impulso que se le pueda proporcionar.
Tememos que iniciar un recurso contra este dictamen conduzca a un proceso largo y costoso que no podemos asumir.
UniCo acata la ley y paga la multa, pero alza la voz para que se conozca lo que consideramos una sanción desmedida, recaudatoria, en la que la CNC, en aplicación de la ley, ha actuado con indiferencia, sin evaluar los daños.
Antonio Martín Fernández,
presidente de la Unión de Correctores.
Más información: 647 77 76 57
presidencia@uniondecorrectores.org

Share

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