user_mobilelogo

 

Une zone de texte ne peut pas être intégrée à la mise en page d'un document, sauf en en-tête ou pied de page, mais on peut supposer que, dans le cas présent, on ait besoin de mettre des infos différentes dans chaque zone de texte.

On peut créer une zone de texte, paramétré comme il faut, et ensuite la copier coller sur chaque page. Elle viendra se mettre en même endroit.

Sinon, une petit macro règle l'affaire :

Sub zdt()
Dim zdt As Shape
Set zdt = ActiveDocument.Shapes.AddTextbox (Orientation:=msoTextOrientationHorizontal, _
Left:=13, Top:=750, Width:=95, Height:=65)
End Sub

Petite précision : il faut donner à la zone de texte les bonnes mesures. Les mesures Left et Top sont respectivement l'espace compris entre le bord gauche et la zone de texte, et l'espace compris entre le bord supérieur et la zone de texte.

Si le document est important et que l'on souhaite ajouter d'un seul coup une zone de texte sur toutes les pages, il faut faire une boucle. Toutefois, ce n'est pas si simple car une page n'est pas un objet pour word. Voici la macro :

Sub zdt()
Dim zdt As Shape, nombre
Selection.HomeKey Unit:=wdStory
nombre = Selection.Information(wdNumberOfPagesInDocument)
nombre2 = 1
Do While nombre2 < nombre
nombre2 = Selection.Information(wdActiveEndPageNumber)
Set zdt = ActiveDocument.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=13, Top:=750, Width:=95, Height:=65)
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
Loop
End Sub

 

Statistiques

Aujourd'hui24
Hier1788
Cette semaine10382
Ce mois12422
Total depuis 200412310014

4
visiteurs actuellement en ligne

8 août 2020