Propriété Document.Content (Word)

Renvoie un objet Range qui représente l'article principal d'un document. En lecture seule.

Syntaxe

expression. Contenu

Expression Variable qui représente un objet Document .

Remarques

Les deux instructions qui suivent sont équivalentes :

Set mainStory = ActiveDocument.Content 
Set mainStory = ActiveDocument.StoryRanges(wdMainTextStory)

Exemple

Cet exemple montre comment remplacer la police du texte contenu dans le document actif par la police Arial de taille 10 (points).

Set myRange = ActiveDocument.Content 
With myRange.Font 
 .Name = "Arial" 
 .Size = 10 
End With

Cet exemple montre comment insérer du texte à la fin du document nommé « Changes.doc ». For Each... Prochain instruction est utilisée pour déterminer si le document est ouvert.

For Each aDocument In Documents 
 If InStr(LCase$(aDocument.Name), "changes.doc") Then 
 Set myRange = Documents("Changes.doc").Content 
 myRange.InsertAfter "the end." 
 End If 
Next aDocument

Voir aussi

Objet Document

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.