Re : Macro sous Word
Bon, là, j'suis vraiment coincée :
Sub MacroPointVirguleTEST()
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[,.;-^p]" ' --------------Rechercher point, virgule, pointvirgule, tiret, paragraphe
.Replacement.Text = "^t" 'Remplacer par tabulation
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "de l*^013" 'mettre une tabulation devant de la, du, d', de l', à la,
mais pas des
.Text = "d*^013"
.Replacement.Text = "^t\1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
pas terrible!!!
Ensuite il faut faire 5 fichiers contenant :
1) le nom (en rouge) + l'état civil (naissance décès fils de) dans un fichier
2) le nom (en rouge) + les décorations
en indigo) LH (légion d'honneur) pour l'instant on n'arrive pas à identifier LH car il paut y avoir devant chevalier etc...
ONM (ordre national du mérite) pareil il peut y avoir devant chevalier, GO (grand officier... c'est pas le club Med!) O. (officier) commandeur GC ou bien
Grand-croix
3) le nom (en rouge) + les oeuvres, archives, livre d'or etc... (en bleu)
4) le nom (en rouge) + le grade (en vert italique)
5) le nom en rouge + la carrière (tout ce qui reste en noir)
Ensuite dans ces 5 fichiers (en réalité 10 car j'ai 2 fichiers Word au départ : avant 1924 et après)
pour les décorations seulement : remplacer les marques de paragraphes par des tabulations, pour les 4 autres remplacer , . ; - marque de paragraphe par des tabulations, mettre des tabulations devant les dates et devant du de la de l' d' à la mais pas des
Oilà. J'essaie de constituer mes 5 fichiers, mais je ne sais pas comment le faire et je te demande humblement ton aide pour terminer ce projet (ensuite, le boulot se fera sous excel, mais à la fin, il faudra de nouveau faire un seul document word, avec les noms des gugus depuis l'origine, en gardant le gras italique pour la carrière (dont tous les éléments seront regroupés les uns à la suite des autres, par individu).
Je sais que je te demande beaucoup et que tu n'es pas trop dispo, et je te remercie de tous tes efforts, passés et à venir.
Big bisous et bon courage à toi. (pour me supporter! Lol!)
C@thy