Discussion :

[414818]

Bonjour

J'ai mis un filigrane (non image) qui se met correctement sur la 1ère page mais sur les suivantes il n'est plus centré...
Je ne souhaite pas mettre un filigramme image.
Je ne comprends pas pourquoi sur les pages suivantes il se décale à droite
merci de votre aide

[Invité]

Bonjour,

Avez-vous la possibilité de mettre un exemple en ligne ? Sans garantie.

[414818]

Comment insérer l'exemple?
je n'y parviens pas

[Invité]

Si votre fichier est du type .docm (donc avec des macros), il vous faut le ziper. Sinon, pour le joindre, utiliser le trombone dans le menu.

[414818]

Voici
j'ai supprimé toutes les informations dedans car confidentielWORD FILIGRANE.docx

[Invité]

Je n'ai pas réussi à modifier le document. En revanche, je suis reparti d'un nouveau document et je l'ai sauvegardé en modèle. Il ne correspond pas tout à fait au document d'origine. Regardez si en créant un nouveau document avec, le filigrane se met bien en place.

[414818]

merci beaucoup
cela a fonctionné
bien cordialement

[payadz2]

Ce qui fonctionne chez moi:

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
16
17
18
19
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddPicture(Filename:= "nom de l image.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True).Select
'on nomme l image pour pouvoir l effacer ensuite !!! sinon WORD lui attribue un nom unique arbitraire
    Selection.ShapeRange.Name = "Sinature_000"
    Selection.ShapeRange.PictureFormat.Brightness = 0.2   'par defaut 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 1        'par defaut 0.5
    Selection.ShapeRange.LockAspectRatio = True
'on garde la taille originale ------------------------------ cf note
'    Selection.ShapeRange.Height = CentimetersToPoints(26.21)
'    Selection.ShapeRange.Width = CentimetersToPoints(18.99)
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    Selection.ShapeRange.Left = wdShapeCenter   'wdShapeRight     'wdShapeCenter  == differentes options a essayer
    Selection.ShapeRange.Top = wdShapeCenter   'wdShapeBottom    'wdShapeCenter

A mon sens c'est plus facile de formater l image avec un programme de dessin, telle qu'on la souhaite pour l'insérer telle que, sans avoir a la redimensionner dans WORD.