Discussion :

[November-Oscar]

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

[November-Oscar]

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

[Invité]

Bonjour,

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

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
 
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/

[November-Oscar]

Merci Eric...

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

[Invité]

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

[November-Oscar]

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

Au début:

Code :

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

Application.ScreenUpdating = False

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

Code :

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

Application.ScreenUpdating = True

[Philippe Tulliez]

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 :

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

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 :

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

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