Commit 304e1c6d authored by Edith Cannet's avatar Edith Cannet
Browse files

ajout signature

parent 17a0d314

MS_Word/Metopes/COMMONS-Metopes.dotm

−1.56 KiB (296 KiB)

File changed.

No diff preview for this file type.

View original file
View changed file

MS_Word/Metopes/customUI/customUI14.xml

+1 −0
Changes for MS_Word/Metopes/customUI/customUI14.xml: 1 added line, 0 removed lines.
Original line number Diff line number Diff line
@@ -212,6 +212,7 @@ 
						<button getLabel="GetLabel" id="repliqTxt" onAction="replica"></button>

						<button getLabel="GetLabel" id="ligversTxt" onAction="versifiedreplica"></button>

					</menu>			

					<button getLabel="GetLabel" id="signature" onAction="signature" getVisible="GetVisibleExtended"></button>

					<menuSeparator id="separator14"></menuSeparator>

		

					<button getLabel="GetLabel" id="lienData" onAction="lienData" getVisible="GetVisibleExtended"></button>

MS_Word/Metopes/vba-internationalization/modules/i18n.bas

+6 −0
Changes for MS_Word/Metopes/vba-internationalization/modules/i18n.bas: 6 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -240,6 +240,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Titre 1<-sous-rubrique>"

        Case "auteursection"

        ReturnedVal = "Auteur de la section"

        Case "signature"

        ReturnedVal = "Signature"

        Case "localM"

        ReturnedVal = "Styles locaux"

        Case "TEIlocal"
@@ -753,6 +755,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
     ReturnedVal = "T" & ChrW(&HED) & "tulo 1<-subestructura>"

     Case "auteursection"

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

     Case "signature"

     ReturnedVal = "Firma"

     Case "localM"

     ReturnedVal = "Estilos locales"

     Case "TEIlocal"
@@ -1243,6 +1247,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Heading 1<-substructure>"

        Case "auteursection"

        ReturnedVal = "Section Author"

        Case "signature"

        ReturnedVal = "Sign"

        Case "localM"

        ReturnedVal = "Local styles"

        Case "TEIlocal"

MS_Word/Metopes/vba-internationalization/modules/txt2.bas

+3 −1
Changes for MS_Word/Metopes/vba-internationalization/modules/txt2.bas: 3 added lines, 1 removed line.
Original line number Diff line number Diff line
@@ -35,4 +35,6 @@ Sub TEIlocalinline(control As IRibbonControl) 
    Selection.style = ActiveDocument.Styles("TEI_localcar")

End Sub



Sub signature(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles("TEI_signature")

End Sub