Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word Insérer un Filigrane par VBA

Insérer un Filigrane par VBA

9 réponses
Avatar
Antoine Moreau
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la commande
:

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la main
dans Word un remplissage du fond en noir, et que je fais un undo, l'image
apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer / afficher
le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Il faut peut-être ajouter le mode d'affichage comme spécifié dans l'aide :
ActiveDocument.ActiveWindow.View.Type = wdWebView
Il faut sans doute aussi spécifier le chemin d'accès vers ton image.

Cordialement
Pascal

"Antoine Moreau" a écrit dans le message de
news:
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande

:

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la main
dans Word un remplissage du fond en noir, et que je fais un undo, l'image
apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher

le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine




Avatar
Circé
Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode web.
Ce n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la
fonction existe officiellement par le menu Insertion (v 2002 et 2003),
ça passe qd même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word. Malheureusement,
je n'y arrive pas ... ou presque pas. J'utilise la commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la main dans
Word un remplissage du fond en noir, et que je fais un undo, l'image apparaît
!
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer / afficher
le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine


Avatar
Antoine Moreau
Oui j'ai mis dans mon code le chemin d'accès. L'image s'affiche bien en
WebView effectivement, mais la mise en page saute. je vais essayer la
méthode de Circé

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Il faut peut-être ajouter le mode d'affichage comme spécifié dans l'aide :
ActiveDocument.ActiveWindow.View.Type = wdWebView
Il faut sans doute aussi spécifier le chemin d'accès vers ton image.

Cordialement
Pascal

"Antoine Moreau" a écrit dans le message de
news:
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande

:

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la main
dans Word un remplissage du fond en noir, et que je fais un undo, l'image
apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher

le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine








Avatar
Antoine Moreau
Merci de ta réponse ... mais j'arrive pas a la suivre. Je cherche
effectivement a avoir un filigrane imprimé (j'ai exactement le résultat que
je veux en ajoutant le filigrane à la main dans Word, mais faut que je le
fasse a partir d'Access :) )

Je n'arrive pas a insérer une image en filigrane via l'entête. Est ce que tu
aurais les menus a sélectionner ou mieux, le code VBA qui le fait ? :)

Au mieux via l'entête j'ai une image qui n'est pas en arrière plan ...

(Je ne sais pas pourquoi, la fonction de recherche de la FAQ marche plus
chez moi :/)


NB : j'utilise un Word 2003, mais faudrait que le code final marche sur un
Word 2000 dans l'idéal


"Circé" a écrit dans le message de news:

Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode web. Ce
n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la fonction
existe officiellement par le menu Insertion (v 2002 et 2003), ça passe qd
même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la main
dans Word un remplissage du fond en noir, et que je fais un undo, l'image
apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine






Avatar
Circé
Bonsoir Antoine,

Antoine Moreau avait énoncé :
Merci de ta réponse ... mais j'arrive pas a la suivre. Je cherche
effectivement a avoir un filigrane imprimé (j'ai exactement le résultat que
je veux en ajoutant le filigrane à la main dans Word, mais faut que je le
fasse a partir d'Access :) )

Je n'arrive pas a insérer une image en filigrane via l'entête. Est ce que tu
aurais les menus a sélectionner ou mieux, le code VBA qui le fait ? :)


Essaie quelque chose comme cela :

Sub filigrane()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"c:mon_image".Select
'pour centrer
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Quabd les pros du VBA vont passer, ils vont corriger ça !!! :-D

(Je ne sais pas pourquoi, la fonction de recherche de la FAQ marche plus chez

moi :/)


Ah bon ? je vérifierai mais a priori ça fonctionne...

Circé
http://faqword.free.fr



NB : j'utilise un Word 2003, mais faudrait que le code final marche sur un
Word 2000 dans l'idéal


Comme je te disais, sur 2003, on a une fonction qui permet d'insérer un
filigrane, mais la méthode reste quand même artisanale !


"Circé" a écrit dans le message de news:

Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode web. Ce
n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la fonction
existe officiellement par le menu Insertion (v 2002 et 2003), ça passe qd
même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la main
dans Word un remplissage du fond en noir, et que je fais un undo, l'image
apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine








Avatar
Antoine Moreau
Merci, effectivement ça me permet d'avoir une image de fond, mais ça ne
donne pas le résultat que je veux :/

