Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie une collection StoryRanges qui représente toutes les histoires dans le document spécifié. En lecture seule.
Syntaxe
expression. StoryRanges
expression Variable qui représente un objet Document .
Remarques
Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.
Exemple
Cet exemple montre comment parcourir la collection StoryRanges pour savoir si wdPrimaryFooterStory fait partie de la collection StoryRanges.
For Each aStory In ActiveDocument.StoryRanges
If aStory.StoryType = wdEvenPagesFooterStory Then
MsgBox "Document includes an even page footer"
End If
Next aStory
Cet exemple montre comment ajouter du texte à l'article du premier en-tête, puis afficher ce texte.
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _
.Text = "Header text"
MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text
Voir aussi
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.