BASIC Libre Office: ¿Cómo recorrer los párrafos por tipo?
Grandamakulo 28-09-2021, 14:11
Hola a todos:
Creo que esta pregunta debería ir en «Programación en otros lenguajes», pero, como no he encontrado dónde, pues la dejo aquí, a merced de lo que diga el administrador.
La cuestión es que tengo que hacer una macro en LibreOffice BASIC que recorra los párrafos de determinados tipos —«Estilos» mejor que tipos— de todo un documento LO Writer y vea el contenido, el texto, de cada uno. Pero resulta que la cosa ha cambiado mucho desde la última vez que hice cosas de éstas tanto con el LOB como con el VBA y soy incapaz de manejarme en condiciones con el UNO. ¿Alguien podría echarme una mano?
Gracias.
Bueno, tras arduas horas persiguiendo StarBASIC y UNO, creo que lo he logrado. Los estilos CC_Página y CC_Viñeta se pueden cambiar, obviamente, por otros:
Creo que esta pregunta debería ir en «Programación en otros lenguajes», pero, como no he encontrado dónde, pues la dejo aquí, a merced de lo que diga el administrador.
La cuestión es que tengo que hacer una macro en LibreOffice BASIC que recorra los párrafos de determinados tipos —«Estilos» mejor que tipos— de todo un documento LO Writer y vea el contenido, el texto, de cada uno. Pero resulta que la cosa ha cambiado mucho desde la última vez que hice cosas de éstas tanto con el LOB como con el VBA y soy incapaz de manejarme en condiciones con el UNO. ¿Alguien podría echarme una mano?
Gracias.
Bueno, tras arduas horas persiguiendo StarBASIC y UNO, creo que lo he logrado. Los estilos CC_Página y CC_Viñeta se pueden cambiar, obviamente, por otros:
Código:
Sub DibujaEsquema
Dim Doc As Object
Dim Enu As Object
Dim Tex As Object
Dim Pag as Integer
Dim Vin as Integer
Dim Paso As String
' Aquí tamaño y orientación de la página. Dibuja los marcos
Doc=ThisComponent
Enu=Doc.Text.createEnumeration
While Enu.hasMoreElements
Tex=Enu.nextElement
If Tex.supportsService("com.sun.star.text.Paragraph") Then
If Tex.ParaStyleName=("CC_Página") Then
Pag=Pag+1
Vin=0
'Dibuja la página: Aquí hará «cosas» con la página
Paso=Paso & "Página: " & Pag & CHr(13)
End If
If Tex.ParaStyleName=("CC_Viñeta") Then
Vin=Vin+1
'Dibuja la viñeta: Aquí hará «cosas» con la viñeta
Paso=Paso & " Viñeta: " & Pag & "." & Vin & " " & Tex.String & Chr(13)
End If
End If
Wend
MSGBOX (Paso)
End Sub
Splitter - Una ayuda para la edición de videotutoriales.
tincho 27-09-2021, 18:58
Hola amigos.
![[Imagen: bF5kJst.png]](https://i.imgur.com/bF5kJst.png)
Les presento "Splitter" un programa que sirve para separar el video del audio y luego lo vuelve a juntar todo, previamente la edición del audio para por ejemplo quitar el ruido de fondo.
Pueden descargar las fuentes desde:
https://gitlab.com/64system/splitter
Saludos.
Les presento "Splitter" un programa que sirve para separar el video del audio y luego lo vuelve a juntar todo, previamente la edición del audio para por ejemplo quitar el ruido de fondo.
Pueden descargar las fuentes desde:
https://gitlab.com/64system/splitter
Saludos.
jsbsan 26-09-2021, 20:35
Esta herramienta es para usarla en videotutoriales y/o para marcar en pantalla documentos que se esten pasando a limpio, por ejemplo.
La podéis descargar en https://github.com/jsbsan/marcador
Os adjunto un video de como uso la aplicación:
Saludos
Julio
La podéis descargar en https://github.com/jsbsan/marcador
Os adjunto un video de como uso la aplicación:
Saludos
Julio
Bienvenido, Invitado
Últimos temas
Como conseguir poderes de...
Foro: VideotutorialesÚltimo mensaje por: Shordi, Hace 44 minutos
Respuestas: 0 - Vistas: 4
Cómo conseguir poderes de...
Foro: VideotutorialesÚltimo mensaje por: Shordi, Hace 47 minutos
Respuestas: 0 - Vistas: 3
Error de sistema "Demasia...
Foro: GeneralÚltimo mensaje por: Shordi, 11-05-2025, 19:42
Respuestas: 3 - Vistas: 94
controlar el Activado/Des...
Foro: GeneralÚltimo mensaje por: Shordi, 10-05-2025, 08:08
Respuestas: 1 - Vistas: 69
Nuevo componente gb.qt6.w...
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 09-05-2025, 09:21
Respuestas: 1 - Vistas: 79