Re: [nl-users] ongebruikte opmaakprofielen

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 users+unsubscribe@nl.libreoffice.org
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/nl/users/
Privacy Policy: https://www.documentfoundation.org/privacy