Sélection multi-paragraphe...

"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.fc507d83a375649f.41568@sans.pub...

Oui je me suis gourré, mais je n'arrive pas à insérer ceci dans mon code
(ou plutôt ca ne fait apparemment rien):

Ca s'applique à la sélection en cours quand on passe sur ce code,
qu'est-ce que vous voulez faire exactement ?
Je veux effectivement ne pas vérifier l'orthographe sur la sélection en

cours (c'est-à-dire celle que j'ai faite en cherchant les expressions entre
parenthèses). Donc j'ai ce code:

Sub Ortho()
'Débraye la correction orthographique pour les mots entre guillemets
Dim T As String
Selection.HomeKey Unit:=wdStory
Application.ScreenUpdating = False
'Si chaque guillemet ouvrant << est suivi d'une espace insécable et chaque
'fermant >> précédé d'un espace insécable :
T = "(" & Chr(171) & Chr(160) & "*" & Chr(160) & Chr(187) & ")"
Debug.Print T
With Selection.Find
.MatchWildcards = True
.Text = T
.Replacement.Text = "1"
.Forward = True
Selection.Range.NoProofing = True
.Execute Replace:=wdReplaceAll
End With

End Sub

mais il ne faut rien...

Philippe

Je veux effectivement ne pas vérifier l'orthographe sur la sélection en cours
(c'est-à-dire celle que j'ai faite en cherchant les expressions entre parenthèses).

Je crains qu'il ne faille passer par une boucle manuelle pour
désactiver la vérification avant de faire le remplacement.
Qqch comme :

Sub SuppOrtho()
Dim T As String
Dim Trouvé As Boolean
Selection.HomeKey Unit:=wdStory
Application.ScreenUpdating = False
'Si chaque guillemet ouvrant << est suivi d'une espace insécable et
chaque
'fermant >> précédé d'un espace insécable :
T = "(" & Chr(171) & Chr(160) & "*" & Chr(160) & Chr(187) & ")"
Do
With Selection.Find
.MatchWildcards = True
.Text = T
.Forward = True
.Wrap = wdFindContinue
Trouvé = .Execute(findtext:=T)
If Trouvé Then
Selection.Range.NoProofing = True
Else
Exit Do
End If
End With
Loop
End Sub

--
A+

En fait je n'ai pas besoin de faire un remplacement, seulement de changer la
propriété "Proofing". Cela change-t-il la donne ?

En fait je n'ai pas besoin de faire un remplacement, seulement de changer la propriété
"Proofing". Cela change-t-il la donne ?

Effectivement ça aurait plus simple de préciser dès le départ ce que
vous vouliez faire.
Le code que je vous ai donné supprime la vérification d'orthographe
pour les parties de texte répondant au critère de recherche.
Il est inutile de faire un remplacement.

--
A+

"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.0ab97d84f24b1674.41568@sans.pub...

En fait je n'ai pas besoin de faire un remplacement, seulement de changer
la propriété "Proofing". Cela change-t-il la donne ?

Effectivement ça aurait plus simple de préciser dès le départ ce que vous
vouliez faire.
Eh oui. Désolé...

Le code que je vous ai donné supprime la vérification d'orthographe pour
les parties de texte répondant au critère de recherche.
Il est inutile de faire un remplacement.
Merci bcp !