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

Répondre à