VBA : débutant, besoind'aide pour une macro

VBA : débutant, besoind'aide pour une macro - VB/VBA/VBS - Programmation

Marsh Posté le 30-04-2010 à 23:49:44    

Bonsoir à vous.
 
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 automatiquement va insérer AVANT le mot ou le 1er mot des mots en gras (consécutifs) de mon texte (celà peut être une expression tout en gras constituée de plusieurs mots), une marque de paragraphe.
 
Exemple : j'ai vu un chat gris. Je préfère vraiment les chats noirs, il parait que ce celà porte bonheur.
 
Où là il faudrait insérer un marque de paragraphe avant le mot "gris" et avant le mot "vraiment"
 
J'ai commencé à faire ceci, mais après, je bute...
 
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 soirée à vous, Arnaud
 

Reply

Marsh Posté le 30-04-2010 à 23:49:44   

Reply

Marsh Posté le 05-05-2010 à 17:11:22    

Hello
 
Avec quelque chose comme ca, ca devrait le faire. Si j'ai bien tout compris, tu mets un saut de ligne des que le mot est en gras.
 

Code :
  1. Selection.WholeStory
  2. i = 0
  3. Position = Null
  4. Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
  5. For Each aword In myRange.Words
  6.     i = i + 1
  7.     If aword.Bold = True Then
  8.         ActiveDocument.Words(i).Select
  9.         Selection.InsertParagraphBefore
  10.         i = i + 1
  11.         Selection.WholeStory
  12.     End If
  13.    
  14. Next aword


 
Cordialement


Message édité par SuppotDeSaTante le 05-05-2010 à 17:12:01

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed