Ok, I was answered privately, so will add it here in a case someone will
search
1.
https://ask.libreoffice.org/t/how-to-convert-numbered-bulleted-lists-to-plain-text-in-writer/13197/3
So, long story short you need to create the following *Document* macro
Sub ConvertBulletsToDashes()
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub
And voilà !
Le 24/02/2025 à 10:47, Ihor Olkhovskyi a écrit :
Hello,
I'm trying to solve the following task.
I have a document with mix of "usual" paragraphs and bulleted list.
What I want to make is an automatic change from bulleted list to
paragraph with a prefix.
Like
Paragraph 1
* list eement 1
* list element 2
Paragraph 2
->
Pragraph 1 (unchanged)
* list element 1 (list element 1 -> paragraph with * prefix)
* list element 2 (list element 2 -> paragraph with * prefix)
Paragraph 2 (unchanged)
Seems to be I need to write a macro for it, but all ChatGPT gave me
are not working )
Like this one
Sub ConvertBulletsToDashes()
Dim oDoc As Object
Dim oParagraphs As Object
Dim oPara As Object
Dim oText As Object
Dim i As Integer
oDoc = ThisComponent
oParagraphs = oDoc.Text.createEnumeration()
While oParagraphs.hasMoreElements()
oPara = oParagraphs.nextElement()
' Check if the paragraph is a list item
If oPara.supportsService("com.sun.star.text.Paragraph") Then
If oPara.NumberingIsNumber Then
' Get the text and replace the bullet with a dash
oText = oPara.String
oPara.String = "- " & Trim(oText)
oPara.NumberingIsNumber = False ' Remove list formatting
End If
End If
Wend
End Sub
Any hints are appreciated, thanks!
--
Best regards,
Ihor (Igor)
--
To unsubscribe e-mail to: users+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/users/
Privacy Policy: https://www.documentfoundation.org/privacy
