Besoin d'un peu d'aide sur VBA dans word

Besoin d'un peu d'aide sur VBA dans word - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2006 à 13:40:57    

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

Reply

Marsh Posté le 27-06-2006 à 13:40:57   

Reply

Marsh Posté le 27-06-2006 à 13:49:45    

Bonjour,
Donne un nom particulier à tes "Word Art" quand tu les créés. Tu pourras les identifier pour la suppression.

Reply

Marsh Posté le 27-06-2006 à 14:04:17    

J'y ai déjà penser mais je ne sais pas quels est le code à utiliser. L'aide ne m'a rien apporter.
C'est pour cela que je viens demander de l'aide sur ce forum.

Reply

Marsh Posté le 27-06-2006 à 14:19:28    

Bulma7 a écrit :

J'y ai déjà penser mais je ne sais pas quels est le code à utiliser. L'aide ne m'a rien apporter.
C'est pour cela que je viens demander de l'aide sur ce forum.


si je me trompe pas, le mot qui apparait en filigramme est INVALIDE, donc tu te contentes par la suite de tester le texte de ton word art pour savoir si tu dois le supprimer ou non...

Reply

Marsh Posté le 27-06-2006 à 16:34:17    

Merci de cette lumière. Je me mets au boulot et je vous tiens au courant dès que cela fonctionne.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed