BASIC LibreOffice

fr-users
#1

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

#2

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 !

#3

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.

#4

Bon ben voilà, du coup, ça marche. Moi qui pensais y passer des heures...
Merci beaucoup.
Mais du coup, je deviens gourmand.
Je voudrais bien remplir le champ "titre" et je mets le titre dans un tableau.
Or, je crois que les styles dans les tableaux ne sont pas parcourus par ce programme.

J'ose à peine demander comment y accéder...
Pierre