Discussion :

[Golard]

Bonjour,

Sauf erreur de ma part la question n'a pas été posée sur le forum.

La case à cocher "ne pas ajouter d'espace entre les paragraphes du même style" s'applique à un style, et est très pratique !

Malheureusement, l'enregistreur de macro ignore cette case et je me demande quelle est la propriété VBA qui permet de cocher la case ???



Merci d'avance !

[Souriane]

Bonjour Goldard,

Cette option s'applique à un Style et non pas directement au texte, donc ça modifie tout le texte qui est de ce style dans ce document. À moins que tu crééerait un style dédié... Voici ce que tu peux utiliser :

Code :

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

1
2
 
ActiveDocument.Styles("Normal").NoSpaceBetweenParagraphsOfSameStyle = True

Ou encore ceci :

Code :

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

1
2
3
4
 
With Selection.Range.Style
 .NoSpaceBetweenParagraphsOfSameStyle = True
 End With

Autre chose : pour une raison que j'ignore, moi, si j'essaie de modifier un Style "built-in", ça ne fonctionne pas (dans l'exemple ci-dessus, "Normal") mais si je fais cette même macro pour un style que j'ai moi-même créé, ça fonctionne A1!...

Bonne chance!

Souriane

[Golard]

Bonjour Souriane !

J'utilise des styles dédiés, donc ça marche parfaitement.
Je note ta remarque sur le fait que cette propriété n'est pas forcément fonctionnelle pour les styles Builtin (je n'ai pas encore testé).

Merci pour ta réponse, je peux clore le sujet.