Ajouter une image en filigrane dans Word2000 [Résolu]

[blaiso]

Bonjour,

Par un code vba, je voudrai ajouter une image en filigrane juste avant l'impression de la page.
le code suivant fait apparaitre l'image en filigrane sur une page en mode web, mais n'apparait pas quand on fait l'aperçu avant impression, donc est inexistante lorsque la page est imprimée.

Code :

1
2
3
4
5
6
 
 Sub FiligImage()
    ActiveWindow.View.Type = Word.WdViewType.wdWebView
    ActiveDocument.Background.Fill.UserPicture ("C:\Images\LOGO3.PNG")
 
End Sub

je note aussi que ce code ne marche pas si je change l'aspect de la page du mode Web:

Code :

1
2
 
Word.WdViewType.wdWebView

au mode normal:

Code :

1
2
 
Word.WdViewType.wdNormalView

J'utilise Word 2000.
Quelqu'un a t il une idée de ce qu'il faut faire?
Merci d'avance.

[blaiso]

J'ai l'impression qu'il n'est pas possible de faire ce que je souhaite avec Word 2000.Mais j'ai pu le faire avec Word 2003.
Pour ceux qui sont interresés:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub InsertImg_New()
 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 
 
Selection.HeaderFooter.Shapes.AddPicture(FileName:="N:\Images\LOGO2.PNG").Select
 
    Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
    Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
    Selection.ShapeRange.Left = wdShapeCenter
    Selection.ShapeRange.Top = wdShapeCenter
    Selection.ShapeRange.Fill.Transparency = 0.9
 
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Mais avec Word 2000, je me suis résolu à mettre plutôt le logo et un texte en bas de page.

Code :

1
2
3
4
5
6
7
8
9
10
Sub Pied_Page()
      Dim MonTexte As String
      MonTexte = "Mon texte est insérée ici"
      ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
      Selection.HeaderFooter.Range.Text = MonTexte 
      Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
      Selection.HeaderFooter.Range.InlineShapes.AddPicture "C:\Images\LOGO4.jpg"
      ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
 
End Sub