Re-bonjour à tous,
Tony GALMICHE a écrit le 18/06/04 09:27 :
Je vais faire comme Jovial, je vais donner la réponse à ma question... ;-)
Et je vais remercier une nouvelle fois Bernard (jamais deux sans trois),
car c'est grâce à son super outils pour afficher les méthodes et les
propriétés des objets que j'ai réussi à m'en sortir dans les méandres de
l'API de OOo.
-> http://fr.openoffice.org/Documentation/How-to/Basic/XrayTool30_fr.sxw
Donc voici deux macros permettant de créer et de masquer des sections :
Sub Creer_Section
Dim oDocument
Dim oText As Object
Dim objIntroVCursor As Object
Dim objIntroTCursor As Object
Dim oSection as object
oDocument=ThisComponent
oText = oDocument.Text
objIntroVCursor = oDocument.currentcontroller.getViewCursor()
objIntroTCursor =
oText.createTextCursorByRange(objIntroVCursor.getStart())
oSection = oDocument.createInstance("com.sun.star.text.TextSection")
oSection.isProtected = TRUE
oSection.Name = "MaSection"
oText.insertTextContent(objIntroTCursor, oSection, FALSE)
End Sub
sub Afficher_Masquer_Section
dim oSection as object
oSection = ThisComponent.GetTextSections.GetByName("Section1")
if oSection.IsVisible=FALSE then oSection.IsVisible=TRUE else
oSection.IsVisible=FALSE
end sub
Tony
2 messages in org.openoffice.fr.progRe: [prog] Masquer une section par macro
