Renvoi de texte à partir d'un document
Utilisez la propriété Text pour renvoyer du texte contenu dans un objet Range ou Selection. Cet exemple montre comment sélectionner le premier paragraphe doté du style Heading 1. Le contenu de la propriété Text est affiché par la fonction MsgBox.
Sub FindHeadingStyle()
With Selection.Find
.ClearFormatting
.Style = wdStyleHeading1
.Execute FindText:="", Format:=True, _
Forward:=True, Wrap:=wdFindStop
If .Found = True Then MsgBox Selection.Text
End With
End Sub
L'instruction suivante permet de renvoyer et d'afficher le texte sélectionné.
Sub ShowSelection()
Dim strText As String
strText = Selection.Text
MsgBox strText
End Sub
Cet exemple montre comment renvoyer le premier mot du document actif. Chaque élément de la collection Words est un objet Range qui représente un mot.
Sub ShowFirstWord()
Dim strFirstWord As String
strFirstWord = ActiveDocument.Words(1).Text
MsgBox strFirstWord
End Sub
Cet exemple montre comment renvoyer le texte associé au premier signet du document actif :
Sub ShowFirstBookmark()
Dim strBookmark As String
If ActiveDocument.Bookmarks.Count > 0 Then
strBookmark = ActiveDocument.Bookmarks(1).Range.Text
MsgBox strBookmark
End If
End Sub
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour