Hi Ivo,
Ivo ten Hagen wrote on 29/11/2020 13:51:
> Is er een tool om ongebruikte opmaakprofielen te verwijderen>
>
Misschien bestaat er een extensie voor.
Je kunt ook dit draaien in Basic:
Sub RemoveUnusedStyles
Dim oFamilies as object
Dim oFamily as object
Dim oStyle as Object
Dim i
Dim oAStyle
oFamilies = ThisComponent.getStyleFamilies()
oFamily = xFamilies.getByName ("ParagraphStyles")
For i = 0 to oFamily.getCount()-1
oAStyle = xoFamily.getByIndex(i)
if oAStyle.isInUse = FALSE then
oFamily.removeByName(oAStyle.name)
End If
Next
End Sub
En verder: onderin de lijst Stijlen kun je kiezen dat alleen de
gebruikte worden getoond. Is in ieder geval rustiger aan de ogen ;)
vr. groet,
Cor
--
Cor Nouws
GPD key ID: 0xB13480A6 - 591A 30A7 36A0 CE3C 3D28 A038 E49D 7365 B134 80A6
- vrijwilliger https://nl.libreoffice.org
- volunteer https://www.libreoffice.org
- Member Board The Document Foundation
- marketing @CollaboraOffice
- ceo www.nouenoff.nl
- initiator www.mijncloudoffice.nl
--
Unsubscribe instructions: E-mail to [email protected]
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/nl/users/
Privacy Policy: https://www.documentfoundation.org/privacy
