Besoin d'un peu d'aide sur VBA dans word - VB/VBA/VBS - Programmation
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.
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.
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. |
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...
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.
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