Compter le nombre de paragraphes d'un style donné dans un document

Bonjour,
J'ai un document de plus de 300 pages et j'ai besoin, pour des histoires de contrôle et de cohérence, de connaitre le nombre de paragraphes du style "S1" et du style "S2".
Bien entendu, en faisant une boucle sur tous les paragraphes, ça le fait mais cette boucle prend beaucoup trop de temps.
Or lorsque je vais dans le panneau latérale des styles et que je fais un "sélectionner tout" sur le style "S1" par exemple, on voit que le nombre d'occurrence est affiché sans prendre aucun temps.
Je suppose donc qu'il y a un moyen quasi instantané pour récupérer cette info.
Si quelqu'un a une idée ou la solution, je suis preneur.
Merci d'avance.
Cordialement

Bonjour
Personne n'a une idée sur ce sujet ?
J'ai bien amélioré le sujet en bouclant non plus sur les paragraphes mais sur les styles. Mais ça reste trop long.
Je reste preneur d'une orientation...
Merci

Citation:

---

Envoyé par November-Oscar

---

Bonjour,

J'ai essayé de lister les contrôles présents dans le menu Word lancé depuis Excel :

Code:

---

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

Sub ListerLesControles()   Dim OngletDesDonnees As Worksheet Dim I As Integer, J As Integer Dim WordApp As Word.Application   Set OngletDesDonnees = ActiveSheet Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu WordApp.Visible = True With WordApp Debug.Print .CaptionLabels.Count For I = 1 To .CommandBars.Count With WordApp.CommandBars(I) For J = 1 To .Controls.Count OngletDesDonnees.Cells(I + 1, 1) = I OngletDesDonnees.Cells(I + 1, 2) = .Controls(J).ID OngletDesDonnees.Cells(I + 1, 3) = .Controls(J).Caption OngletDesDonnees.Cells(I + 1, 4) = .Controls(J).DescriptionText Next J End With Next I End With WordApp.Quit Set WordApp = Nothing Set OngletDesDonnees = Nothing   End Sub

---

Je n'ai pas vu le contrôle en rapport avec la sélection du style en cours.

Regardez peut-être le tuto d'Olivier LEBEAU sur la gestion du ruban Word :

https://heureuxoli.developpez.com/office/word/ruban/
https://heureuxoli.developpez.com/

Merci Eric...

Pas trouvé mon bonheur. Je reste donc un Do While sur le style qui améliore sensiblement le temps mais pas totalement...

Citation:

---

Envoyé par November-Oscar

---

As-tu neutralisé le rafraîchissement de l'écran ?

Non pas fait. IL est vrai que je pourrais mettre un truc du type

Au début:

Code:

---

Application.ScreenUpdating = False

---

Une condition avec une Application.ScreenRefresh un coup de temps en temps dans le programme...
et à la fin, un :

Code:

---

Application.ScreenUpdating = True

---

Bonjour,
Pour afficher le nombre d'occurrences d'un style comme on peut le visualiser dans le panneau latéral des styles à droite de la commande Sélectionner toutes les occurrences, personnellement à l'aide de la fonction ci-dessous, le temps pour effectuer le cacul est instantané (test fait sur 377 paragraphes)

Code de la la procédure

Code:

---

1 2 3 4 5 6 7 8

Function StyleCount(StyleName As String, Optional oDoc As Document) As Long Dim p As Paragraph If oDoc Is Nothing Then Set oDoc = ActiveDocument For Each p In oDoc.Range.Paragraphs StyleCount = StyleCount + Abs(p.Style = StyleName) Next Set p = Nothing End Function

---

Code de la procédure test

Code:

---

1 2 3

Sub TestStyleCount() MsgBox StyleCount("Titre 2") End Sub

---