Propriété Style.InUse (Word)
True si le style spécifié est un style prédéfini qui a été modifié ou appliqué dans le document ou un nouveau style qui a été créé dans le document. Boolean (en lecture seule).
expression. InUse
Expression Expression qui renvoie un objet « Style ».
La propriété InUse n'indique pas forcément que le style est actuellement appliqué à du texte dans le document. Par exemple, si le texte auquel un style a été appliqué est supprimé, la propriété InUse du style conserve la valeur True. Pour les styles intégrés qui n'ont jamais été utilisés dans le document, cette propriété renvoie la valeur False.
Cet exemple montre comment afficher dans une boîte de message la liste des noms de tous les styles utilisés dans le document actif.
Dim docActive As Document
Dim strMessage As String
Dim styleLoop As Style
Set docActive = ActiveDocument
strMessage = "Styles in use:" & vbCr
For Each styleLoop In docActive.Styles
If styleLoop.InUse = True Then
With docActive
.Content.Find
.ClearFormatting
.Text = ""
.Style = styleLoop
.Execute Format:=True
If .Found = True Then
strMessage = strMessage & styleLoop.Name & vbCr
End If
End With
End If
Next styleLoop
MsgBox strMessage
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.