Notes
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 TextColumns qui représente l'ensemble des colonnes de texte de l'objet PageSetup spécifié.
Syntaxe
expression. TextColumns
Expression Expression qui renvoie un objet PageSetup .
Remarques
La collection contient toujours au moins une colonne de texte. Si vous créez des colonnes de texte, vous les ajoutez dans une collection d'une colonne.
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 créer dans la deuxième section du document actif quatre colonnes de texte espacées à intervalle régulier.
With ActiveDocument.Sections(2).PageSetup.TextColumns
.SetCount NumColumns:=3
.Add EvenlySpaced:=True
End With
Cet exemple montre comment créer un document constitué de deux colonnes de texte. La largeur de la première colonne est égale à 1,5 pouces (4 centimètres) et celle de la seconde est égale à 3 pouces (7,5 centimètres).
Set myDoc = Documents.Add
With myDoc.PageSetup.TextColumns
.SetCount NumColumns:=1
.Add Width:=InchesToPoints(3)
End With
With myDoc.PageSetup.TextColumns(1)
.Width = InchesToPoints(1.5)
.SpaceAfter = InchesToPoints(0.5)
End With
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.