Rechercher/rempacer cause un probleme [VBA]

FORUM Tom's Hardware » Programmation » Autre » [VBA]Rechercher/rempacer cause un probleme

[VBA]Rechercher/rempacer cause un probleme

Il y a 422 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA]Rechercher/rempacer cause un probleme

justedieu

Plus d'informations

15-06-2006 à 16:00:07

Bonjour a tous et a toute,

je reviens vers vous car j'ai encore un problemen sur une macro. j'ai un document word qui contient

soit
===================================================================
Headline * (maximum length: 100 chars):

soit
Headline * (maximum length: 100 chars):
===================================================================

ce que je veux faire avoir toujours la meme forme(a savoir le deuxieme)

voila le code que j'ai fais

Code :

Public Sub SupprimeParagraphe()
Selection.Find.ClearFormatting
ActiveDocument.Select
Selection.Find.ClearFormatting
With Selection.Find
.Text = "===================================================================^pHeadline * (maximum length: 100 chars):"
.Replacement.Text = "Headline * (maximum length: 100 chars)^p==================================================================="
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

1er pb: [....]^pHeadline * (maximum length: 100 chars): me fait surligner tout mon doc tandis que [...]^pHeadline * marche

2eme pb:il me trouve bien le texte le surligne mais le change pas

voila a votre bon coeur monsieur dame

Message édité par justedieu le 15-06-2006 à 16:01:00