Discussion :

[suckthewindow]

Bonjour,
je souhaiterai convertir le code VBA suivant en code VBScript:

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
 
Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Pour ma Selection est le document en cour, ou je me trompe peut etre, j'ai donc essayer de remplacer Selection par wdo.ActiveDocument (wdo etant un object Word.Application).

Des idées ?

[suckthewindow]

Il suffisait de faire wdo.Selection....