Discussion :

[ciola]

Bonjour à tous,
je suis débutant et c'est ma première macro en vba.
Voilà, j'aimerais changer un texte dans plusieurs documents. Le problème, c'est que tous mes textes se trouvent dans des cadres textes qui peuvent être groupés ensemble. Voici où j'en suis aujourd'hui.

Code :

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

1
2
3
4
5
6
7
8
9
Sub ScanDossier()
    On Error Resume Next
    Dim sh, f, fold
    Set sh = CreateObject("Shell.Application")
    Set f = sh.BrowseForFolder(0, "", 592)
    fold = f.Items.Item.Path
    If Err.Number <> 0 Then Exit Sub
    TraiteDossier fold
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TraiteDossier(fold)
    Dim f, fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    For Each f In fs.getFolder(fold).Files
        If Right(f.Name, 5) = ".docx" Then traiteFic (f)
    Next
    For Each f In fs.getFolder(fold).Subfolders
        TraiteDossier f.fullpath
    Next
End Sub

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
Sub traiteFic(f)
    Documents.Open FileName:=f
 
     For Each S In ActiveDocument.Shapes
        For Each it In S.Item
        Set myRange = it.Range
       With myRange.Find
        .Text = "angle"
        .Replacement.Text = "secteur angulaire"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveDocument.Close wdSaveChanges
        Next it
   Next S
 
End Sub

Mon problème se situe sur la procédure traiteFic().
J'aimerais pouvoir parcourir toutes les frames et tous les cadres textes pour remplacer tous les mots angle par secteur angulaire
D'avance merci.

[Heureux-oli]

Salut,

Si c'est pour un remplacement, pourquoi ne pas utiliser la fonction recherche et remplacement de Word ?

http://heureuxoli.developpez.com/off...-et-remplacer/

[ciola]

Bonjour,
sans macro, il faut que je répète l'opération sur plus d'une centaine de fichiers , c'est pour cela que j'essaie de faire une macro.

[Heureux-oli]

Salut,

Il y a un exemple dans le lien que je t'ai donné.

[ciola]

Bonjour,
désolé mais je n'ai rien vu concernant le parcours des frames et des cadres textes.

[Heureux-oli]

Salut,

Currieusement, la recherche fonctionne totalement en mode graphique, mais pas en mode vba.

Voilà ce que je viens d'utiliser commecode :

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
Sub RechercheDansCadre()
With Selection.Find
    .Text = "tables"
    .Replacement.Text = "Olivier"
    .Forward = True
    .Wrap = wdFindContinue
 
    .Execute Replace:=wdReplaceAll
End With
 
 
End Sub
 
Sub testsurrange()
Dim InSh As InlineShape
Dim Sh As Shape
 
For Each InSh In ActiveDocument.InlineShapes
InSh.Select
RechercheDansCadre
Next InSh
 
For Each Sh In ActiveDocument.Shapes
Sh.Select
RechercheDansCadre
Next Sh

[ciola]

Merci beaucoup,
ça marche nickel mais je ne comprends pas pourquoi, mais c'est normal car c'est la première fois que je fais du VBA.

[Heureux-oli]

Merci beaucoup,
ça marche nickel mais je ne comprends pas pourquoi, mais c'est normal car c'est la première fois que je fais du VBA.

Si tu nous dis ce que tu ne comprends pas, possible qu'on puisse te donner une explication.