Enregistrer une recherche avancée pour l'automatiser Résolu/Fermé

Question

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 !

Raymond PENTIER · Answer

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 !) ...

Raymond PENTIER · Answer

Alors on va appeler m@rina au secours ...

m@rina · Answer

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

Steevflores · Answer

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 ^^

m@rina · Answer

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 stylesgras = "ST - Gras"ital = "ST - Ital"With ActiveDocument.Content.Find    .ClearFormatting    .Replacement.ClearFormattingEnd WithWith ActiveDocument.Content.Find    .Font.Bold = True    .Replacement.Style = ActiveDocument.Styles(gras)    .Forward = True    .Wrap = wdFindContinue    .Execute Replace:=wdReplaceAllEnd WithWith ActiveDocument.Content.Find    .Font.Italic = True    .Replacement.Style = ActiveDocument.Styles(ital)    .Forward = True    .Wrap = wdFindContinue    .Execute Replace:=wdReplaceAllEnd WithEnd Sub

m@rina

Raymond PENTIER · Answer

Merci m@rina !

Enregistrer une recherche avancée pour l'automatiser

6 réponses

Discussions similaires