Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1146 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1989291
ctps51
Posté le 30-04-2010 à 23:49:44  profilanswer
 

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
 

mood
Publicité
Posté le 30-04-2010 à 23:49:44  profilanswer
 

n°1990524
dje69r
Arme de distraction massive
Posté le 05-05-2010 à 17:11:22  profilanswer
 

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 dje69r le 05-05-2010 à 17:12:01

---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Désactiver ponctuellement l'infobulle d'un lien avec balise phpdébutant en Visual basic besoin d un peut d aide
[VBA] ouvrir fichiers...aide pour tableau php !
Petit probleme de macro VBA sous Exceljsp + servlet questions de débutant
Besoin d'aide pour Mikrobasic [URGENT]VBA / Excel : Bug étrange ...
Plus de sujets relatifs à : VBA : débutant, besoind'aide pour une macro


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR