Attribute VB_Name = "dysfriendly"
Sub dysfriendly()
Attribute dysfriendly.VB_Description = "Macro permettant de modifier un texte pour le rendre plus facilement lisible pour une personne atteinte de dyslexie. Auteur : F. LABROSSE"
Attribute dysfriendly.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.dysfriendly"
'
' dysfriendly Macro
' Macro permettant de modifier un texte pour le rendre plus facilement lisible pour une personne atteinte de dyslexie.
' Auteur : F. LABROSSE  college A. GIDE GODERVILLE   franck.labrosse@yahoo.fr
'
    With Selection.Font
        .Name = "Verdana"               ' changement de police
        .Size = 14                      ' changement de taille
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 2               ' changement d'espace entre les caractères
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 20                 ' espace après paragraphe
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpace1pt5    ' changement interligne 1.5 pt
        .Alignment = wdAlignParagraphLeft     ' justifer a gauche
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = False
        .FirstLineIndent = CentimetersToPoints(1.5)   ' retrait 1er ligne à 1.5 cm
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With

    With Selection.Find
        .Text = " %"
        .Replacement.Text = "%"          '  annule l'espace avant le pourcentage
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " "
        .Replacement.Text = "  "        ' double les espace entre les mots
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "."
        .Replacement.Text = " ."         ' met un espace après le point
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ","
        .Replacement.Text = " ,"             ' met un espace après la virgule
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Font.Italic = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = False
        .Italic = False
    End With
    With Selection.Find
        .Text = "*"
        .Replacement.Text = ""            ' annule l'italique
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub