arriere plan word

[battit64]

Bonjour,
je voudrais afficher un arriere plan derriere une page word afin de servir de guide.seulement à l'impression et à l'enregistrement de la page word je ne veux pas que l'arriere plan soit visible mais seulement le texte(tout simplement car ce sont des feuilles pré imprimé)
si quelqu'un peut m'aider c'est urgent.............

[Heureux-oli]

Tu peux choisir dans les options d'impression de ne pas imprimer les images.

Bouton Office
Options Word
Affichage
Options d'impression

[battit64]

oui mais je veux pouvoir ecrir par dessus le fond (qui est une affiche A3 en faite) et je vais via une application en windev enregistrer sous le fichier .doc et je veux qu'il ne s'enregistre que le texte

[battit64]

je penses qu'il me faut un filigrame personnalisé mais comment fait t'on pour eviter qu'il ne s'enregistre ou qui s'imprime

[Heureux-oli]

L'enregistrement, tu ne peux l'éviter.
Seule l'impression sans est possible.

Si ton image se trouve dans un modèle, tu peux toujours l'enlever par VBA.

Si elle se trouve sous ton texte, ce sera un objet Shapes.

[battit64]

ou plutot peut etre comment desactiver un filigramme en vba

[Heureux-oli]

Le désactiver n'existe pas même dans l'interface graphique.
Je ne sais pas comment tu génères ton document, si c'est au départ d'un modèle.

si c'est au départ d'un modèle, tu peux dès que tu as terminé avec ton document, supprimer le filigrane.
Un filigrane est un simple objet graphique.

Pour l'enlever :

Code :

1
2
 
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1).Delete

[battit64]

ça marche pas je suis en office 2007, voila ce que ça me crée lorsque je fais une macro enregistré:

Code :

1
2
3
4
5
6
   ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("WordPictureWatermark28624705").Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    WordBasic.RemoveWatermark

[Heureux-oli]

C'est assez currieux !

Je te donne un code que je viens d'écrire et d'essayer.
tu m'en donnes un autre en me disant que ça ne marche pas !

As-tu essayé le code que j'ai posté !

[battit64]

oui j'ai essayé ton code mais il fonctionne pas

[battit64]

mais je prefere le tiens car il est plus generaliste moi c'est en faisant un enregistrement de macro que j'ai eu ceci le probleme c'est que je vais chercher le filigramme dans mes documents.A moins comment fait on pour enregistrer un filigramme dans les modeles en sahant que mon bouton est grisé?

[Heureux-oli]

Que se passe-t-il ?

Où se trouve ton image ?
Je me suis basé sur le principe que les filigranes se trouvent dans l'entête du document et que ton document ne comporte qu'une seule section et que toutes les pages sont identiques.

Ça fait beaucoup de suppositions !

[battit64]

en fait c'est une page A3 sans entete ni marge (rien) car c'est une affiche A3 et le filligramme fait la totalité de la page A3 (en fait c'est un dessin sur l'affiche et le texte doit etre taper dans une zone de blanc à peut prés au milieu de l'affiche c'est pour ça que l'utilistateur a beosin d'un guide .Par la suite il faut enregistrer cette affiche (car il y a plusieur versions de textes dans la journée) et supprimer le filligramme car il y a un batch qui recupere es differents .doc et les immprime automatiquement avec plus au moins de nomnbre quidé par une base de donnée

[Heureux-oli]

Essaye de compter les shapes de ton document pour voir

Code :

1
2
 
MsgBox ActiveDocument.Shapes.count

Dis-moi ce que ça donne !

[battit64]

cela donne 0, désolé j'étais parti

[Heureux-oli]

Le but est de trouver dans quelle partie de ton document ton filigrane se trouve.

Par Défaut 2007 le met dans l'en-tête.

Pourrais tu mettre une copie de ton document sur le forum.

[battit64]

Merci, je t'envoie le fichier , j'ai crée une affiche d'exemple (au format A3) car je n'ai pas encore scanné mes affiches pré imprimé.
Pour toi , pour enregistrer le doucment sans le filligrame , la macro est elle le seul moyen?
si c'est ça je me vais essayer de me dépatouiller avec OLE automation sur windev afin d'executer le macro via windev lors de la validation de l'utilisateur

[battit64]

j'ai oublié le fichier doc

[Heureux-oli]

Essaie ceci

Code :

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Byte
 
'ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1).Delete
Debug.Print ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count
For i = 1 To ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(i).Delete
Next i
End Sub

[battit64]

ah oui si c'est pas trop demandé comment fais t'on (je suppose en vba) pour enlever tous les menus et ne garder seulement que la partie police (taille et choix de la police) alignement.... voire meme qu'il ne reste que la feuille word car je peux le commander via windev