De mani=E8re =E0 obtenir un epr=E9sentation coh=E9rente,
je souhaite parcourir TOUTES les images ins=E9r=E9es du document,
pour le formater comme un paragraphe avec espacelment avant et apr=E9s.
Vu le nombre d'images je pr=E9f=E9rerais faire =E7a par VB,
quels sont les bases du code ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tisane
Bonjour Le Nordiste,
De manière à obtenir un eprésentation cohérente, je souhaite parcourir TOUTES les images insérées du document, pour le formater comme un paragraphe avec espacelment avant et aprés. Vu le nombre d'images je préférerais faire ça par VB, quels sont les bases du code ?
La petite macro qui suit fonctionne pour les images alignées sur le texte (pas les images "habillées") :
Sub Format_Image() For i = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(i).Select Selection.ParagraphFormat.SpaceBefore = 12 Selection.ParagraphFormat.SpaceAfter = 12 Next Selection.HomeKey Unit:=wdStory End Sub
Je ne sais pas faire plus court ;-)
-- Tisane
Bonjour Le Nordiste,
De manière à obtenir un eprésentation cohérente,
je souhaite parcourir TOUTES les images insérées du document,
pour le formater comme un paragraphe avec espacelment avant et aprés.
Vu le nombre d'images je préférerais faire ça par VB,
quels sont les bases du code ?
La petite macro qui suit fonctionne pour les images alignées sur le texte
(pas les images "habillées") :
Sub Format_Image()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Select
Selection.ParagraphFormat.SpaceBefore = 12
Selection.ParagraphFormat.SpaceAfter = 12
Next
Selection.HomeKey Unit:=wdStory
End Sub
De manière à obtenir un eprésentation cohérente, je souhaite parcourir TOUTES les images insérées du document, pour le formater comme un paragraphe avec espacelment avant et aprés. Vu le nombre d'images je préférerais faire ça par VB, quels sont les bases du code ?
La petite macro qui suit fonctionne pour les images alignées sur le texte (pas les images "habillées") :
Sub Format_Image() For i = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(i).Select Selection.ParagraphFormat.SpaceBefore = 12 Selection.ParagraphFormat.SpaceAfter = 12 Next Selection.HomeKey Unit:=wdStory End Sub
