Archives mensuelles : décembre 2012

OOoLight

Qu’est que c’est que OOoLight !

C’est une version light de la suite bureautique AOO. Le site se trouve ici.

Mettre une image en arrière plan dans Writer

Sous Writer, si vous souhaitez mettre une image en arrière plan.

Voici le mode opératoire :

  1. Iil suffit d’aller dans le menu « Format/Page ».
  2. Une fois dans le « Style de page », il faut sélectionner l’onglet « Arrière-plan ».
  3. Dans ce dernier, dans la liste déroulante du « Comme », il faut sélectionner « Image ».
  4. Cliquer sur « Parcourir » pour aller sélectionner l’image souhaitée.
  5. Dans « Type », vous pouvez choisir l’emplacement de l’image.

Voilà, votre image est maintenant en image de fond.

Supprimer des lignes et colonnes vides dans un fichier Calc

Salut,

Voici le code permettant de supprimer les lignes (test sur la colonne A) et les colonnes (test sur la ligne 1) vides :

sub Vincent ()

    dim document   as object
    dim dispatcher as object
    dim feuile as object
    dim args1(0) as new com.sun.star.beans.PropertyValue
   
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    Feuille =  ThisComponent.getCurrentController().getActiveSheet()
   
   
    dispatcher.executeDispatch(document, ".uno:GoToEndOfData", "", 0, args1())
    CelluleActive = ThisComponent.getCurrentSelection
    NbCol = CelluleActive.CellAddress.Column + 1
    NbLig =  CelluleActive.CellAddress.Row + 1
   
    'Teste les lignes vides
    for i = NbLig to 0 step -1
        Cell = Feuille.getCellByPosition(0, i)
        ThisComponent.currentController.select(Cell)
        select case Cell.type
              Case com.sun.star.table.CellContentType.EMPTY
                ThisComponent.currentController.select(Cell)
                dispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array())
        end select
    next
    'Teste les colonnes vides
    for i = NbCol to 0 step -1
        Cell = Feuille.getCellByPosition(i, 0)
        ThisComponent.currentController.select(Cell)
        select case Cell.type
              Case com.sun.star.table.CellContentType.EMPTY
                ThisComponent.currentController.select(Cell)
                dispatcher.executeDispatch(document, ".uno:DeleteColumns", "", 0, Array())
        end select
    next


end sub