VBA Word - Rechercher Italic dans notes

Bonjour,

Je recherche une macro pour trouver les styles Italic dans les notes et insérer une balise <em> devant et </em> derrière.

Je me suis inspiré de la Macro "CidCedille" concernant la mise de notes en HTML (c'est une macro de conversion vers HTML)

voici le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
Public Sub Traitement_des_notes()
'
' Copie des notes à la fin du document. Renumérotation
'
    Dim Note As Footnote
    Dim avant As String, apres As String
    Dim num As Integer
 
    ' Conversion des notes de fin en notes de bas de page
    If ActiveDocument.Endnotes.Count > 0 Then ActiveDocument.Endnotes.Convert
    If ActiveDocument.Footnotes.Count = 0 Then Exit Sub
 
    ' Type d'appel
    If OPT_APPEL_NOTE = "C" Then
        avant = "[": apres = "]"
    ElseIf OPT_APPEL_NOTE = "P" Then
        avant = "(": apres = ")"
    Else
        avant = "": apres = ""
    End If
 
    ' Barre horizontale
    ActiveDocument.Paragraphs.Add
    PARAG_insert Bloc:=ActiveDocument.Characters.Last, Chaine:="<HR>"
 
    ' Déplacement des notes
    num = 1
    For Each Note In ActiveDocument.Footnotes
        CARAC_insert Bloc:=Note.Reference, Chaine:=avant & "<A href=""#note" & Format(num) & """ name=""appel" & Format(num) & """>" & Format(num) & "</A>" & apres
        CARAC_insert Bloc:=ActiveDocument.Characters.Last, Chaine:=avant & "<br><A href=""#appel" & Format(num) & """ name=""note" & Format(num) & """>" & Format(num) & "</A>" & apres
        Note.Range.Copy
        ActiveDocument.Characters.Last.Paste
        Note.Delete
        ActiveDocument.Paragraphs.Last.Style = ActiveDocument.Styles(STY_NOTE)
        ActiveDocument.Paragraphs.Add
        num = num + 1
    Next
    ActiveDocument.Characters.Last.Delete
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Note_Click()
'
' Insertion d'une note (bas de page)
'
    Dim boite As Dialog
 
    Set boite = Dialogs(wdDialogInsertFootnote)
    If boite.Display <> -1 Then Exit Sub
 
    With Selection
    ' Appel avec espace insécable
        .Collapse Direction:=wdCollapseStart
        .InsertAfter Text:=Chr(160)
        .Style = ActiveDocument.Styles(STY_POLD)
        .Collapse Direction:=wdCollapseEnd
    End With
    boite.Execute
 
    With Selection
    ' Note avec tabulation
        .StartOf unit:=wdCharacter, Extend:=wdExtend
        .Text = vbTab
        .Collapse Direction:=wdCollapseEnd
    End With
End Sub

Cette macro copie les notes en bas de page, puis génère les liens en HTML, mais pour mettre des balises sur les mots en italic, je ne trouve pas comment faire...

J'utilise une autre macro pour rechercher tout les italic dans le document, mais celle-ci ne recherche pas dans les notes...

merci de m'Helper ... :wink: