Bonjour En effet ça marche
Une facétie des développeurs ? Comme les paramètres modifiés sans raison. C'est permanent En tout cas MERCI Le mer. 19 mars 2025 à 13:22, Jean-Francois Nifenecker < [email protected]> a écrit : > 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 à [email protected] pour vous > désinscrire > Les archives de la liste sont disponibles à > https://listarchives.libreoffice.org/fr/users/ > Privacy Policy: https://www.documentfoundation.org/privacy > -- *Jean-Luc* Je ne mange pas que pour vivre… Je ne vis pas que pour manger… -- Envoyez un mail à [email protected] pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Privacy Policy: https://www.documentfoundation.org/privacy
