Salut,
Je dois faire un développement dans word dans le cadre du boulot
But: si le document que l'on vient d'ouvrir est dans le répertoire H, il faut introduire en fond de page(ou filigramme) sur chaque page du doument. Mais s'il est copié dans un autre répertoire, il ne faut plus voir le filigramme.
Grosso modo, mon idée de départ est de créer un word art sur chaque page et de le transforme pour qu'il apparaîsse comme un filigramme.
Le gros problème, c'est qu'il faut que je les supprime dès la fermeture du document. Et je ne sais pas comment sélectionner uniquement les word art que j'ai créer à l'ouverture. 
Pouvez-vous m'aider à trouver comment l'on fait? cela fait 15 jours que je cherche mais rien ne fonctionne.
Si mes explication ne sont pas claire voici la première partie de ma macro (création et transformation du word art):
Dim Nom, Chemin As String
Dim NombrE As Integer
Dim PageS As Long
PageS = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticPages)
Nom = ActiveDocument.Path
Chemin = Left(Nom, 1)
NombrE = 1
If Chemin = "H" Then
For NombrE = 1 To PageS
'création de l'objet wordart
ActiveDocument.Shapes.AddTextEffect(msoTextEffect1, "INVALIDE", _
"Arial Black", 36#, msoFalse, msoFalse, 201.5, 229#).Select
'rotation objet (selection)
Selection.ShapeRange.IncrementRotation -60.6
'redimentionnement du wordart
Selection.ShapeRange.ScaleWidth 3.48, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 3.25, msoFalse, msoScaleFromTopLeft
'décale le wordart
Selection.ShapeRange.IncrementLeft 25.65
Selection.ShapeRange.IncrementTop -20.9
'change la couleur de fond et de la ligne
Selection.ShapeRange.Line.ForeColor.RGB = RGB(192, 192, 192)
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(231, 231, 231)
'mettre au dessous du texte
Selection.ShapeRange.ZOrder msoSendBehindText
'page suivante
With Application.Browser
.Next
End With
Next NombrE
End If
