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.