Discussion :

[cpf2006]

Bonjour,

Dans une macro (VBA), je voudrais attribuer une valeur par défaut (dans mon cas la valeur est "0") aux espaces avant et après des paragraphes.

quelque chose comme ceci :

Code :

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

1
2
3
 
    ActiveDocument.Range.ParagraphFormat.SpaceAfterAuto = 0 (ou False)
    ActiveDocument.Range.ParagraphFormat.SpaceBeforeAuto = 0 (ou False)

Mais ce code ne fonctionne pas

Merci d'avance.

Carmelo

[clementmarcotte]

Bonjour,

Quand tu passes par ActiveDocument, tu modifies seulement ton document ouvert.

Si tu veux une modification pour tes nouveaux documents, tu modifies directement ton modèle, ou les styles de paragraphes avec enregistrement du modèle à la fermeture.

[cpf2006]

Bonjour

Merci pour la réponse.

Je précise ma question :

Dans un document existant qui a un style de paragraphe avec des espacements,
j'insère une nouvelle page avec nouvelle section.

Code :

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

1
2
 
Selection.InsertBreak Type:=wdSectionBreakNextPage

Dans cette nouvelle section, le style de paragraphe ne doit pas contenir des espacements.

La ligne suivante change le style (dans ce cas "Normal") pour tout le document et retire les espacement pour les autres pages également.

Code :

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

1
2
3
4
5
6
7
 
    With ActiveDocument.Styles("Normal").ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
    End With

Je voudrais seulement définir un nouveau style sur base du style "Normal" mais dans lequel je changerais le "SpaceBefore" et "SpaceAfter" et appliquer ce style UNIQUEMENT à la section nouvelle

Merci d'avance

Carmelo

[clementmarcotte]

Bonjour,

À première vue, sans trop y penser, je créerais un nouveau style, disons Normal2, basé sur Normal. Tu peux aussi le faire manuellement dans l'interface de Word; et rien n'interdit de l'ajouter au modèle. Ensuite, tu utilises l'un ou l'autre, et n'importe où selon les besoins.

[cpf2006]

Bonjour Clément,

Merci pour la réponse.
C'est ce que je parviens à faire dans la nouvelle section.


Le problème est que j'insère dans la section créée

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Set myStyle = ActiveDocument.Styles.Add(Name:="StInsaat", Type:=wdStyleTypeParagraph)
 
    With ActiveDocument.Styles("StInsaat").ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
    End With
  ActiveDocument.Sections(nombre_sections).Range.ParagraphStyle = ActiveDocument.Styles("StInsaat")

Ensuite, j'insère un autre document dans la section créée en me plaçant à la fin du document

Code :

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

1
2
3
4
 
   ActiveDocument.Characters(ActiveDocument.Characters.Count).Select
   Selection.InsertFile FileName:="document2.docx", Range:="", _
    ConfirmConversions:=False, Link:=False, Attachment:=False

Et je m'aperçois que le document inséré a le style "Normal" c'est à dire, à mon sens, le style ou les différents styles embarqués dans son propre document

Je ne peux donc pas sélectionner toutes la deuxième section et lui appliquer le style créé car il doit conserver son propre style

Merci
Carmelo

[clementmarcotte]

Bonjour,

Apparemment, tu insères un second document dans ton premier. Il va falloir que je te teste plus tard. Je n'ai jamais eu besoin de faire cela. Donc, je n'ai aucune idée de ce que cela peut donner à la fin et si on peut modifier le document ajouté sans perdre la mise en forme d'origine du second.

Je se sais pas trop si cela correspond mais, tu peux toujours jeter un œil sur cette page, d'un coup...

http://heureuxoli.developpez.com/off...cument-tiroir/