Enregistrer une recherche avancée pour l'automatiser

Résolu/Fermé
Steevflores Messages postés 12 Date d'inscription samedi 23 janvier 2021 Statut Membre Dernière intervention 15 septembre 2021 - 23 janv. 2021 à 21:21
Steevflores Messages postés 12 Date d'inscription samedi 23 janvier 2021 Statut Membre Dernière intervention 15 septembre 2021 - 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 17539 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 mars 2023 11 056
24 janv. 2021 à 23:36
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 samedi 23 janvier 2021 Statut Membre Dernière intervention 15 septembre 2021
25 janv. 2021 à 12:51
Merci beaucoup !
Je vais tester ça et je vous tiens au courant
0
Steevflores Messages postés 12 Date d'inscription samedi 23 janvier 2021 Statut Membre Dernière intervention 15 septembre 2021
27 janv. 2021 à 17:16
Vous m'avez sauvé la vie, ça marche comme je le voulais !
Merci encore pour votre aide !
0
Raymond PENTIER Messages postés 57144 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 mars 2023 17 162
23 janv. 2021 à 23:14
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 samedi 23 janvier 2021 Statut Membre Dernière intervention 15 septembre 2021
23 janv. 2021 à 23:16
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 57144 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 mars 2023 17 162
23 janv. 2021 à 23:21
Alors on va appeler m@rina au secours ...
0
m@rina Messages postés 17539 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 mars 2023 11 056
24 janv. 2021 à 02:57
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 samedi 23 janvier 2021 Statut Membre Dernière intervention 15 septembre 2021
24 janv. 2021 à 12:15
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 57144 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 mars 2023 17 162
24 janv. 2021 à 23:42
Merci m@rina !
0
m@rina Messages postés 17539 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 mars 2023 11 056
25 janv. 2021 à 02:14
Coucou Raymond !
Toujours prête pour répondre à tes demandes ! ;))
m@rina
0