Bonjour,
J'aimerais savoir comment faire pour faire un rechercher-replacer dans
un seul de mes tableaux de mon document word ?
Comment le coder dans une macro ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AB
Bonsoir, Peut-être avec ça (l'exemple concerne le 2è tableau du document actif) : AB
Sub RemplaceDansTableau () ActiveDocument.Tables(2).Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "texte à remplacer" .Replacement.Text = "texte de remplacement" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
"Karine" a écrit dans le message de news:
Bonjour, J'aimerais savoir comment faire pour faire un rechercher-replacer dans un seul de mes tableaux de mon document word ? Comment le coder dans une macro ?
Je suis novice en vb, j'apprends !
Merci.
Bonsoir,
Peut-être avec ça (l'exemple concerne le 2è tableau du document actif) :
AB
Sub RemplaceDansTableau ()
ActiveDocument.Tables(2).Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "texte à remplacer"
.Replacement.Text = "texte de remplacement"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
"Karine" <karine77.curfs@laposte.net> a écrit dans le message de
news:c32d3862.0307150638.7e364ddf@posting.google.com...
Bonjour,
J'aimerais savoir comment faire pour faire un rechercher-replacer dans
un seul de mes tableaux de mon document word ?
Comment le coder dans une macro ?
Bonsoir, Peut-être avec ça (l'exemple concerne le 2è tableau du document actif) : AB
Sub RemplaceDansTableau () ActiveDocument.Tables(2).Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "texte à remplacer" .Replacement.Text = "texte de remplacement" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
"Karine" a écrit dans le message de news:
Bonjour, J'aimerais savoir comment faire pour faire un rechercher-replacer dans un seul de mes tableaux de mon document word ? Comment le coder dans une macro ?