× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Word - Macro - RechercheSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Demerzel
  Posté le 11/02/2013 @ 16:59 
Aller en bas de la page 
Astucien

Bonjour,

J'ai un problème que je n'arrive pas à résoudre.

Dans un fichier Word, si je fais une Recherche et remplacement manuellement d'un style par autre chose, ça marche.

Mais lorsque je veux le faire par macro, il ne trouve rien, pourquoi?

Voici ma Macro :

Où se situe le problème ?

Lorsque je regarde la valeur de Slection.Find.Execute, il me retourne "Faux"

Sub Niv_Titre()
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("TitreInLivre")
Selection.Find.ParagraphFormat.Borders.Shadow = False
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = _
"<TITLE>^&</TITLE>"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

PS: cette macro a été faite via l'enregistrement dans Word.

Publicité
fonio
 Posté le 25/02/2013 à 22:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

{#} Est-ce que Selection est correctement renseigné avant le With ?

(en execution débogage pas à pas)

Demerzel
 Posté le 26/02/2013 à 09:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Justement non, il y avait un problème avec le Selection.

Je me suis basé sur un enregistrement automatique d'une Macro (en faisait un Search and Replace d'un style).

Mais il définit le Selection.Find.Style avant le With, ce qui pose problème.

Il faut définir le Style dans le With et ça passe sans problème.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
-30%-30% sur une sélection de rasoirs et tondeuses Braun
Valable jusqu'au 22 Octobre

Amazon offre jusqu'à -30% de remise immédiate sur une sélection de produits Braun pour homme : rasoirs, tondeuses, ...


> Voir l'offre
58,99 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Crucial Ballistix 3000 MHz à 58,99 €
Valable jusqu'au 23 Octobre

Amazon fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 Crucial Ballistix 3000 MT/s CL15 qui passe à 58,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 82 €.


> Voir l'offre
8 €Carte Cdiscount à Volonté 1 an (CDAV) à 8 €
Valable jusqu'au 21 Octobre

Cdiscount propose actuellement sa carte Cdiscount à Volonté à 8 € seulement au lieu de 29 €. Avec cette carte, vous bénéficiez pendant 1 an de la livraison gratuite en point relais dès 10 € d'achats et à domicile dès 25 € d'achats. Vous avez également accès à plus de 200 titres de presse en ligne en illimité. Vous bénéficiez également de temps en temps des offres et des codes promotionnels exclusifs. Notez que vous pouvez partager gratuitement vos privilèges avec 2 de vos proches et vous gagnerez 5 € en bon d'achat lorsque ces 2 personnes commanderont.


> Voir l'offre

Sujets relatifs
macro afficher masquer lignes tableau dans word 2010
Macro pour word 2013
Création d'une macro dans Word
[Macro Word]Erreur 9105
recherche à remettre barre d'outil. chez word
Recherche un spécialiste Word mise en page livre
Macro WORD en XP -------> Macro WORD off 2010
Macro sous word 2010
Macro Impression Word 2007
Créer une Macro dans Word 2010
Plus de sujets relatifs à Word - Macro - Recherche
 > Tous les forums > Forum Bureautique