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

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

  1. Hola, he intentado pero las tres primeras líneas me salen en rojo. ¿Está bien el código?

  2. Atisbador dice:

    Hola, coaching:
    Acabo de actualizar la entrada. Había puesto erróneamente que el resaltado aparecería en amarillo, aunque Word resaltará los cambios en el color que tengas seleccionado en el botón ‘Color de resaltado de texto’ de la pestaña ‘Inicio’.
    Saludos cordiales.

Deja un comentario

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