Discussion :

[ronnym2011]

Bonjour

j'ai réalisé une macro VBA sous word2013 qui me permet de faire:
mise en forme de paragraphe: interligne 0, espacements, alignement du texte...
mise en forme de l'objet: marges de 0com intérieur haut, gauche, bas, droit

la macro fonctionne à merveille lorsque je dessine une forme que j'écrive du texte à l'intérieure
mais dès que la forme est à l'intéreur d'une zone de dessin, elle ne marche plus

ci-joint le code que j'ai réalisé.
Merci d'avance

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub LibeleFigures()
'Aligner le texte des les libélés des figures
' Marges des Zones de texte Sélectionnées
' paragraphes: aligments + espacements
 
'Ci-dessous' code pour ajouter de la couleur
   'Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
 
'Arrière plan supprimé
   Selection.ShapeRange.Fill.Visible = msoFalse
 
'paramètres du texte dans la forme
 
 Selection.ShapeRange.TextFrame.MarginBottom = 0
 Selection.ShapeRange.TextFrame.MarginLeft = 0
 Selection.ShapeRange.TextFrame.MarginRight = 0
 Selection.ShapeRange.TextFrame.MarginTop = 0
 Selection.ShapeRange.TextFrame.VerticalAnchor = msoAnchorMiddle
 
'Mise en forme de paragraphe
  With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphCenter
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .CollapsedByDefault = False
    End With
 '
End Sub

[Heureux-oli]

Salut,

Sur quelle ligne ?

[ronnym2011]

Bonjour
J ai des problèmes sur les lignes qui traitent de:
Selection.ShapeRange.TextFrame...

C comme ci les formes à l'intérieur des zones de dessin étaient inaccessibles.

[clementmarcotte]

Bonjour,
Un coup d'œil dans ton aide de VBA t'aurait fait voir que ShapeRange, c'est la collection des objets Shape, présents dans ta selection. Ton TextFrame, doit être lié à la zone de texte qui se trouve dans la shape précise.

[ronnym2011]

Bonjour.
J'avais regardé l'aide, cherché sur internet mais j'avais du mal à comprendre comment s'organisent les choses.
1- comment savoir une forme à quelle type elle appartient et
2- pourquoi autant de Shape: ShapeRange; inlineShapes, Shape ?!

Donc si j'ai bien compris, pour accéder à la zone de texte je doit passer par la zone de dessin.
Si c'est le cas, je n'ai aucune idée de la manière de procédé.

J'ai fait une capture d’écran pour synthétiser au mieux ma démarche entreprise précédemment.
Je travail sous Word2013

[ronnym2011]

bonsoir
vraiment personne n'a rencontré ce problème?

[Marc-L]

Bonjour,

un exemple peut-être dans la discussion faire clignoter une forme inserée dans un doc word …



_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[ronnym2011]

Dans activedocument.shapes (1)...
C est la première forme du document actif qui est sélectionnée (1). Dans mon cas la forme je la sélectionne avec la souris.

[clementmarcotte]

Bonjour,

Là, ton histoire de souris mélange tout.

Tu fais quoi exactement avant de lancer ta macro ?

Est-ce que ta zone de texte est sélectionnée avec tout ton document ou séparément ?

Ou bien Est-ce que tu veux que le texte de la zone de texte, et uniquement le texte de la zone de texte soit mis en forme ?

Est-ce que tu as une et une seule zone de texte, ou plusieurs zones de texte ?
Et puis, si tu dois faire cela constamment avec une cargaison de fichiers, cela irait bien mieux avec des styles adaptés, ou carrément avec un modèle dédié. Il n'y a aucune obligation d'utiliser le modèle Normal.

Mais bon, prends le temps de reformuler ton problème complètement et précisément.

Et puis laisse donc faire, sélectionner ton texte pour cliquer sur un bouton pour changer directement le style, ou pour lancer une macro, cela revient au même.