Code: Select all
oWord := ComObjActive("Word.Application")
oWord.selection.wholestory
loop oWord.ActiveDocument.Paragraphs.count
(strlen(oWord.selection.paragraphs.item(a_index).range.text) = 1) && lst .= a_index ","
if lst ?? ""
for x,y in strsplit(sort(trim(lst,","),"NRD,"),",")
oWord.selection.paragraphs.item(y).range.delete()