[ Je me résoud à vous solliciter car après beaucoup de recherches, j'ai
toujours pas trouvé.. :-/ ]
Mon problème est le suivant : J'ai un document type qui peut varier selon 3
cas de figures. Les paragraphes qui varient sont aujourd'hui clairement
délimités pas des balises [cas n°1] ... [fin cas n°1].
Je voudrais faire une macro avec une inputbox ou on entre le cas de figure
(1, 2 ou 3) et selon le la cas, li efface le texte correspondant aux 2
autres cas.
J'ai essayé plein de choses, mais je n'arrive toujours pas à selectionner un
texte entre 2 balises...
Si l'un d'entre vous sait comment le faire, je peux me débrouiller ensuite
pour "l'exploiter" avec les différents cas.
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
Geo
Bonjour Loulou Fox
Bonjour à tous !
[ Je me résoud à vous solliciter car après beaucoup de recherches, j'ai toujours pas trouvé.. :-/ ]
Mon problème est le suivant : J'ai un document type qui peut varier selon 3 cas de figures. Les paragraphes qui varient sont aujourd'hui clairement délimités pas des balises [cas n°1] ... [fin cas n°1]. Je voudrais faire une macro avec une inputbox ou on entre le cas de figure (1, 2 ou 3) et selon le la cas, li efface le texte correspondant aux 2 autres cas. J'ai essayé plein de choses, mais je n'arrive toujours pas à selectionner un texte entre 2 balises...
Ca doit être quelque chose comme Edition remplacer [cas n°1] * [fin cas n°1] par [cas n°1][fin cas n°1] ou rien si tu veux aussi effacer les balises, et il faut cocher caractères génériques.
--
A+
Bonjour Loulou Fox
Bonjour à tous !
[ Je me résoud à vous solliciter car après beaucoup de recherches,
j'ai toujours pas trouvé.. :-/ ]
Mon problème est le suivant : J'ai un document type qui peut varier
selon 3 cas de figures. Les paragraphes qui varient sont aujourd'hui
clairement délimités pas des balises [cas n°1] ... [fin cas n°1].
Je voudrais faire une macro avec une inputbox ou on entre le cas de
figure (1, 2 ou 3) et selon le la cas, li efface le texte
correspondant aux 2 autres cas.
J'ai essayé plein de choses, mais je n'arrive toujours pas à
selectionner un texte entre 2 balises...
Ca doit être quelque chose comme Edition remplacer
[cas n°1] * [fin cas n°1]
par
[cas n°1][fin cas n°1]
ou rien si tu veux aussi effacer les balises,
et il faut cocher caractères génériques.
[ Je me résoud à vous solliciter car après beaucoup de recherches, j'ai toujours pas trouvé.. :-/ ]
Mon problème est le suivant : J'ai un document type qui peut varier selon 3 cas de figures. Les paragraphes qui varient sont aujourd'hui clairement délimités pas des balises [cas n°1] ... [fin cas n°1]. Je voudrais faire une macro avec une inputbox ou on entre le cas de figure (1, 2 ou 3) et selon le la cas, li efface le texte correspondant aux 2 autres cas. J'ai essayé plein de choses, mais je n'arrive toujours pas à selectionner un texte entre 2 balises...
Ca doit être quelque chose comme Edition remplacer [cas n°1] * [fin cas n°1] par [cas n°1][fin cas n°1] ou rien si tu veux aussi effacer les balises, et il faut cocher caractères génériques.
--
A+
Geo
Ca doit être quelque chose comme Edition remplacer [cas n°1] * [fin cas n°1]
ben non ça marchera pas, car les [ ] ont une signification particulière avec l'option caractères génériques. sauf erreur de ma part il faut un pour dire que le [ n'est pas un caractère générique donc ça donnerait (pas testé)
With Selection.Find .Text = "[cas n°1] * [fin cas n°1]" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Trouvé = Selection.Find.Execute If Trouvé Then With Selection.Find .Text = "[cas n°2] * [fin cas n°2]"
etc endif
--
A+
Ca doit être quelque chose comme Edition remplacer
[cas n°1] * [fin cas n°1]
ben non ça marchera pas, car les [ ] ont une signification
particulière avec l'option caractères génériques.
sauf erreur de ma part il faut un pour dire que le [ n'est pas un
caractère générique donc ça donnerait (pas testé)
With Selection.Find
.Text = "[cas n°1] * [fin cas n°1]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Trouvé = Selection.Find.Execute
If Trouvé Then
With Selection.Find
.Text = "[cas n°2] * [fin cas n°2]"
Ca doit être quelque chose comme Edition remplacer [cas n°1] * [fin cas n°1]
ben non ça marchera pas, car les [ ] ont une signification particulière avec l'option caractères génériques. sauf erreur de ma part il faut un pour dire que le [ n'est pas un caractère générique donc ça donnerait (pas testé)
With Selection.Find .Text = "[cas n°1] * [fin cas n°1]" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Trouvé = Selection.Find.Execute If Trouvé Then With Selection.Find .Text = "[cas n°2] * [fin cas n°2]"
