Enregistrer une recherche avancée pour l'automatiser
Résolu
Steevflores
Messages postés
14
Statut
Membre
-
Steevflores Messages postés 14 Statut Membre -
Steevflores Messages postés 14 Statut Membre -
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 !
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
-
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
-
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 !) ...
-
Alors on va appeler m@rina au secours ...
-
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 ^^ -
Merci m@rina !
