Discussion :

[November-Oscar]

Bonjour
Le code joint est un code test pour comprendre. J'ai donc une forme de texte (shape(2)) avec plusieurs paragraphes ayant des niveaux d'indentation différent.
question : je souhaite pouvoir récupèrer par code VBA le niveau d'indentation de chaque paragraphe.
NB : j'ai laisé le ".ParagraphFormat.Bullet.Type". Mais bien entendu, ce n'est pas la solution...
Merci de votre aide.
Cdlt

Code :

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

1
2
3
4
5
6
7
8
Sub a()
Dim i As Integer
With ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
    For i = 1 To .Paragraphs.Count
        MsgBox .Paragraphs(i).ParagraphFormat.Bullet.Type
    Next
End With
End Sub

[November-Oscar]

Bjr
J'ai trouvé la solution. Il suffisait de remplacer
ParagraphFormat.Bullet.Type
par
Indentlevel

Code :

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

1
2
3
4
5
6
7
8
Sub a()
Dim i As Integer
With ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
    For i = 1 To .Paragraphs.Count
        MsgBox .Paragraphs(i).Indentlevel
    Next
End With
End Sub