Discussion :

[benos59]

Bonjour à tous et à toutes.

Je souhaite executer une macro Word depuis une application VB 6.0. Or lors de l'appel à cette macro (objword.Run "function_GetBold"), j'obtiens le message : "Impossible d'éxécuter la macro spécifiée"

Le code de la Macro est :

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
30
31
32
33
34
35
36
37
38
39
Public Sub fonction_GetBold()
    getBold "IF "
    getBold "THEN"
    getBold "FOR "
    getBold "ELSE"
    getBold "ENDIF"
    getBold "ENDFOR"
    getBold "NULL"
    getBold "CASE "
    getBold "ENDCASE"
    getBold "EXITFOR"
    getBold "WHEN "
    getBold "WHILE "
    getBold "ENDWHILE"
    getBold "EXITWHILE"
    getBold "ELSIF "  
End Sub
 
 
Private Sub getBold(s As String)
        ActiveDocument.Select
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = s
            .Replacement.Text = s
            .Replacement.Font.Bold = True
            .Replacement.Font.Italic = False
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Le problème provient de l'appel et non du code. Mais au moins vous avez toute les cartes en main...

Merci d'avance.

[SilkyRoad]

bonjour

dans ta macro tu indiques

objword.Run "function_GetBold"),

et dans Word tu sembles avoir

Public Sub fonction_GetBold()


bonne soiree
michel