Bonjour,
Un extrait reconstitué et utilisable :
sub es2
Dim oDoc as Object
oDoc = ThisComponent
Dim oText as Object
oText = oDoc.Text
Dim oCursor as Object
oCursor = oText.createTextCursor
Dim oCurSelection as Object
oCurSelection = thisComponent.getCurrentSelection()
'https://api.libreoffice.org/docs/idl/ref/servicecom_1_1sun_1_1star_1_1text_1_1DocumentIndexMark.html#a120a1795ce3b74d5569c626f3316fed0
Dim oIndexEntry as Object
oIndexEntry = oDoc.createInstance( "com.sun.star.text.DocumentIndexMark")
oIndexEntry.AlternativeText = "MonEntree"
oDoc.text.insertTextContent( oCursor, oIndexEntry, TRUE)
oCursor.GotoEnd( FALSE)
oText.insertControlCharacter(oCursor,_
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, FALSE)
oText.insertControlCharacter(oCursor,_
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, FALSE)
oCursor.goLeft(1, FALSE)
Dim oIndex as Object
oIndex = oDoc.createInstance("com.sun.star.text.DocumentIndex")
oIndex.UseCombinedEntries = TRUE
oIndex.Title = "Index"
oIndex.UsePP = TRUE
oText.insertTextContent(oCursor, oIndex, FALSE)
oIndex.update()
end sub
Le 05/02/2018 à 14:45, Stéphane Santon a écrit :
https://api.libreoffice.org/examples/basic/text/creating_an_index/
Le 05/02/2018 à 11:33, Stéphane Santon a écrit :
Pour écrire une macro, où trouver les paramètres de
.uno:InsertIndexesEntry ?
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
