Discussion :

[rungis]

Bonjour à tous,

Mon problème est très simple mais je ne vois pas comment faire pour trouver la solution.
J'ajoute des champs de fusion comme ceci: et en fonction du nombre d'enregistrements contenu dans ma source de données (fichier excel), le texte en dessous sera décalé. Je souhaite qu'il ne le soit pas.
Voir exemple 1 :



Et exemple 2 :


On voit bien que le pied de page contenant GEMLIK, TURKIYE, OYAK etc n'est pas à la même position.
Comment faire pour que ce pied de page soit toujours dans la même position peu importe le nombre d'enregistrements fusionnés ?

J'espère avoir été clair, merci d'avance de vos réponses/idées.

[Heureux-oli]

Salut,

Si tu le mets dans une zone de texte, ça devrait le faire.
On peut définir une position fixe pour cet objet par rapport au coin supérieur gauche.

[rungis]

Salut,
Merci pour ta réponse.
Effectivement en créant une zone de texte cela semble répondre à mon besoin.
Cependant en utilisant cette macro je n'arrive pas à fixer la position:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Dim txtBx As Shape
  Set txtBx = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 400, 10, 100, 200)
  txtBx.TextFrame.TextRange = "GEMLIK"
  txtBx.TextFrame.TextRange.Bold = True

J'aimerais la fixer en utilisant cette propriété:



"Au dessous de marge" au lieu de "au dessous du paragraphe"
Mais je ne sais pas le traduire en vba

Peux-tu m'aider stp ?

Merci d'avance

[Heureux-oli]

Salut,

Pourquoi fixer la zone par vba.
Normalement, le publipostage se base sur un document existant qui contient les champs de fusion.
Il suffit que ce document contienne la zone de texte.

[rungis]

Salut Oli,
Car mon projet doit être entièrement automatisé.
Mais du coup peut-être faut-il déplacer ce sujet dans le bon topic: 'VBA & Word'

[Heureux-oli]

Salut,

Voilà comment on peut ajouter et placer une zone de texte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim oSh As Shape
 
Set oSh = Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 100)
With oSh
    .RelativeVerticalPosition = wdRelativeVerticalPositionTopMarginArea
    .Top = CentimetersToPoints(21)
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMarginArea
    .Left = CentimetersToPoints(1)
End With
Set oSh = Nothing

[rungis]

Merci beaucoup ca fonctionne

Le code final ressemble à ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim oSh As shape
Set oSh = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=75, Height:=65)
With oSh
    .RelativeVerticalPosition = wdRelativeVerticalPositionTopMarginArea
    .Top = CentimetersToPoints(25.43)
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMarginArea
    .Left = CentimetersToPoints(5.45)
    .TextFrame.TextRange = "GEMLIK" & vbCrLf & "TÜRKIYE" & vbCrLf & Format(Date, "dd.MM.yyyy")
    .TextFrame.TextRange.Bold = True
    .TextFrame.TextRange.Font.Name = "Arial"
    .TextFrame.TextRange.Font.Size = 9
    .Line.Visible = msoFalse
End With
Set oSh = Nothing