[WD-2003] conversion d'une macro word 2000 en 2003 [Résolu]

[JYPIQ62]

Bonjour,

Je suis novice sur le forum, j'espère être suffisamment explicite.
Voici mon problème, j'ai créé une macro sous word 2000 qui ne fonctionne plus avec word 2003 ou 2007.

la voici:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ConvertConstats()
' Surligne Constats.
Dim i, pos1, pos2 As Integer
Dim vrange As Range
With ActiveDocument
For i = 0 To .Characters.Count - 1
If i < .Characters.Count Then pos1 = i
If pos1 + 9<= .Characters.Count Then
pos2 = pos1 + 9
Else
pos2 = pos1
End If
Set vrange = ActiveDocument.Range(pos1, pos2)
If vrange.Text = "Constats." Or vrange.Text = "constats" Then
vrange.Font.Underline = wdUnderlineSingle
End If
Next i
End With
End Sub

Le but tout simple est de SURLIGNER tous les mots constats d'un document.
Bien entendu ce n'est pas mon seul mot.

J'ai essayé de le faire avec une nouvelle macro trouver sur ce forum mais les mises en forme des diffèrents mots se mélangent...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Textes()
'souligner textes
Selection.HomeKey unit:=wdstory
Selection.Find.ClearFormatting
 With Selection.Find
    .Format = False
    .Text = "Textes"
.Replacement.Text = "Textes"
    .Forward = True
    .Replacement.Font.Underline = wdUnderlineSingle
    .Execute Replace:=wdReplaceAll
End With
End Sub

Merci pour votre aide.

[carden752]

Bonjour,

Déjà une remarque sur la déclaration de variables

Envoyé par JYPIQ62

Code :

Dim i, pos1, pos2 As Integer

i et pos1 sont de types variants, seul pos2 est un entier

La syntaxe correcte est celle-la

Code :

Dim i As Integer, pos1 As Integer, pos2 As Integer

Envoyé par JYPIQ62

J'ai essayé de le faire avec une nouvelle macro trouvée sur ce forum mais les mises en forme des diffèrents mots se mélangent...

Que veux-tu dire par là, le texte n'est pas sensible à la casse ni au format précédent ?
Pourtant cette macro ne fait bien que remplacer et souligner le mot texte et écrire "Textes" exactement comme cela.

[Heureux-oli]

Salut,

Si c'est un simple soulignement des mots trouvés, le plus simple est d'utiliser l'enregistreur de macro et d'utiliser la macro obtenue.

Un exemple obtenu :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Underline = wdUnderlineThick
    With Selection.Find
        .Text = "metus"
        .Replacement.Text = "metus"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

De plus la fonction recherche et remplacement de Word est très puissante, ce qui rend le code beaucoup plus rapide.

A toi de voir.

[JYPIQ62]

Code :

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
30
31
32
33
34
35
36
37
Sub Miseenformedoc()
'
' mise en forme doc'
    Application.Run MacroName:="ConvertLOARIAL11"
   Application.Run MacroName:="Texte"
   Application.Run MacroName:="Constats"
End Sub
 
Sub Textes()
'souligner textes
Selection.HomeKey unit:=wdstory
Selection.Find.ClearFormatting
 With Selection.Find
    .Format = False
    .Text = "Textes"
    .Replacement.Text = "Textes"
    .Forward = True
    .Replacement.Font.Underline = wdUnderlineSingle
    .Execute Replace:=wdReplaceAll
End With
End Sub
Sub Constats()
' souligner et mettre en gras et aligner à gauche constats
Selection.HomeKey unit:=wdstory
Selection.Find.ClearFormatting
 
With Selection.Find
    .Format = False
    .Text = "Constats."
.Replacement.Text = "Constats."
    .Forward = True
    .Replacement.Font.Underline = wdUnderlineSingle
    .Replacement.Font.Bold = wdToggle
    .Replacement.ParagraphFormat.Alignment = wdAlignParagraphLeft
    .Execute Replace:=wdReplaceAll
End With
End Sub

Au final en executant la macro des fois elle met "textes" en gras mais aussi parfois elle remplace également le mot par constats... et souligne constats

Et pour le coup ce n'est pas du tout ce que j'ai programmé. Est-ce un bug de mon micro?

[Heureux-oli]

Salut,

Si ce qui te tracasses est de faire tourner plusieurs fois la macro avec des mots différents, tu peux faire une boucle dans la même macro ou une boucle qui passe en paramètre le mot de recherche pour une fonction ou sub.

Voilà ce que ça pourrait donner :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Miseenformedoc()
'
' mise en forme doc'
RemplacementTextes StrAChercher:="Textes"
RemplacementTextes strachcercher:="Constats."
 
 
End Sub
 
Sub RemplacementTextes(StrAChercher As String)
'souligner textes
Selection.HomeKey unit:=wdStory
Selection.Find.ClearFormatting
 With Selection.Find
    .Format = False
    .Text = StrAChercher
    .Replacement.Text = StrAChercher
    .Forward = True
    .Replacement.Font.Underline = wdUnderlineSingle
    .Execute Replace:=wdReplaceAll
End With
End Sub

[JYPIQ62]

merci