En fait le problème est que l'image insérée comme cela prends la taille de
l'entête. Hors mon image à un format de 21 par 29.7 et est cadrée pour
mettre un logo en haut a gauche et un liseré en bas ... la cadrage est assez
précis, et dépasse la taille de l'entête (qui elle contient d'autres
informations qui sont cadrées de façon normale)

Au final ta méthode n'ajoute pas un filigrane de la même façon que le menu
arrière plan, vu que celui-ci m'indique toujours "pas de filigrane" quand je
vais dedans. Hors cette méthode est exactement ce que je veux ...

Question bête : est ce qu'on peut accéder à la commande en déroulant par
code les menus ? Je suppose que oui, mais du coup ça ne marchera que sous
Word 2002 et 2003 non ?


Antoine

"Circé" a écrit dans le message de news:

Bonsoir Antoine,

Antoine Moreau avait énoncé :
Merci de ta réponse ... mais j'arrive pas a la suivre. Je cherche
effectivement a avoir un filigrane imprimé (j'ai exactement le résultat
que je veux en ajoutant le filigrane à la main dans Word, mais faut que
je le fasse a partir d'Access :) )

Je n'arrive pas a insérer une image en filigrane via l'entête. Est ce que
tu aurais les menus a sélectionner ou mieux, le code VBA qui le fait ? :)


Essaie quelque chose comme cela :

Sub filigrane()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"c:mon_image".Select
'pour centrer
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Quabd les pros du VBA vont passer, ils vont corriger ça !!! :-D

(Je ne sais pas pourquoi, la fonction de recherche de la FAQ marche plus

chez moi :/)


Ah bon ? je vérifierai mais a priori ça fonctionne...

Circé
http://faqword.free.fr



NB : j'utilise un Word 2003, mais faudrait que le code final marche sur
un Word 2000 dans l'idéal


Comme je te disais, sur 2003, on a une fonction qui permet d'insérer un
filigrane, mais la méthode reste quand même artisanale !


"Circé" a écrit dans le message de news:

Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode web.
Ce n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la
fonction existe officiellement par le menu Insertion (v 2002 et 2003),
ça passe qd même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la
main dans Word un remplissage du fond en noir, et que je fais un undo,
l'image apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine












Avatar
Antoine Moreau
Il s'avère en fait que la menu ajout de filigrane ajoute 3 shapes a l'objet
header ... je suis en train de regarder les propriétés de ces headers, mais
j'espère qu'il ne faut pas que je crée les 3 à la main :)


"Antoine Moreau" a écrit dans le message de news:
%
Merci, effectivement ça me permet d'avoir une image de fond, mais ça ne
donne pas le résultat que je veux :/

En fait le problème est que l'image insérée comme cela prends la taille de
l'entête. Hors mon image à un format de 21 par 29.7 et est cadrée pour
mettre un logo en haut a gauche et un liseré en bas ... la cadrage est
assez précis, et dépasse la taille de l'entête (qui elle contient d'autres
informations qui sont cadrées de façon normale)

Au final ta méthode n'ajoute pas un filigrane de la même façon que le menu
arrière plan, vu que celui-ci m'indique toujours "pas de filigrane" quand
je vais dedans. Hors cette méthode est exactement ce que je veux ...

Question bête : est ce qu'on peut accéder à la commande en déroulant par
code les menus ? Je suppose que oui, mais du coup ça ne marchera que sous
Word 2002 et 2003 non ?


Antoine

"Circé" a écrit dans le message de news:

Bonsoir Antoine,

Antoine Moreau avait énoncé :
Merci de ta réponse ... mais j'arrive pas a la suivre. Je cherche
effectivement a avoir un filigrane imprimé (j'ai exactement le résultat
que je veux en ajoutant le filigrane à la main dans Word, mais faut que
je le fasse a partir d'Access :) )

Je n'arrive pas a insérer une image en filigrane via l'entête. Est ce
que tu aurais les menus a sélectionner ou mieux, le code VBA qui le fait
? :)


Essaie quelque chose comme cela :

Sub filigrane()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"c:mon_image".Select
'pour centrer
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Quabd les pros du VBA vont passer, ils vont corriger ça !!! :-D

(Je ne sais pas pourquoi, la fonction de recherche de la FAQ marche plus

chez moi :/)


Ah bon ? je vérifierai mais a priori ça fonctionne...

Circé
http://faqword.free.fr



NB : j'utilise un Word 2003, mais faudrait que le code final marche sur
un Word 2000 dans l'idéal


Comme je te disais, sur 2003, on a une fonction qui permet d'insérer un
filigrane, mais la méthode reste quand même artisanale !


