 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
11 messages in org.openoffice.fr.progRe: [prog] Liste des sous-sections d'...| From | Sent On | Attachments |
|---|---|---|
| Tony GALMICHE | Jul 12, 2004 11:16 am | |
| Bob | Jul 12, 2004 12:06 pm | |
| Agnès Simonet | Jul 12, 2004 1:52 pm | |
| Tony GALMICHE | Jul 12, 2004 10:53 pm | |
| Tony GALMICHE | Jul 12, 2004 10:57 pm | |
| Bob | Jul 13, 2004 2:55 am | |
| Bernard Marcelly | Jul 13, 2004 7:43 am | |
| Agnès Simonet | Jul 13, 2004 10:11 am | |
| Tony GALMICHE | Jul 13, 2004 11:23 pm | |
| Tony GALMICHE | Jul 13, 2004 11:23 pm | |
| Agnès Simonet | Jul 14, 2004 1:03 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] Liste des sous-sections d'une section connue | Actions... |
|---|---|---|
| From: | Tony GALMICHE (tony...@tiscali.fr) | |
| Date: | Jul 13, 2004 11:23:53 pm | |
| List: | org.openoffice.fr.prog | |
Bonjour Agnès,
Agnès Simonet a écrit :
Et bien si on combinait nos deux pistes ? D'abord récupérer l'ancre de la section mère. C'est un TextRange qui supporte createEnumération. Donc on peut faire ce que tu souhaites. J'ai juste essayé sur un doc avec une section mère et 3 sections filles "désordonnées". Ça marchait.
Ta macro fonctionne à merveille et c'est exactement ce que je cherchait. Le seul truc que j'ai trouvé à redire dans ta macro, c'est que la ligne "oSectionsFille=oSectionParent.getChildSections" est inutile, mais à part cela, c'est parfait.
Mais je vois que le grand maître a parlé, tu as sans doute plus de chances de ce coté là.
Je crois que sur ce coup ci, l'élève Agnès à dépassé le maître Bernard... ;-)
Mais malheureusement, ce n'était plus trop important, car dans la dernière version de OOoToSpip, Bob à placé un cadre dans la section et c'est ce cadre qui contient les sous-sections et du coup, j'ai résolu mon problème autrement et c'est même encore plus simple comme ça.
Mais je garde ton exemple sous le coude, car il est très intéressant.
D'ailleurs à ce sujet, tu as toujours l'intention de faire un how-to sur les macros des sections, car si c'est le cas, je commence à avoir un bon stock d'exemples en magasin.... :-)
@+
Tony
Je laisse la macro pour info
--------------------------------------------------------------------
sub ListeSousSections()
NomSectionParent="Parent" oDoc=ThisComponent oSectionParent=oDoc.GetTextSections.GetByName(NomSectionParent) oSectionsFille=oSectionParent.getChildSections oAnchorSectionParent = oSectionParent.Anchor oEnum= oAnchorSectionParent.CreateEnumeration While oEnum.hasMoreElements TextElement=oEnum.NextElement if TextElement.SupportsService("com.sun.star.text.Paragraph") then oSection=TextElement.TextSection if not isempty(oSection) then oParentSection=oSection.ParentSection if not isnull(oParentSection) then if oParentSection.name=NomSectionParent then msgbox oSection.name end if end if end if Wend
end sub
---------------------------------------------------------------------