Enregistrer une recherche avancée pour l'automatiser

Résolu
Steevflores Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   -  
Steevflores Messages postés 12 Date d'inscription   Statut Membre Dernière intervention   - 27 janv. 2021 à 17:16
Bonjour,

Voilà, j'aurais une petite question assez spécifique, mais je n'ai pas trouvé de solution technique...

Je suis maquettiste et je travaille avec beaucoup de documents Word différents pour mes clients. Je me suis défini mes propres styles de paragraphe et de caractères pour faciliter l'importation dans InDesign (et la correspondance des styles).

Seulement pour préparer mes divers fichiers word, je fais plusieurs "rechercher - remplacer" pour trouver par exemple tout le texte en italique (et sans style de caractère) et lui appliquer mon style de caractère "Style Italique".

A chaque fois que je reprends un nouveau fichier word, je suis obligé de remettre tous mes critères de recherche et remplacement et c'est parfois un peu laborieux quand j'ai beaucoup de fichiers.

Ma question est la suivante : est-il possible d'automatiser la tâche, en enregistrant la requête de "rechercher et remplacer" avec les arguments que j'ai définis.

Je ne sais pas si c'est suffisamment clair, mais bon...

Auriez-vous une solution ?

Merci par avance !

6 réponses

m@rina Messages postés 23055 Date d'inscription   Statut Contributeur Dernière intervention   11 440
 
Bonjour,

Voici une macro qui fait le travail pour tout ce qui est gras et tout ce qui est ital.

Sub gras_ital()
Dim gras As String, ital As String
'nom des styles
gras = "ST - Gras"
ital = "ST - Ital"

With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
End With
With ActiveDocument.Content.Find
.Font.Bold = True
.Replacement.Style = ActiveDocument.Styles(gras)
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
With ActiveDocument.Content.Find
.Font.Italic = True
.Replacement.Style = ActiveDocument.Styles(ital)
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End Sub


m@rina

1
Steevflores Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup !
Je vais tester ça et je vous tiens au courant
0
Steevflores Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Vous m'avez sauvé la vie, ça marche comme je le voulais !
Merci encore pour votre aide !
0
Raymond PENTIER Messages postés 58965 Date d'inscription   Statut Contributeur Dernière intervention   17 330
 
Bonjour.

Il existe VBA pour Word, qui permet d'écrire des macros.
Il faudrait que tu t'y mettes (moi, je n'y connais rien ; je sais juste que ça existe !) ...
0
Steevflores Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Alors j’avais pensé effectivement aux macros, mais je ne savais pas si c’était possible de faire ce genre d’opérations. Je n’y connais rien non plus, je n’en ai jamais faites...
0
Raymond PENTIER Messages postés 58965 Date d'inscription   Statut Contributeur Dernière intervention   17 330
 
Alors on va appeler m@rina au secours ...
0
m@rina Messages postés 23055 Date d'inscription   Statut Contributeur Dernière intervention   11 440
 
Bonjour,

Oui, normalement c'est tout à fait possible. Cela étant, il faudrait que j'ai des renseignements beaucoup plus précis concernant les recherches et remplacements.

m@rina
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Steevflores Messages postés 12 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour m@rina,

Alors voilà par exemple le genre de recherche et remplacement que j'aurais besoin de faire :

https://www.zupimages.net/up/21/03/jldj.jpg

En gros : je recherche tout le texte qui a l'attribut de police "gras" mais qui a le style de caractère "police par défaut", et je lui applique le style de caractère "SF - Gras"

Comme ça, à l'importation dans InDesign, je fais une correspondance de style : tout ce qui a le style "SF - Gras", je lui applique mon style de caractère "gras" propre au document InDesign.

Merci de prendre le temps de me répondre ^^
0
Raymond PENTIER Messages postés 58965 Date d'inscription   Statut Contributeur Dernière intervention   17 330
 
Merci m@rina !
0
m@rina Messages postés 23055 Date d'inscription   Statut Contributeur Dernière intervention   11 440
 
Coucou Raymond !
Toujours prête pour répondre à tes demandes ! ;))
m@rina
0