Commit b7c63e43 authored by Edith Cannet's avatar Edith Cannet
Browse files

planches

parent ad747e9b

MS_Word/Metopes/vba/modules/figures.bas

+11 −2
Changes for MS_Word/Metopes/vba/modules/figures.bas: 11 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -36,8 +36,17 @@ End Sub 
Sub mmlpara(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles("TEI_formula-mml")

End Sub





Sub figuregrp_section(control As IRibbonControl)

    Dim startPara As String

    Dim endPara As String

    Dim characterToRepeat As String

    Dim repeatEmdash As Integer

    characterToRepeat = ChrW(&H2014)

    repeatEmdash = 50

    startPara = ChrW(&H2014) & " <figure-grp> " & String(repeatEmdash, characterToRepeat)

    endPara = ChrW(&H2014) & " </figure-grp> " & String(repeatEmdash, characterToRepeat)

    Call section("TEI_figure-grp_start", startPara, "TEI_figure-grp_end", endPara)

End Sub

Sub figure_section(control As IRibbonControl)

    Dim startPara As String

    Dim endPara As String

MS_Word/Metopes/vba/modules/i18n.bas

+12 −0
Changes for MS_Word/Metopes/vba/modules/i18n.bas: 12 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -192,6 +192,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Encadr" & ChrW(&HE9) & "s"

        Case "floatingTextTitle"

        ReturnedVal = "Titre encadr" & ChrW(&HE9)

        Case "auteursection2"

        ReturnedVal = "Auteur de la section"

        Case "focus"

        ReturnedVal = "adenc<Focus>"

        Case "floatingText"
@@ -427,6 +429,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Illustrations, tableaux, formules"

        Case "PictureInsertLink2"

        ReturnedVal = "Lier une image"

        Case "figuregrp_section"

        ReturnedVal = "section planche"

        Case "figure_section"

        ReturnedVal = "section figure"

        Case "illtitre"
@@ -709,6 +713,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
     ReturnedVal = "Cuadros"

     Case "floatingTextTitle"

     ReturnedVal = "T" & ChrW(&HED) & "tulo del cuadro"

     Case "auteursection2"

     ReturnedVal = "Autor de secci" & ChrW(&HF3) & "n"

     Case "focus"

     ReturnedVal = "adenc<Focus>"

     Case "floatingText"
@@ -925,6 +931,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
     ReturnedVal = "Ilustraciones, tablas, f" & ChrW(&HF3) & "rmulas"

     Case "PictureInsertLink2"

     ReturnedVal = "Vincular una imagen"

     Case "figuregrp_section"

     ReturnedVal = "secci" & ChrW(&HF3) & "n l" & ChrW(&HE1) & "rmina"

     Case "figure_section"

     ReturnedVal = "secci" & ChrW(&HF3) & "n figura"

     Case "illtitre"
@@ -1203,6 +1211,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Floating Texts"

        Case "floatingTextTitle"

        ReturnedVal = "FloatingText Title"

        Case "auteursection2"

        ReturnedVal = "Section Author"

        Case "focus"

        ReturnedVal = "adenc<Focus>"

        Case "floatingText"
@@ -1358,6 +1368,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Illustrations, Tables, Formulas"

        Case "PictureInsertLink2"

        ReturnedVal = "Insert Picture"

        Case "figuregrp_section"

        ReturnedVal = "Figure group Section"

        Case "figure_section"

        ReturnedVal = "Figure Section"

        Case "illtitre"