Discussion :

[chouleth]

Bonjour,
Je souhaiterais dans un document word remplacer tout texte ou phrase en italique par son code html par exemple : blabla blabla et bla par <i>blabla blabla et bla</i>
et tous les textes en exposant par son code : 1^er par 1^er, idem pour les gras et la marque de fin de paragraphe par <P>.
J'ai enregistré une macro, pour l'italique mais elle m'ajoute une espace en début de phrase et j'obtiens, par exemple, à la place de l'ordre franciscain l'<i> ordre franciscain</i>
voici le code de ma macro :

Sub italic_html()
'
' italic_html Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Font.Italic = wdToggle
Selection.Cut
Selection.TypeText Text:="<i>"
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeText Text:="</i>"
Selection.Find.ClearFormatting
Selection.Find.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub

Mais je ne maitrise pas suffisamment le VBA pour me lancer dedans
Je vous remercie d'avance.
Choulth