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 :
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 ...![]()
Partager