Supprimer des lignes (pas dans un tableau) Fermé

Question

Salut les forumiens :D
Depuis le temps que j'utilise OpenOffice, je devrais le connaître, me diriez-vous... Hé bah non ! Je me sers tout le temps des lignes dues à une succession de symboles "traits d'union" ou "tiret de bas" (------) ou (______). Cela donne un trait après appui sur la touche /Enter/ pour les anglophones. 
Mais, je me pose une question : COMMENT ENLEVER CES *(terme d'injure synonyme de moyen de gain d'argent par certains types de personnes)* DE LIGNES ?
Voilà ! C'est tout pour moi, merci d'avance et à bientôt !
Ciao.

grous · Answer

Bonjour,
Voir cette démonstration :
http://www.youtube.com/playlist?list=PL0pdzjvYW9RFl1ZRu8MkE3QxWQSt7Xktk 
Vous pouvez aussi essayer :
Sub WriterSupprimeLignesVides
Rem  Sur sélection préalable de la zone concernée
Document   = ThisComponent.CurrentController.Frame
Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim Arg(6) as new com.sun.star.beans.PropertyValue
Arg(0).Name = "SearchItem.SearchFlags"
Arg(0).Value = 71680
Arg(1).Name = "SearchItem.SearchString"
Arg(1).Value = "^$"
Arg(2).Name = "SearchItem.ReplaceString"
Arg(2).Value = ""
Arg(3).Name = "SearchItem.Locale"
Arg(3).Value = 255
Arg(4).Name = "SearchItem.TransliterateFlags"
Arg(4).Value = 1280
Arg(5).Name = "SearchItem.Command"
Arg(5).Value = 3
Arg(6).Name = "Quiet"
Arg(6).Value = true
Dispatcher.executeDispatch(Document, ".uno:ExecuteSearch", "", 0, Arg())
End Sub

Sub CalcSupprimeLignesVides
Rem  Sur sélection préalable de la zone concernée
Document = ThisComponent
Sheet = Document.currentController.activeSheet
Range = Document.CurrentSelection.getRangeAddress
For Row = Range.EndRow to Range.StartRow step -1
i = 0
For Column = Range.EndColumn to Range.StartColumn step -1
k = Range.EndColumn +1 - Range.StartColumn 
Cell = Sheet.getCellByPosition(Column, row) 
If Cell.Type = com.sun.star.table.CellContentType.EMPTY then
i = i+1
Else
i =i 
End if
Next Column
If i = k then
Sheet.removeRange(Cell.RangeAddress, com.sun.star.sheet.CellDeleteMode.ROWS)
End if
Next Row
End sub

Supprimer des lignes (pas dans un tableau)

1 réponse

Discussions similaires