 | 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: | Agnès Simonet (agne...@laposte.net) | |
| Date: | Jul 14, 2004 1:03:07 am | |
| List: | org.openoffice.fr.prog | |
Bonjour Tony, Tony GALMICHE a écrit :
Bonjour Agnès,
Agnès Simonet a écrit :
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.
Pas tout à fait car elle retourne le nom de la soussection pour chaque paragraphe de cette sous-section. Il faudrait faire à nouveau un anchor+enum sur les sous-sections, mais puisque tu n'en a plus besoin, je laisse tomber.
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.... :-)
Pour l'instant je travaille sur les sections, pour voir tout ce qu'on peut faire avec,et la macro pour les pages d'étiquettes incomplètes. Pour le howto, on verra si c'est utile. Peut-être que votre travail pour spip sera un exemple assez parlant pour qu'il ne soit pas nécessaire de faire un how-to à part. Sinon je piocherai allègrement dedans ;-) Ou peut-être suffira-t-il de rajouter une portion sur les sections dans le how-to de Bernard. A voir.
@+
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
---------------------------------------------------------------------