Re-Bonjour à tous,
Tony GALMICHE a écrit le 23/06/04 11:45 :
Bonjour à tous,
Dans un document texte, je cherche à trouver le nom de la Section ou
se trouve le curseur actif -> celui qui clignote.. :-)
J'ai plusieurs sections dans mon document et j'aimerais que
l'utilisateur se positionne dans la bonne section manuellement et
ensuite appel ma macro pour supprimer cette section -> Mais pour cela,
j'ai besoin de connaître son nom.
Décidément, elle est vraiment très efficace cette liste car j'ai cherché
pendant deux heures une solution à mon problème et je l'ai trouvé 5mn
après avoir posé la question sur cette liste... ;-)
Pour info, voici ma macro :
sub Supprimer_Article
Dim oSels
Dim oSel
Dim oDoc as object
oDoc=ThisComponent
oSels = ThisComponent.getCurrentSelection()
oSel = oSels.getByIndex(0)
If NOT IsEmpty(oSel.TextSection) Then
msgbox "Supprimer l'article " & right(oSel.TextSection.name,4)
oSel.TextSection.dispose
else
msgbox "La selection ne contient pas de Section"
end if
end sub
Pour info également, j'ai trouvé la solution en consultant le site
http://www.oooforum.org/ qui regorge d'exemples de macros
Tony
4 messages in org.openoffice.fr.progRe: [prog] Nom de la section ou se tr...
