Rechercher/remplacer

Rechercher/remplacer - VB/VBA/VBS - Programmation

Marsh Posté le 30-11-2005 à 09:22:00    

Bonjour à tout le monde
 
Je cherche à faire une macro avec VBA avec un publipostage sur Word 97. Voici mon problème: dans ma source de données (mon tableau), j'ai des commentaires sans saut de ligne dans ma colonne. Ce que je souhaite, c'est que dans mon document principal par contre, il y ait un saut de ligne entre chaque commentaire. Par exemple, si le commentaire D'accord revient régulièrement,j'intègre le code suivant(dans mond code pour le publipostage):
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "D'accord"
        .Replacement.Text = "D'accord^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 
Là, il n'y a aucune difficulté.Seulement, j'ai des commentaires avec des dates, par exemple: "Du 1/01/05 au 31/01/05", ces dates étant très variables, c'est-à-dire que j'ai plusieurs dates. Ce que je veux c'est tout comme pour le commentaire "D'accord" avoir un saut de ligne: Du 1/01/05 au 31/01/05^p mais également Du 15/03/05 au 20/04/05^p, etc....sachant que sur Word 97,  ^? (tout caractère) et ^#(tout chiffre)ne sont pas des caractères spéciaux valide pour Remplacer par et que j'ai toute une série de dates différentes.
 
Merci d'avance, en espérant avoir été clair

Reply

Marsh Posté le 30-11-2005 à 09:22:00   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed