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

Merge branch '121-macro-textes-alternatifs-le-style-se-met-sur-l-image' into 'master' 

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

Closes #121 and #122

See merge request fnso/i-fair-ir/modeles-stylage!31
parents 72d64e7e bd04eeb1

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