"Circé" a écrit dans le message de news:

Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode web.
Ce n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la
fonction existe officiellement par le menu Insertion (v 2002 et 2003),
ça passe qd même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la
main dans Word un remplissage du fond en noir, et que je fais un undo,
l'image apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine
















Avatar
Antoine Moreau
Bon en fait ta méthode a effectivement d'être la bonne (mais j'aime bien
fouillé un peu pour comprendre ;) )
Ma commande définitive est :

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.HeaderFooter.Shapes.AddPicture(FileName:="c:MonImage.jpg").Select

Selection.HeaderFooter.Shapes(1).ScaleHeight 1, True
Selection.HeaderFooter.Shapes(1).ScaleWidth 1, True
Selection.ShapeRange.RelativeHorizontalPosition =
wdRelativeHorizontalPositionPage
Selection.ShapeRange.RelativeVerticalPosition =
wdRelativeVerticalPositionPage
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


Cela dit, la commande ajout filigrane indique toujours pas de filigrane ...
ce qui est dommage pour le cas ou l'on veut modifier ensuite dans word
l'image de fond via le menu :/

Pour ce qui est des 3 shapes, je ne comprends pas pourquoi il en ajoute 3 en
fait ... si j'en efface 2 ça marche toujours (quelques soient celles que
j'efface)

Il doit manquer un détail mais bon ...


Merci pour ton aide :)


Antoine

PS : Pour ceux qui veulent plus d'infos, les filigranes c'est watermark en
anglais ... ça aide pour les recherches :)

PS 2 : Est ce qu'on peut contribuer à la FAQ ?

PS 3 : la recherche sur la FAQ remarche chez moi maintenant ;)

"Antoine Moreau" a écrit dans le message de news:
%23isx$
Il s'avère en fait que la menu ajout de filigrane ajoute 3 shapes a
l'objet header ... je suis en train de regarder les propriétés de ces
headers, mais j'espère qu'il ne faut pas que je crée les 3 à la main :)


"Antoine Moreau" a écrit dans le message de news:
%
Merci, effectivement ça me permet d'avoir une image de fond, mais ça ne
donne pas le résultat que je veux :/

En fait le problème est que l'image insérée comme cela prends la taille
de l'entête. Hors mon image à un format de 21 par 29.7 et est cadrée pour
mettre un logo en haut a gauche et un liseré en bas ... la cadrage est
assez précis, et dépasse la taille de l'entête (qui elle contient
d'autres informations qui sont cadrées de façon normale)

Au final ta méthode n'ajoute pas un filigrane de la même façon que le
menu arrière plan, vu que celui-ci m'indique toujours "pas de filigrane"
quand je vais dedans. Hors cette méthode est exactement ce que je veux
...

Question bête : est ce qu'on peut accéder à la commande en déroulant par
code les menus ? Je suppose que oui, mais du coup ça ne marchera que sous
Word 2002 et 2003 non ?


Antoine

"Circé" a écrit dans le message de news:

Bonsoir Antoine,

Antoine Moreau avait énoncé :
Merci de ta réponse ... mais j'arrive pas a la suivre. Je cherche
effectivement a avoir un filigrane imprimé (j'ai exactement le résultat
que je veux en ajoutant le filigrane à la main dans Word, mais faut que
je le fasse a partir d'Access :) )

Je n'arrive pas a insérer une image en filigrane via l'entête. Est ce
que tu aurais les menus a sélectionner ou mieux, le code VBA qui le
fait ? :)


Essaie quelque chose comme cela :

Sub filigrane()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"c:mon_image".Select
'pour centrer
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Quabd les pros du VBA vont passer, ils vont corriger ça !!! :-D

(Je ne sais pas pourquoi, la fonction de recherche de la FAQ marche

plus chez moi :/)


Ah bon ? je vérifierai mais a priori ça fonctionne...

Circé
http://faqword.free.fr



NB : j'utilise un Word 2003, mais faudrait que le code final marche sur
un Word 2000 dans l'idéal


Comme je te disais, sur 2003, on a une fonction qui permet d'insérer un
filigrane, mais la méthode reste quand même artisanale !


"Circé" a écrit dans le message de news:

Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode
web. Ce n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la
fonction existe officiellement par le menu Insertion (v 2002 et 2003),
ça passe qd même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la
main dans Word un remplissage du fond en noir, et que je fais un
undo, l'image apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine




















