ASP [WORD] : header/footer

[cryonos]

Bonjour à tous !

Voila j'ai un petit probleme, je cherche à ajouter un filigrane sur un fichier word,en passant par les headers/footer du document, seulement voila à l'execution je rencontre cette erreur :

Erreur d'exécution Microsoft VBScript error '800a01a8'

Objet requis: 'selection.HeaderFooter'

voici mon bout de code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Set objWord = CreateObject("word.Application")
    With objWord
		.Visible=true
        .Documents.Open("C:\testasp\rapport.doc")
        If .ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter Then .ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = False
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        .selection.wholestory
        Set objWord.selection.HeaderFooter.Shapes.AddPicture "C:\testasp\filigrane.gif",False,True
        .selection.ShapeRange.Height = .CentimetersToPoints(29.7)
        .selection.ShapeRange.Width = .CentimetersToPoints(21)
        .selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .selection.ShapeRange.Left = .CentimetersToPoints(0)
        .selection.ShapeRange.Top = .CentimetersToPoints(0)
        .selection.ShapeRange.ZOrder 5
    End With

si qq1 a une idée..

Merciiii !

[Immobilis]

Salut,

Connais pas trop Word sous ASP, mais si tu enlèves "Set objWord." dans "Set objWord.selection.HeaderFooter.Shapes.AddPicture" que se passe-t-il?
Ou alors

Code :

1
2
3
 
Set header = objWord.selection.HeaderFooter.Shapes
header.AddPicture "MaPicture.jpg", false, true

A+