Lire en anglais

Partager via


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).

Syntaxe

expression. InUse

Expression Expression qui renvoie un objet « Style ».

Remarques

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.

Exemple

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

Voir aussi

Objet de style

Assistance et commentaires

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.