Apache OpenOffice Community Forum

Code: Select all

Sub DeleteDuplicateParagraphs
oDoc = ThisComponent
enum = oDoc.Text.createEnumeration
While enum.hasMoreElements
thisPara = enum.nextElement
s = thisPara.getString
c = c + 1
If Len(s) > 0 then 
 Check(s,c,oDoc)
EndIf
Wend
End Sub

Sub Check(s,c,oDoc)
enum1 = oDoc.Text.createEnumeration
While enum1.hasMoreElements and c >= cc 
 enum1.nextElement
 cc = cc + 1
Wend
While enum1.hasMoreElements
 nextPara = enum1.nextElement
 ss = nextPara.getString
 If ss = s then 
  ss = ""
  nextPara.setString(ss)
 EndIf 
Wend 
End Sub

Code: Select all

context = XSCRIPTCONTEXT

def iterable( enumerable ):
    enum = enumerable.createEnumeration()
    while enum.hasMoreElements():
        yield enum.nextElement()

def remove_duplicate_paragraphs():
    doc = context.getDocument()
    text = doc.getText()
    
    paras = []
    
    for paragraph in iterable( text ):
        if paragraph.getString() in paras:
            paragraph.setString("")
        else:
            paras.append( paragraph.getString() )