IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Supprimer les paragraphes d'un certain style avec export PDF dans un macro [LibreOffice][Texte]


Sujet :

OpenOffice & LibreOffice

  1. #1
    Candidat au Club
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2017
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Supprimer les paragraphes d'un certain style avec export PDF dans un macro
    Bonjour,

    Je débute complètement en macro. Je souhaite faire un export pdf d'un document writer en supprimant les paragraphes du style perso "invisible".
    J'arrive à réduire le paragraphe à une ligne vide, sans pour autant le supprimer. Auriez-vous une idée ?
    Existe-t-il un manuel de référence pour le libreoffice basic, avec toute les propriétés et méthodes décrite ? Je n'ai pas réussi à trouver ça sur le web.

    Merci.

    Voici ce que j'ai fait :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    option explicit
     
    Sub boucleSurParaGraphes 
    Dim leTexte As Object , TextElement As Object 
    Dim ParaToDelete as string
    ParaToDelete = "invisible"
     
    leTexte = ThisComponent.Text.createEnumeration 
     
    While leTexte.hasMoreElements 
      TextElement = leTexte.nextElement
     
      if (TextElement.getPropertyValue("ParaStyleName")) = ParaToDelete then
        Print TextElement.String
            'TextElement.RemoveTextContent
            TextElement.String = ""
     
      end if
     
    Wend 
    End Sub

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    Septembre 2013
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 38
    Points : 48
    Points
    48
    Par défaut
    Bonjour,

    quels sont les attributs du style "invisible" ?

    J'ai fait un essai en appliquant l'attribut 'masqué' à un style. Les paragraphes masqués ne sont pas inclus dans le PDF.

  3. #3
    Candidat au Club
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2017
    Messages : 2
    Points : 2
    Points
    2
    Par défaut
    Merci beaucoup c'est parfait ! J'étais passé à côté de cet attribut. C'est d'ailleurs étrange qu'il soit dans l'onglet style de caractère...
    En tout cas c'est génial, plus besoin de macro !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Trouver et Supprimer les doublons, avec certaines conditions
    Par SALOUAJI dans le forum Excel
    Réponses: 3
    Dernier message: 22/02/2017, 17h07
  2. Supprimer les premières lignes d'un fichier avec sed
    Par Tchupacabra dans le forum Shell et commandes GNU
    Réponses: 2
    Dernier message: 03/10/2013, 17h38
  3. [Débutant] supprimer les doublons d'une base access avec datagridview
    Par ziedyah dans le forum ADO.NET
    Réponses: 3
    Dernier message: 19/03/2013, 02h14
  4. VBA Word - Supprimer les styles inutilisés
    Par wouebmaster dans le forum VBA Word
    Réponses: 3
    Dernier message: 05/01/2012, 03h02
  5. Supprimer les caracteres du style \xc2 d'une chaine.
    Par InDaWinD dans le forum Général Python
    Réponses: 2
    Dernier message: 27/04/2006, 13h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo