Re: [fr-users] Basic. évolution de ParaStyleName ?

Bonjour Jean-Luc,

à ma connaissance rien n'a été modifié (en tout rien vu passer dans les 
release notes).

Et si ton tableau était :
"¿" ; "Heading 1"
"ð" ; "Heading 3"

ça donnerait quoi ? (pas le temps de tester de mon côté...)

Il me semble que les noms des styles "du stock" sont attendus dans la 
version anglaise. Il existe une propriété MonStyle.displayName qui donne 
le nom localisé du style MonStyle (donc "Titre 1", etc.).

Amicalement,
--
Jean-Francois Nifenecker, Bordeaux


Le 19/03/2025 à 12:15, Jean-Luc a écrit :
> Bonjour
> Après une mise à jour en 25.8.5.2
> (automatique, au passage, j'apprécie de moins en moins que ce type de
> paramètres soit modifié à mon insu)
>
> cette ligne de code
>
> procItem.ParaStyleName = tCarStyles(i, 1)
>
> provoque ça :
> Erreur d'exécution
> Type com.sun.star.lang.illegalArgumentException
> Message .
>
> La macro cherche les lignes qui commence par tCarStyle(i, 0)
> et applique le style tCarStyle(i, 1)
>
> le tableau tCarStyles (string)
> ressemble à ça
> "¿" ; "Titre 1"
> "ð" ; "Titre 3"
> ...
>
>
> Sub appStyles (oDoc as Object, tCarStyles() as string)
> 'jlT 8 juin 2005
> 'Recherche dans le document oDoc les caractères tCarStyles(n, 0)
> 'et applique au paragraphe contenant ces caractères le style tCarStyles(n,
> 1)
> 'Le caractère de marquage est supprimé
>
> Dim oTexte as Object, oEnum as Object, procItem as Object
> Dim strLigne as String
> Dim i as integer, nbChar as integer
>
> oTexte = oDoc.Text
> 'oEnum contient tous les objets du texte
> oEnum = oTexte.createEnumeration
> while oEnum.hasMoreElements
> procItem = oEnum.nextElement
> if procItem.supportsService("com.sun.star.text.Paragraph") Then
> strLigne = procItem.getString()
> for i = lBound(tCarStyles(), 1) TO uBound(tCarStyles(), 1)
> if mid(strLigne, 1, 1) = tCarStyles(i, 0) then
> procItem.setString (right(strLigne, len(strLigne) - 1))
> procItem.ParaStyleName = tCarStyles(i, 1)
> end if 'mid(strLigne, 1, 1) =
> next i
> end if 'procItem.supportsService
> wend
> end Sub 'appStyles
>
> La doc concerne la 24.2
> ParaStyleName
> string ParaStyleName optionalproperty
>
> contains the name of the current paragraph style.
> Qu'est-ce qui a bougé depuis ?
>
> Merci pour votre aide
> Bonne journée


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy