Un exemple, où doc4 est le document actif :
listePargr=doc4.Text.createEnumeration
i=0
nbint=0
'Analyse du document
Do While listePargr.hasMoreElements
elmt=listePargr.nextElement
if elmt.supportsService("com.sun.star.text.Paragraph") Then
msgbox("Style:"+elmt.paraStyleName+" -
contenu:"+elmt.String)
if ((elmt.paraStyleName="Heading 3") or
(elmt.paraStyleName="Heading 2") or (elmt.paraStyleName="Heading 1")) then
........
End if
end if
Loop
doc4.close(True)
A noter que dans les macros, les noms des catégories des styles sont en
anglais ("Heading 1", etc.)
Cordialement,
O.J.
P.S:xRay est effectivement une aide utile, comme l'a suggéré Didier.
Le 01/05/2017 à 17:27, Pierre Choffardet a écrit :
Le 01/05/2017 à 17:09, Didier Dorange-Pattoret a écrit :
Bonjour Pierre,
L'outil Xray permet facilement de connaître les différentes
propriétés d'un document.
effectivement, j'ai téléchargé l'outil, puis fait XRay sur un objet
ThisComponent
Puis dans la méthode, getDocumentProperties
J'ai trouvé :
Title Subject Description Keywords
Ce qui semble correspondre à mes besoins. Je verrai si c'est bien ça
Merci !
Il y a aussi MRI.
Pour un document Writer, il y a le tableau de propriétés StyleFamilies
J'espère ne pas répondre à côté.
Cordialement.
Le 01/05/2017 à 16:54, Pierre Choffardet a écrit :
Bonjour,
Aux pros du BASIC.
Je voudrais écrie une petite macro qui fera le boulot suivant :
- Parcourir un document Writer paragraphe par paragraphe.
- récupérer le style du paragraphe
- Si le style est Titre1, mettre le contenu du paragraphe de côté
- écrire le résultat dans les propriétés du document Onglets >
description, champs > Commentaire
Je ne vois pas comment accéder aux propriétés du document
(Fichier/Propriétés)
Un petit coup de main svp...
Pierre
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés