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.
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