Discussion :

[Golard]

Bonjour,

Je souhaite localiser tout le texte dans un style style 1 pour le passer dans le style 2.

J'ai consulté le tutoriel de heureux-oli, mais je n'arrive pas à faire fonctionner les exemples.

Voici la procédure que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub StylesRemplace2()
 
    Debug.Print "-----------------------------------------"
    Debug.Print "--------- StylesRemplace2 --------------- " & Time
    Debug.Print "-----------------------------------------"
    Debug.Print "ActiveDocument = " & ActiveDocument.Name
 
    'Selection de tout le document
    ActiveDocument.Select
    Selection.ClearFormatting
    Selection.WholeStory
    'Selection.HomeKey unit:=wdStory
 
    'Recherche et remplacement du style Titre 1
    With Selection.Find
        .ClearFormatting
        .Style = "Titre 1"
        '.Forward = True
        '.NoProofing = True
        .Replacement.ClearFormatting
        .Replacement.Style = "Titre 2"
        .Execute Replace:=wdReplaceAll  ', FindText:="", Format:=True
        Debug.Print "Found= " & CStr(.Found)
        'If .Found = True Then
        '    Debug.Print "Found !"
        'End If
    End With
 
End Sub

La procédure écrit "Found = False", alors que le style "Titre 1" est bien présent dans le document ???

De plus ce code me supprime toute la mise en forme du document !

Quelqu'un pourrait-il m'indiquer les erreurs que j'ai pu faire ?

Merci d'avance.

[Heureux-oli]

Salut,

Je viens de faire un test en vitesse et voilà ce que j'obtiens comme code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TestOli()
 
Selection.HomeKey unit:=wdStory
 
Selection.Find.ClearFormatting
 
 
With Selection.Find
    .Style = "Heading 1"
    .Forward = True
    .Replacement.Style = "Heading 2"
    .Execute2007 Replace:=wdReplaceAll
 
End With
 
 
End Sub

Je remplace les "Titre 1" par "Titre 2"

[Golard]

Au cours de mes tests j'avais fini par ajouter la ligne "Selection.ClearFormatting"
C'est elle qui mettait la semoule !!!

Il suffit de la retirer et ça fonctionne...
J'ai trouvé en comparant à ton code... Merci Oli !

Pour clore le dossier:

• La ligne "Forward = True" de ton code ne change rien au résultat ... faut-il la mettre par précaution ?
• La ligne ".Replacement.ClearFormatting" de mon exemple me semble souhaitable, l'as-tu retirée volontairement ?
• Enfin faut-il utiliser Execute ou Execute2007 (finalement les deux fonctionnent). Execute2007 est-il réservé à Office 2007 ???

[Heureux-oli]

Salut,

Elle ne devrait normalement rien changer, mais par mesure de précaution, je l'ajoute chaque fois.
C'est juste un argument que je ne laisse pas défaut.

[Golard]

Ok, merci, c'est noté !
J'utiliserai moi aussi "Forward = True" par sécurité.

Par contre je suis plus inquiet concernant les fonction Execute et Execute2007... Quelle est la différence ?

L'aide msdn n'est pas claire à ce sujet
Execute: http://msdn.microsoft.com/fr-fr/libr...ice.15%29.aspx
Execute2007: http://msdn.microsoft.com/fr-fr/libr...ice.15%29.aspx

Mon code tourne actuellement sous office 2007, mais devra tourner prochainement sur office 2010. Laquelle des 2 fonctions dois-je utiliser ?

[Heureux-oli]

Salut,

Depuis 2007, j'utilise Execute2007, mais je confirme, c'est pas clair.

[Golard]

Merci Oli !

Je vais donc utiliser de préférence Execute2007 pour mon code actuellement sous Office 2007, et bientôt sous Office 2010 / 2013.

Si quelqu'un a d'autres précisions sur le sujet n'hésitez pas

En attendant, je marque le sujet comme résolu car mes prochaines questions risquent de nous éloigner du sujet initial.
A bientôt sur d'autres posts