[RESUELTO] Acentuar consonantes

Discute sobre el procesador de textos
Responder
xiseme
Mensajes: 1918
Registrado: Lun Nov 24, 2008 1:13 pm

[RESUELTO] Acentuar consonantes

Mensaje por xiseme »

Versión corta:
La idea es, con teclado español, acentuar consonantes como si fueran vocales: insertar ŕ, Ŕ, ,, ... de igual forma que á, é, ...
En GNU/Linux ya es así por norma, pero en Windows-XP aparece ´p, ´w, ´W ...
¿Como hacer para que aparezcan directamente las consonantes acentuadas?

Versión extendida:
Fuente modificada (fonforge) con símbolos y logos que empleamos con frecuencia en Writer y a veces en Calc.
Se aprovechan consonantes acentuadas (10) que en castellano no se usan.
Los usuarios de sistemas GNU/Linux (openSUSE y Debian) introducimos directamente los logos (encantados)
Los que usan Windows-XP les aparece ´p, ´w, ´R ... tienen que ir a Insertar → Simbolo, seleccionar la fuente y después el carácter para insertarlo (no están tan encantados)

No he sabido encontrar (sería lo ideal) si hay una secuencia estilo Alt+´+r que genere ŕ (muchas referencias a errores de doble acento "´´a")
Una tabla-recetario unicode .... no sé, porque por ejemplo, Alt+7810 (7810Dec=U+1E182Hex) muestra é en lugar de y Alt+7811 (U+1E83) da â por .
La asignación de teclas "colisionaría" con las ya asignadas: se desestima.

Aunque no discierne entre mayúsculas y minúsculas (opción ´r reemplaza a ´R si la hubiere) modificar las opciones de autocorrección (´r → ŕ) supone un avance
¿Se pueden exportar estas opciones de autocorrección a diferentes usuarios sin tener que introducirlas "a mano" de nuevo?

Gracias.
Última edición por xiseme el Mié Feb 16, 2011 5:38 pm, editado 2 veces en total.
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Avatar de Usuario
RGB-es
Mensajes: 4739
Registrado: Lun Nov 24, 2008 10:46 am
Contactar:

Re: Acentuar consonantes

Mensaje por RGB-es »

Prueba con esta extensión:
Compose Special Characters
No respondo mensajes privados sobre AOO/LibO, por favor, utilice el foro para sus preguntas

LibreOffice en openSUSE con escritorio Plasma
---
Existen dos clases de personas: las que dicen que existen dos clases de personas y las que no.
xiseme
Mensajes: 1918
Registrado: Lun Nov 24, 2008 1:13 pm

Re: Acentuar consonantes

Mensaje por xiseme »

He probado la extensión en LibO sobre Windows XP en virtualbox.

Sí es útil para el propósito, aunque me temo que no completamente: diferencia la capitalización ( vs ) que no obtengo con la autocorrección; sin embargo no proporciona algunas consonantes que tenía previstas como p, k, m, g (lástima)

Profundizaré un poco más, en sistema real y con OOo. A ver si con un modificador diferente del acento y en combinación con la autocorrección ...

Como creo que es algo que atañe al sistema operativo; tampoco desisto de conseguir que en Windows sea tan natural como en GNU/Linux. Al fin y al cabo representar un carácter con facilidad está seguramente al alcance de cualquier S.O.

Gracias por el enlace y la ayuda (la directa y la indirecta en otros hilos)
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Acentuar consonantes

Mensaje por mauricio »

Hola...

Mira si podemos ir avanzando con la macro que te anexo, por ahora solo acentua las siguientes letras wrypsgkm, pero es sumamente sencillo agregar más, selecciona solo una letra, por ahora no toma en cuenta el formato, pero se puede modificar para que lo haga... la he probado en Linux y en una maquina virtual Win XP...

Saludos
Adjuntos
Acentuar Consonantes.odt
(9.2 KiB) Descargado 448 veces
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
xiseme
Mensajes: 1918
Registrado: Lun Nov 24, 2008 1:13 pm

Re: Acentuar consonantes

Mensaje por xiseme »

Ahaha!
Probada en OOo 3.3 WinXp ... Si, la macro cumple el objetivo.
Averiguaré como asignarle una combinación de teclas. Supongo que tengo que ir usuario a usuario y ponerla en Mis macros -Standard- Modulo nn para que esté disponible en cualquier aplicación OOo.

Eh! un momento ... ¡has dicho que, además, puede aplicar directamente un tipo de fuente específico! Eso ya es para nota ;). Si no es mucho preguntar ¿Como?

Muchas gracias. Por todo.
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Acentuar consonantes

Mensaje por mauricio »

Hola...

Es muy sencillo, pero no uses un tipo de fuente, si no un estilo de caracter, de este modo, puedes establecer no solo el tipo de fuente, si no todas las opciones presentes en Formato->Carácter...
He modifica la macro para que tu la adaptas a tus necesidades, solo tienes que cambiar las tres primeras líneas después de las declaraciones de variables.

Código: Seleccionar todo

Option Explicit

Sub AcentuarLetra()
Dim sLetras
Dim sLetrasA
Dim oSel As Object
Dim sLetra As String
Dim pos As Integer
Dim sEstilo As String

	sEstilo  = "MiEstilo"
	sLetras  = "wrypsgkm"
	sLetrasA = "ẃŕýṕśǵḱḿ"
	
	oSel = ThisComponent.CurrentController.Selection
	oSel = oSel.getByIndex(0)
	sLetra = oSel.String
		
	Select Case Len(sLetra)
		Case 0
			MsgBox "Selecciona una letra"
		Case 1
			pos = InStr( 1, sLetras, sLetra, 0 )
			If pos > 0 Then
				oSel.CharStyleName = sEstilo
				oSel.String = Mid(sLetrasA,pos,1)
			End If
		Case Else
			Msgbox "Selecciona solo una letra"
	End Select

End Sub
En la primera, estableces el estilo que hayas creado...

Código: Seleccionar todo

	sEstilo  = "MiEstilo"
En las dos siguientes líneas, estableces las letras que quieras reemplazar, solo tienes que tener la precaución de que estén exactamente en la misma posición, por ejemplo, he agregado la W y R en mayúsculas...

Código: Seleccionar todo

	sLetras  = "wrypsgkmWR"
	sLetrasA = "ẃŕýṕśǵḱḿẂŔ"
Por ultimo, solo te resta asignar a una combinación de teclas...

Por favor, si esto responde tu pregunta, edita el primer mensaje de este hilo y agrega al principio del título la etiqueta [RESUELTO], adicionalmente puedes marcar el icono de la tilde verde, de esta forma conseguiremos un foro más ordenado.

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
xiseme
Mensajes: 1918
Registrado: Lun Nov 24, 2008 1:13 pm

Re: Acentuar consonantes

Mensaje por xiseme »

".CharStyleName" Ok. Asunto resuelto.

Muchas gracias de nuevo.
Todo es mejorable, estamos dispuestos a mejorar. ¿Yo? ... poco a poco.
Nunca hay acritud en mis comentarios, si lo pareciera, seguro que me he expresado mal.
Responder