Bonjour à tous,
Sous Word 2003, avec une macro AutoNew j'exécute le code suivant
pour remplacer un saut de ligne par une tabulation.
Mais une boite de dialogue apparaît me proposant de continuer la recherche
depuis le début.
Je ne souhaite pas étendre la recherche ni obtenir cette boite de dialogue.
Que dois-je faire ?
Merci par avance pour votre aide.
Paul
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
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
Bonjour,
Remplace : .Wrap = wdFindAsk par : .Wrap = wdFindContinue AB
"Paul Florent" a écrit dans le message de news: 4333fbb6$0$12994$
Bonjour à tous, Sous Word 2003, avec une macro AutoNew j'exécute le code suivant pour remplacer un saut de ligne par une tabulation. Mais une boite de dialogue apparaît me proposant de continuer la recherche depuis le début. Je ne souhaite pas étendre la recherche ni obtenir cette boite de dialogue. Que dois-je faire ? Merci par avance pour votre aide. Paul
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^l" .Replacement.Text = "^t" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With
Bonjour,
Remplace :
.Wrap = wdFindAsk
par :
.Wrap = wdFindContinue
AB
"Paul Florent" <456@123.fr> a écrit dans le message de news:
4333fbb6$0$12994$7a628cd7@news.club-internet.fr...
Bonjour à tous,
Sous Word 2003, avec une macro AutoNew j'exécute le code suivant
pour remplacer un saut de ligne par une tabulation.
Mais une boite de dialogue apparaît me proposant de continuer la recherche
depuis le début.
Je ne souhaite pas étendre la recherche ni obtenir cette boite de
dialogue.
Que dois-je faire ?
Merci par avance pour votre aide.
Paul
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = "^t"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Remplace : .Wrap = wdFindAsk par : .Wrap = wdFindContinue AB
"Paul Florent" a écrit dans le message de news: 4333fbb6$0$12994$
Bonjour à tous, Sous Word 2003, avec une macro AutoNew j'exécute le code suivant pour remplacer un saut de ligne par une tabulation. Mais une boite de dialogue apparaît me proposant de continuer la recherche depuis le début. Je ne souhaite pas étendre la recherche ni obtenir cette boite de dialogue. Que dois-je faire ? Merci par avance pour votre aide. Paul
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^l" .Replacement.Text = "^t" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With
Geo
Bonjour Paul Florent
Bonjour à tous, Sous Word 2003, avec une macro AutoNew j'exécute le code suivant pour remplacer un saut de ligne par une tabulation.
Quand même je suis curieux de savoir: AutoNew se déclenche sur un nouveau document, or un nouveau document ne contient habituellement rien. Comment trouver quelque chose à remplacer ?
Bonjour Paul Florent
Bonjour à tous,
Sous Word 2003, avec une macro AutoNew j'exécute le code suivant
pour remplacer un saut de ligne par une tabulation.
Quand même je suis curieux de savoir:
AutoNew se déclenche sur un nouveau document, or un nouveau document ne
contient habituellement rien.
Comment trouver quelque chose à remplacer ?
Bonjour à tous, Sous Word 2003, avec une macro AutoNew j'exécute le code suivant pour remplacer un saut de ligne par une tabulation.
Quand même je suis curieux de savoir: AutoNew se déclenche sur un nouveau document, or un nouveau document ne contient habituellement rien. Comment trouver quelque chose à remplacer ?
Anacoluthe
Hello Geo !
'Geo' nous a écrit ...
Quand même je suis curieux de savoir: AutoNew se déclenche sur un nouveau document, or un nouveau document ne contient habituellement rien. Comment trouver quelque chose à remplacer ?
... et même si le modèle contient déjà du texte pourquoi commencer par un remplacement alors qu'il suffit de faire le modèle comme il convient ?
J'ai les mêmes insondables perplexités :-)
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Hello Geo !
'Geo' nous a écrit ...
Quand même je suis curieux de savoir:
AutoNew se déclenche sur un nouveau document, or un nouveau document ne
contient habituellement rien.
Comment trouver quelque chose à remplacer ?
... et même si le modèle contient déjà du texte
pourquoi commencer par un remplacement alors qu'il suffit
de faire le modèle comme il convient ?
J'ai les mêmes insondables perplexités :-)
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
Quand même je suis curieux de savoir: AutoNew se déclenche sur un nouveau document, or un nouveau document ne contient habituellement rien. Comment trouver quelque chose à remplacer ?
... et même si le modèle contient déjà du texte pourquoi commencer par un remplacement alors qu'il suffit de faire le modèle comme il convient ?
J'ai les mêmes insondables perplexités :-)
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
