Discussion :

[Philou88]

Bonjour, Je suis un peu nouveau dans les macros Word.
J'ai un long texte et je veux mettre en gras tous les textes situés entre les mots "BEGIN" et "END".
J'ai trouvé des brides de réponse et je n'arrive pas à les assembler.
J'obtiens l'erreur 5941 "Le membre de l'action requis n'existe pas".

Code :

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

1
2
3
4
5
6
7
Sub TexteBold()
 
ActiveDocument.Range(ActiveDocument.Bookmarks("BEGIN").Range.Start, ActiveDocument.Bookmarks("END").Range.End).Select
 
Selection.Font.Bold = True
 
End Sub

Quelqu'un aurait une macro similaire de ce genre qui fonctionne ?

[Marc-L]

Bonjour,

tout dépend déjà si c'est un mot ou, comme dans le code, un signet ?!

Si c'est un mot, utiliser la méthode de recherche sinon il faudrait penser à créer les signets dans le document …


______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[Philou88]

Merci de l'aide, ca m'a donné la puce à l'oreille.
J'ai abandonné les signets et j'ai effectué le Find/Replace

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 TextBold()
    With Selection.Find
        .Text = "BEGIN*END"
        .MatchWildcards = True
        .Replacement.Font.Bold = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Philou88]

Ah! pour info, si la macro ne fonctionne plus, il faut fermer le document word et le rouvrir.
Je ne sais pas pourquoi, mais c'est comme cela pour que cela refonctionne !

[Heureux-oli]

Salut,

Parce que ça fonctionne sur une sélection et quand la sélection se trouve à la fin du document, la recherche s'arrête.

Avec un selection.HomeKey wdstory ça devrait le faire.

[Philou88]

Ouais, super cool, je ne connaissais pas les macros word ce matin, c'est quand même assez puissant
J'ai ajouté quelques options sur les modifs des fonts, ça peut servir à d'autres.

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
 
Sub TextBold()
    Selection.HomeKey wdStory
    With Selection.Find
        .Text = "BEGIN*END"
        .MatchWildcards = True
        .Replacement.Font.Bold = True
        .Replacement.Font.Size = 12
        .Replacement.Font.Underline = wdUnderlineSingle
        .Replacement.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Philou88]

Allez, pour info, un petit plus pour les novices, pour supprimer les balises.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub TexteDelete()
    Selection.HomeKey wdStory
    With Selection.Find
        .Text = "BEGIN"
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
End Sub