Discussion :

[Invité(e)]

Bonjour à tous,

J'ai un petit souci.

je suis vraiment débutant en VBA et je suis confronté à un problème particulier que je n'arrive pas à résoudre.

J'ai un fichier texte Word 2003 qui comporte des mots en style gras et en style normal.

je souhaite faire une macro qui
LIGNE pae LIGNE

va insérer après le 1er ":" et AVANT le mot ou le 1er mot des mots en gras (consécutifs) des autres expression de mon texte (celà peut être une expression tout en gras constituée de plusieurs mots), une marque de paragraphe.

Exemple pour la 1ère ligne :

gris : c'est une couleur Le bleu foncé : en est une autre, le noir : encore une autre

Où là il faudrait insérer un marque de paragraphe avant le groupe de mots "le bleu foncé :" et avant le mot "le noir :"

pour obtenir :

gris : c'est une couleur.
Le bleu foncé : en est une autre,
le noir : encore une autre

En fait cela revient à dire qu'il ne faut qu'une seule fois le ":" par ligne. la marque de paragraphe se mettant après au début de chaque mot ou expression en gras.

J'ai commencé à faire ceci, mais après, je bute...

Code :

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

1
2
3
4
5
6
7
With Selection.Find  
    .ClearFormatting  
    .Text = ""  
    .MatchWildcards = False  
    .Forward = True  
    .Font.Bold = 1  
 End With

J'espère ne pas trop vous importuner avec cette question et vous remercie d'avance pour votre indulgence face au grand débutant que je suis.

Bonne journée à vous, Arnaud

[Heureux-oli]

Salut,

Quelques explications !
La fonction recherche et remplacement en fonctionnera pas dans ton cas.
Il faut passer en revue tous les mots du texte pour faire quelques tests.
Le premier est de déterminer si le mot est en gras, si c'est le cas, on ajoute un paragraphe.
Le problème est que dans ce cas, la marque de paragraphe sera ajoutée devant tous les mots en gras.
Il faut donc utiliser un booléen qui basculera au premier mot pas en gras du texte pour signaler que la série des mots en gras est terminée.
Tant que l'on reste dans la série, on n'ajoute pas de paragraphe.

Essaie ce code :

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
Sub AjouterParaGras()
Dim secondmotPasG As Boolean
Dim myWD
 
For Each myWD In ActiveDocument.Words
'sélection du mot
myWD.Select
'Si le second mot est en gras
If secondmotPasG Then
 
'Test si le mot est en gras
If Selection.Font.Bold Then
Selection.InsertBefore vbCrLf
'Comme le mot est en gras, on bascule le booléen
secondmotPasG = False
 
End If
Else
'Si le mot suivant n'est pas en gras : fin de la série
If Not Selection.Font.Bold Then
secondmotPasG = True
End If
End If
 
 
Next myWD
 
End Sub

[Invité(e)]

Salut,

Quelques explications !
La fonction recherche et remplacement en fonctionnera pas dans ton cas.
Il faut passer en revue tous les mots du texte pour faire quelques tests.
Le premier est de déterminer si le mot est en gras, si c'est le cas, on ajoute un paragraphe.
Le problème est que dans ce cas, la marque de paragraphe sera ajoutée devant tous les mots en gras.
Il faut donc utiliser un booléen qui basculera au premier mot pas en gras du texte pour signaler que la série des mots en gras est terminée.
Tant que l'on reste dans la série, on n'ajoute pas de paragraphe.

Essaie ce code :

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
Sub AjouterParaGras()
Dim secondmotPasG As Boolean
Dim myWD
 
For Each myWD In ActiveDocument.Words
'sélection du mot
myWD.Select
'Si le second mot est en gras
If secondmotPasG Then
 
'Test si le mot est en gras
If Selection.Font.Bold Then
Selection.InsertBefore vbCrLf
'Comme le mot est en gras, on bascule le booléen
secondmotPasG = False
 
End If
Else
'Si le mot suivant n'est pas en gras : fin de la série
If Not Selection.Font.Bold Then
secondmotPasG = True
End If
End If
 
 
Next myWD
 
End Sub

MERCI, MERCI beaucoup !!!!

çà marche impeccable !!! C'est super !!! Vraiment un très grand merci pour ton aide !!!
Merci aussi à ceux qui ont réflechi au problème. Merci à vous tous !

Un très grand MERCI Heureux !!!

[Alain_06]

Bonjour à vous tous et plus particulièrement à toi Heureux Oli.
Je viens de trouver ta solution pour les marques de paragraphe et je dois dire que cela fonctionne parfaitement dans la mise en forme de mes fiches.
Encore un grand merci pour ton travail et le fait que nous puissions, nous humbles manipulateurs d'Office, utiliser tes vastes connaissances.
Cordialement.