Discussion :

[DSI0499]

Bonjour,

Pour la rédaction de documents comprenant de nombreuses images, je cherche à créer une macro dans WORD 2007 pour mettre un cadre de couleur autour de chaque image sélectionnée (cela réduirait significativement les manips et permettrait de travailler à plusieurs de façon homogène).
Comment faut-il procéder (sachant je ne connais pas le code VB) ?
Pour faire succinct, je n’explique pas ici toutes les manips réalisées avec l’enregistreur de macro pour y parvenir…
Merci d’avance !

[Heureux-oli]

Salut,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub entourerImage()
Dim myIs As InlineShape
 
Set myIs = Selection.InlineShapes(1)
With myIs
 
    .Borders(wdBorderBottom).LineWidth = wdLineWidth150pt
    .Borders(wdBorderBottom).Color = wdColorDarkRed
 
 
    '------
    .Borders(wdBorderLeft).LineWidth = wdLineWidth150pt
    .Borders(wdBorderLeft).Color = wdColorDarkRed
    '------
    .Borders(wdBorderRight).LineWidth = wdLineWidth150pt
    .Borders(wdBorderRight).Color = wdColorDarkRed
    '------
    .Borders(wdBorderTop).LineWidth = wdLineWidth150pt
    .Borders(wdBorderTop).Color = wdColorDarkRed
End With
Set myIs = Nothing
End Sub

[DSI0499]

Bonjour et merci.

- A l'éxécution du code proposé, voici le message d'erreur :

" Erreur d'exécution '5843'
L'un des arguments est hors limites. "

En faisant le déboggage, l'erreur apparaît dès la première ligne de code ( .Borders(wdBorderBottom).LineWidth = wdLineWidth150pt)

- Cependant, pour préciser le besoin :
1/ l'utilisateur sélectionne une image
2/ CTRL+E (pour centrer l'image)
3/ clic droit 'Format de l'image'
4/ clic sur item 'Couleur du trait'
5/ clic sur puce 'Trait plein'
6/ clic sur bouton 'Couleur'
7/ clic sur 'Autres couleurs'
8/ clic sur onglet 'Personnalisées' de la boîte de dialogue 'Couleurs'
9/ indication sur champ 'Vert' : 32
10/ indication sur champ 'Bleu' : 96
11/ clic sur bouton 'OK'
12/ clic sur bouton 'Fermer'
13/ appui sur la touche 'Entrée' (passage à la ligne suivante)

la macro devrait réaliser les étapes 2/ à 13/

Merci.

[Heureux-oli]

Salut,

chez moi, la macro fonctionne.

[DSI0499]

Bonjour,

Je ne connais pas VBA et ne suis pas développeur.
L'aide de Word m'a paru très peu satisfaisante pour l'élaboration de macros (ou alors je ne suis pas allé au bon endroit !).

Savez-vous s'il existe un site qui fournit les correspondances entre chaque fonctionnalité de WORD et le code VBA ?

Avec une liste de correspondances et des exemples de bout de code, je pourrais peut-être me débrouiller en tâtonnant.

Merci

[Heureux-oli]

Salut,

Je pense pas que ce soit si simple.

[DSI0499]

A l'origine, l'enregistreur n'a pas fonctionné pour une manip qui semble plutôt simple de prime abord.

Au début, en consultant l'aide de WORD, j'ai identifié qu'à l'enregistrement d'une macro, la sélection de texte doit être faite au clavier.
J'ai donc transposé le principe à la sélection d'image. Mais cela n'a rien donné, la macro reste vide de code.

Vous paraît-il normal que pour ce besoin aussi simple la création de la macro via l'enregistreur ne fonctionne pas correctement ?

[Heureux-oli]

Salut,

L'enristreur de macro ne fonctionne pas pour les objets graphiques et pour les manipulations à la souris.

[Sepia]

Salut DSI0499,

mon dieu que c'est compliqué alors qu'il suffit de demander à Word de faire le boulot .

Voilà le truc, pour faire les étapes de 2 à 13
Tu sélectionnes une image, tu fais la manip, puis tu sélectionnes une deuxième image et tu fais <CTRL>+Y. Puis après... heu c'est tout. La commande <CTRL>+Y refait la dernière commande de Word (lorsqu'il peut). En termes de comparaison en temps, je crois avoir mis 17 sec puis 2 sec par image (j'ai triché, j'ai fait une recherche d'image) et je l'ai fait une sur 2. C'est vraiment du Word, très boeuf mais très efficace.

Maintenant si tu veux faire de l'étape 1 à 13, voici le truc
Tu commences par te créer un style, mesImages par exemple, qui est un style de caractères avec une bordure (rouge par exemple )
Puisque tu as lu le tutoriel sur la recherche et le remplacement dans Word, si tu sais effectuer un rechercher/remplacer global. Pour une image, tu utilises "^g", donc tu remplaces toutes tes images par... elles-mêmes (i.e. ce que tu cherches "^&") en leur ajoutant le style "mesImages", tu lances "Rempalcer Tout". Puis après... heu c'est tout. Je n'ai pas compté le gain de temps par rapport à une macro mais la dernière fois, c'était de l'ordre de 2700 pour le même type de remplacement (temps d'écriture de la macro comprise) sachant que le gain est encore plus important si tu as beaucoup d'images car le VBA est assez gourmand en ressources et que le rechercher/remplacer est une commande native optimisée.

Voilà si tu veux plus d'explications n'hésite pas.

@+