Discussion :

[moha93]

Salut à toutes et à tous,

J'ai déjà travaillé avec VBA excel mais avec VBA word je suis dévutant, et là j'ai une petite question :
dans un fichier word j'ai des paragraphes structurés de la manière suivante:

Code :

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

1
2
3
4
5
6
7
8
9
... 
[mot-clé1]
.....
[end mot-clé1]
....
[mot-clé2]
.....
[fin mot-clé2]
...

l'idée n'est pas trop complexe il s'agit juste de copier tout ce qui est entre [mot-cléX] et [fin mot-cléX] dans des fichiers mot-cléX.docx
il y aura donc autant de fichiers que de mots-clé (voir un petit exemple de test en PS)
pour la création des fichiers c'est simple j'utilise :

Code :

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

1
2
 
Windows("mot-clé1").Activate

donc je cherche des propositions ou des fonctions qui peuvent m'aider

et merci d'avance ^_^

[Heureux-oli]

Salut,

Je pense qu'avec un signet pour le départ et un signet pour la fin, on peut sélectionner tout ce qui est entre les deux signets.
Faire une copie et coller dans un nouveau document.

On peut même envisager de couper au lieu de coller et de ne pas faire de sauvegarde du premier document quand c'est terminé.

Pour les signets sur les balises, on peut envisager une recherche avec la fonction Find de Word.

[moha93]

merci heureux pour ta réponse

en fait ce que j'ai pu faire à l'instant c'est chercher le mot clé avec find et après je ne sais pas quoi faire, si je fais find avec "[fin mot-clé]" je perdrai la première sélection

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
40
Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
With Selection.Find
        .Text = "[mot-clé1]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
 
With Selection.Find
        .Text = "[fin mot-clé1]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
 
Selection.Copy
'etc etc

mon nouvel objectif est de sélectionner depuis [motclé] jusqu'au [fin motclé]
et après tout sera simple
comment faire?


cordialement

[Heureux-oli]

Salut,

Lorsque tu as trouvé les mots, tu ajoutes des signets.
Pour sélectionner la plage entre les deux signets : http://word.developpez.com/faq/?page...rs_PlageSignet