Commit bd04eeb1 authored by RIVIERE Jean François's avatar RIVIERE Jean François
Browse files

Resolve "Macro "Textes alternatifs" - le style se met sur l'image"

parent 72d64e7e

MS_Word/OpenEdition/vba/feuilles/language_selector.frm

+0 −1
Changes for MS_Word/OpenEdition/vba/feuilles/language_selector.frm: 0 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -154,7 +154,6 @@ Private Sub UserForm_Initialize() 
        .AddItem "pl | Polish"

        .AddItem "ps | Pashto"

        .AddItem "qu | Quechua"

        .AddItem "rc | Reunionese"

        .AddItem "rm | Romansh"

        .AddItem "rn | Kirundi"

        .AddItem "ro | Romanian"

MS_Word/OpenEdition/vba/modules/apply_figure.bas

+3 −0
Changes for MS_Word/OpenEdition/vba/modules/apply_figure.bas: 3 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -33,12 +33,15 @@ Sub InsertAltTextCaptions(control As IRibbonControl) 
    With ActiveDocument

        For i = 1 To .InlineShapes.Count

            AltTextCaption = .InlineShapes(i).AlternativeText

            AltTextCaption = Replace(AltTextCaption, ChrW$(10), " ")

            If AltTextCaption <> "" Then

                Set ImageRange = .InlineShapes(i).Range

                ImageRange.Collapse Direction:=wdCollapseEnd

                ImageRange.InsertAfter vbCr

                ImageRange.InsertAfter AltTextCaption

                Set AltTextParagraph = ImageRange.paragraphs.Last

                AltTextParagraph.style = ActiveDocument.Styles("TEI_figure_alttext")

            End If

        Next

    End With

End Sub