Hi Olivier,
The following macro will iterate over all paragraphs and remove all of the
items that contain empty strings (both in numbered and bulleted lists).
Sub RemoveEmptyItems
Dim oEnum, oPar
oEnum = ThisComponent.Text.CreateEnumeration()
Do While oEnum.HasMoreElements()
oPar = oEnum.NextElement()
nsName = oPar.NumberingStyleName
If nsName <> "" Then
parText = oPar.GetString()
If parText = "" Then
'This is reached if the list has an entry that is empty
ThisComponent.Text.RemoveTextContent(oPar)
End If
End If
Loop
End Sub
On Wed, Jul 14, 2021 at 12:31 PM Olivier Hallot <
olivier.hal...@libreoffice.org> wrote:
> Hi...
>
> The situation is illustrated in the document below
>
> https://nextcloud.documentfoundation.org/s/8YceNLp9Jy43by3
>
> Olivier
>
>
> Em 14/07/2021 12:19, Olivier Hallot escreveu:
> > Hi
> >
> > I am looking to some clue/Basic code to detect and correct paragraphs
> > with bullet lists which have an extra, overlaying bullet applied.
> >
> > In all guides, we use Paragraph styles List 1 and List 2 which are
> > connected to list styles Bullet * and Bullet - respectively.
> >
> > However in many lists in the Guides there are often another bullet (* or
> > -) over the List 1 or 2 paragraph bullet. There no visual indication
> > when editing the chapters, and no problem in printing or exporting to
> > PDF. But when changing some para style attribute, the extra bullet pops.
> >
> > The current trick I use is to select the set of bullet list paragraphs,
> > apply temporary the BodyText style (then the extra bullet shows), remove
> > the extra bullet and re-apply the para list style. That must be done in
> > every list in the text which is rather exhausting.
> >
> > if no extra bullet pops, then I press Ctrl+Z to undo the temporary
> change.
> >
> > Has anybody a couple of Basic lines to detect and remove the extra
> > bullet? At least I'd like to know how to catch and delete this extra
> > bullet.
> >
> > Thanks in advance.
> >
> > Kind regards
> >
>
> --
> Olivier Hallot
> LibreOffice Documentation Coordinator
> Rio de Janeiro - Brasil - Local Time: UTC-03:00
> LibreOffice – free and open source office suite:
> https://www.libreoffice.org
> Respects your privacy, and gives you back control over your data
> http://tdf.io/joinus
>
> --
> To unsubscribe e-mail to: documentation+unsubscr...@global.libreoffice.org
> Problems?
> https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
> Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
> List archive: https://listarchives.libreoffice.org/global/documentation/
> Privacy Policy: https://www.documentfoundation.org/privacy
>
--
To unsubscribe e-mail to: documentation+unsubscr...@global.libreoffice.org
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/documentation/
Privacy Policy: https://www.documentfoundation.org/privacy
