Effectivement le fait de réduire les images en vignette décale le blason vers la gauche.
En taille normale il demeure bien centré.
On peut le rectifier à posteriori par la tabulation puis un copié-collé, mais on ne peut pas le faire en amont avant la génération du document. Du coup c'est du bricolage et c'est gênant si on a beaucoup de blasons.
Je ferais remonter ce problème au CDIP.
Bonsoir j'ai terminé mon paramétrage perso pour avoir une liste comme je le souhaitais (elle est en pièce jointe pour le rendu). J'ai gardé l'image entière et non en vignette en retravaillant le doc généré sous Word. J'ai appliqué une macro pour le redimensionnement des images en masse (1000 blasons à redimensionner) afin de ne pas perdre en qualité. La taille des vignettes sous Généatique est d'environ 3.4cm sur 4.2 et j'ai appliqué comme macro (si ça peut aider):
Sub taille_images()
Dim image As InlineShape
For Each image In ActiveDocument.InlineShapes
image.Width = CentimetersToPoints (3.4)
image.Height = CentimetersToPoints (4.2)
Next
End Sub
Pour enlever les lignes superflues non paramétrables sous généatique qui apparaissent concernant le choix des notices (ex Patronyme) j'ai utilisé une autre macro:
Sub TestSupprimerLesLignes()
SupprimerLesLignes "Patronyme"
End Sub
Sub SupprimerLesLignes(ByVal TexteAChercher As String)
Dim MaChaineASupprimer As String
Dim MaSelection As Range
Dim PositionVerticale As Double
Dim NbCaracteres As Integer, NbCaracteresTotaux As Integer
Dim I As Integer, J As Integer
With ActiveDocument
For J = .Paragraphs.Count To 1 Step -1
With .Paragraphs(J)
If Mid(.Range.Text, 1, Len(TexteAChercher)) = TexteAChercher Then
.Range.Select
MaChaineASupprimer = ""
NbCaracteres = 0
NbCaracteresTotaux = Selection.Characters.Count
PositionVerticale = Selection.Information(wdVerticalPositionRelativeToPage)
For I = 1 To NbCaracteresTotaux
.Range.Characters(I).Select
If Selection.Information(wdVerticalPositionRelativeToPage) = PositionVerticale Then
MaChaineASupprimer = MaChaineASupprimer & Selection.Range.Text
NbCaracteres = NbCaracteres + 1
End If
Next I
If MaChaineASupprimer <> "" Then
Set MaSelection = .Range
With MaSelection
.Collapse Direction:=wdCollapseStart
.MoveEnd Unit:=wdCharacter, Count:=NbCaracteres
.Delete
End With
Set MaSelection = Nothing
End If
End If
End With
Next J
End With
End Sub
C'est du bidouillage mais le résultat est conforme à mon attendu.
Bonne soirée
