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 :

Macro d'ajout de paragraphes vides erronée [LibreOffice][Texte]


Sujet :

OpenOffice & LibreOffice

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    juin 2004
    Messages
    319
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2004
    Messages : 319
    Points : 84
    Points
    84
    Par défaut Macro d'ajout de paragraphes vides erronée
    Bonjour.

    J'ai créé une macro qui ajoute un paragraphe vide entre chaque paragraphe (utile pour des textes publiés sur un forum, par exemple) mais j'ai un problème : le dernier caractère de chaque paragraphe est supprimé.

    Voici la macro :

    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
    Sub ParasVides_Ajout
     
    	Dim Document As Object
    	Dim SearchReplace As Object
    	Dim OldString As String , NewString As String
     
    		OldString = ".$"
    		NewString = chr(10)
     
    		Document = ThisComponent
    		SearchReplace = Document.createReplaceDescriptor
    		SearchReplace.SearchRegularExpression = true
     
    		SearchReplace.SearchString = OldString
    		SearchReplace.ReplaceString = NewString
     
    		Document.replaceAll(SearchReplace)
     
    End Sub
    Merci.

  2. #2
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    9 406
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 9 406
    Points : 58 579
    Points
    58 579
    Billets dans le blog
    11
    Par défaut
    Salut,

    Toujours à fond, voici la solution :
    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
    Sub ParasVides_Ajout
     
    	Dim Document As Object
    	Dim SearchReplace As Object
    	Dim OldString As String , NewString As String
     
    		OldString = ".$"
    		NewString = ".\n"
     
    		Document = ThisComponent
    		SearchReplace = Document.createReplaceDescriptor
    		SearchReplace.SearchRegularExpression = true
     
    		SearchReplace.SearchString = OldString
    		SearchReplace.ReplaceString = NewString
     
    		Document.replaceAll(SearchReplace)
     
    End Sub
    @+.
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    juin 2004
    Messages
    319
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2004
    Messages : 319
    Points : 84
    Points
    84
    Par défaut
    Non, pas bon, puisque cette modification suppose que tous les paragraphes se terminent par un point. Or, ce n'est pas toujours le cas : point d'exclamation, point d'interrogation ou points de suspension. Sans compter les titres qui ne sont pas ponctués...

    Quand j'étais sous Word j'utilisais cette macro qui faisait le boulot parfaitement mais je n'arrive pas à l'adapter :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub ParagraphesVides_Ajout()
    Dim para As Paragraph
     
        For Each para In ActiveDocument.Paragraphs
        para.Range.InsertBefore Chr(13)
        Next para
     
    End Sub

  4. #4
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    9 406
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 9 406
    Points : 58 579
    Points
    58 579
    Billets dans le blog
    11
    Par défaut
    Donc :
    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
    Sub ParasVides_Ajout
     
    	Dim Document As Object
    	Dim SearchReplace As Object
    	Dim OldString As String , NewString As String
     
    		OldString = "$"
    		NewString = "\n\n"
     
    		Document = ThisComponent
    		SearchReplace = Document.createReplaceDescriptor
    		SearchReplace.SearchRegularExpression = true
     
    		SearchReplace.SearchString = OldString
    		SearchReplace.ReplaceString = NewString
     
    		Document.replaceAll(SearchReplace)
     
    End Sub
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  5. #5
    Membre régulier
    Profil pro
    Inscrit en
    juin 2004
    Messages
    319
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2004
    Messages : 319
    Points : 84
    Points
    84
    Par défaut
    C'est ok, merci...

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

Discussions similaires

  1. Macro pour ajouter les bordures au fur et a mesure
    Par Raiga dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 15/06/2007, 09h21
  2. Macro pour ajouter un nouvel élément dans un tableau
    Par dudu134 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/02/2007, 17h31
  3. [C#]Comment ajouter une ligne vide a un datalist ?
    Par rfaouzi dans le forum ASP.NET
    Réponses: 4
    Dernier message: 08/11/2006, 11h34
  4. [PostGreSQL] Requête d'insertion qui ajoute des champs vides
    Par civodultrebor37 dans le forum PHP & Base de données
    Réponses: 6
    Dernier message: 30/10/2006, 15h16
  5. Richtextbox qui ajoute des lignes vides
    Par Seto dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 19/09/2006, 15h10

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