Avatar
Corona
Bonjour Antoine,
Je ne sais pas si j'ai bien compris ce que tu cherches.
Pour créer un filigrane, il faut afficher l'en-tête, insérer une zone de
texte et placer l'image dans cette zone de texte.
Philippe

Voici un exemple en VBA
********************************
Sub FiligraneInsert()
Dim MonImage As String
MonImage = "C:Mes PhotosPhilippeImage.jpg"
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddTextbox(msoTextOrientationHorizontal, _
52.85, 17.85, 172#, 172#).Select
With Selection.ShapeRange
.TextFrame.TextRange.Select
.Line.Visible = msoFalse ' Supprime le trait
.Left = CentimetersToPoints(-0.63)
.Top = CentimetersToPoints(2.2)
End With
Selection.InlineShapes.AddPicture FileName:=MonImage, LinkToFile:úlse,
SaveWithDocument:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
************************
"Antoine Moreau" a écrit dans le message de news:
%23isx$
Il s'avère en fait que la menu ajout de filigrane ajoute 3 shapes a
l'objet header ... je suis en train de regarder les propriétés de ces
headers, mais j'espère qu'il ne faut pas que je crée les 3 à la main :)


"Antoine Moreau" a écrit dans le message de news:
%
Merci, effectivement ça me permet d'avoir une image de fond, mais ça ne
donne pas le résultat que je veux :/

En fait le problème est que l'image insérée comme cela prends la taille
de l'entête. Hors mon image à un format de 21 par 29.7 et est cadrée pour
mettre un logo en haut a gauche et un liseré en bas ... la cadrage est
assez précis, et dépasse la taille de l'entête (qui elle contient
d'autres informations qui sont cadrées de façon normale)

Au final ta méthode n'ajoute pas un filigrane de la même façon que le
menu arrière plan, vu que celui-ci m'indique toujours "pas de filigrane"
quand je vais dedans. Hors cette méthode est exactement ce que je veux
...

Question bête : est ce qu'on peut accéder à la commande en déroulant par
code les menus ? Je suppose que oui, mais du coup ça ne marchera que sous
Word 2002 et 2003 non ?


Antoine

"Circé" a écrit dans le message de news:

Bonsoir Antoine,

Antoine Moreau avait énoncé :
Merci de ta réponse ... mais j'arrive pas a la suivre. Je cherche
effectivement a avoir un filigrane imprimé (j'ai exactement le résultat
que je veux en ajoutant le filigrane à la main dans Word, mais faut que
je le fasse a partir d'Access :) )

Je n'arrive pas a insérer une image en filigrane via l'entête. Est ce
que tu aurais les menus a sélectionner ou mieux, le code VBA qui le
fait ? :)


Essaie quelque chose comme cela :

Sub filigrane()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"c:mon_image".Select
'pour centrer
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Quabd les pros du VBA vont passer, ils vont corriger ça !!! :-D

(Je ne sais pas pourquoi, la fonction de recherche de la FAQ marche

plus chez moi :/)


Ah bon ? je vérifierai mais a priori ça fonctionne...

Circé
http://faqword.free.fr



NB : j'utilise un Word 2003, mais faudrait que le code final marche sur
un Word 2000 dans l'idéal


Comme je te disais, sur 2003, on a une fonction qui permet d'insérer un
filigrane, mais la méthode reste quand même artisanale !


"Circé" a écrit dans le message de news:

Bonjour,

Si tu cherches à insérer un filigrane imprimé, ce n'est pas la bonne
méthode.
En effet Background sert à insérer un arrière plan visible en mode
web. Ce n'est pas un filigrane.
En fait, l'insertion d'un filigrane passe par l'entête même si la
fonction existe officiellement par le menu Insertion (v 2002 et 2003),
ça passe qd même par l'insertion image en entête.

Circé
htpp://faqword.free.fr

Antoine Moreau avait prétendu :
Bonjour,

Je cherche a insérer un filigrane dans un document Word.
Malheureusement, je n'y arrive pas ... ou presque pas. J'utilise la
commande :

appWord.activedocument.Background.Fill.UserPicture "Fond.jpg"

et ça ne fait strictement rien. Sauf que si je met ensuite à la
main dans Word un remplissage du fond en noir, et que je fais un
undo, l'image apparaît !
Fill.visible = true
et
Background.visible = true
ne donnent rien, il doit me manquer une commande pour activer /
afficher le filigrane mais je ne la trouve pas ...


Merci d'avance


Antoine