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