Commit 4b195181 authored by Edith Cannet's avatar Edith Cannet
Browse files

styles chroniques archeo

parent c9e97abc

MS_Word/Metopes/customUI/customUI14.xml

+1 −7
Changes for MS_Word/Metopes/customUI/customUI14.xml: 1 added line, 7 removed lines.
Original line number Diff line number Diff line
@@ -308,20 +308,14 @@ 
			<group id="grp10" getVisible="GetVisibleArcheo">

				<menu getLabel="GetLabel" id="archeo">

					<menuSeparator id="archeo_article" getTitle="GetTitle"/>

					<menu getLabel="GetLabel" id="archeo_roles">

						<button getLabel="GetLabel" id="archeo_name_fld_inline" onAction="archeo_name_fld_inline"></button>

					</menu>

					<button getLabel="GetLabel" id="archeo_fieldwork_date" onAction="archeo_fieldwork_date"></button>

					<button getLabel="GetLabel" id="archeo_fieldwork_team" onAction="archeo_fieldwork_team"></button>

					<button getLabel="GetLabel" id="archeo_nat_authority" onAction="archeo_nat_authority"></button>

					<button getLabel="GetLabel" id="archeo_fieldwork_holder" onAction="archeo_fieldwork_holder"></button>



					<button getLabel="GetLabel" id="archeo_IDmission" onAction="archeo_IDmission"></button>

					<button getLabel="GetLabel" id="archeo_keywords_pactols" onAction="archeo_keywords_pactols"></button>

					<menuSeparator id="archeo_records" getTitle="GetTitle" />

					<menu getLabel="GetLabel" id="archeo_titles">

						<button getLabel="GetLabel" id="archeo_title" onAction="archeo_title"></button>

					</menu>

					<button getLabel="GetLabel" id="archeo_type" onAction="archeo_type"></button>

					<menu getLabel="GetLabel" id="archeo_authorities">

						<button getLabel="GetLabel" id="archeo_authority" onAction="archeo_authority"></button>

						<button getLabel="GetLabel" id="archeo_coord_inline" onAction="archeo_coord_inline"></button>

MS_Word/Metopes/vba/modules/archeo.bas

+32 −53
Changes for MS_Word/Metopes/vba/modules/archeo.bas: 32 added lines, 53 removed lines.
Original line number Diff line number Diff line 
Attribute VB_Name = "archeo"

Sub archeo_title(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles(wdStyleTitle)

End Sub

'Sub archeo_t2(control As IRibbonControl)

'    Selection.style = ActiveDocument.Styles("Titre 2-rubrique")

'End Sub

'Sub archeo_t3(control As IRibbonControl)

'    Selection.style = ActiveDocument.Styles("Titre 3-notice")

'End Sub

'Sub archeo_sst3(control As IRibbonControl)

'    Selection.style = ActiveDocument.Styles("TEI_archeo-soustitre")

'End Sub

'Sub archeo_t4(control As IRibbonControl)

'    Selection.style = ActiveDocument.Styles(wdStyleHeading4)

'End Sub

'Sub archeo_fieldwork_nature(control As IRibbonControl)

'    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_nature")

'End Sub

Sub archeo_coord_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_coord_inline")

End Sub

Sub archeo_resp_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_resp_inline")

End Sub

Sub archeo_redac_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_redac_inline")

End Sub

Sub archeo_authorresp_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_authorresp_inline")

End Sub

Sub archeo_affiliation_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_affiliation_inline")

End Sub

Sub archeo_authority(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_authority")

Sub archeo_type(control As IRibbonControl)

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

End Sub

Sub archeo_IDpatriarche(control As IRibbonControl)

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

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

End Sub

Sub archeo_reportlink(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_reportlink")

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_reportlink")

End Sub

Sub archeo_fieldwork_nature(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_nature")

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_fieldwork_method")

End Sub

Sub archeo_keywords_subjects_excavationyear(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles("TEI_keywords_subjects:excavationyear")

End Sub

Sub archeo_keywords(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_keywords")

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_keywords_subjects")

End Sub

Sub archeo_keywords_chrono(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_keywords:chrono")

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_keywords_subjects:chronology")

End Sub

Sub archeo_link(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_link")

End Sub

'Sub archeo_bibl(control As IRibbonControl)

'    Selection.style = ActiveDocument.Styles("adArcheobiblio")

'End Sub

Sub archeo_fieldwork_team(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_team")

    Selection.style = ActiveDocument.Styles("TEI_archeoART_team")

End Sub

Sub archeo_nat_authority(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_nat_authority")

    Selection.style = ActiveDocument.Styles("TEI_archeoART_nat_authority")

End Sub

Sub archeo_fieldwork_holder(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_holder")

    Selection.style = ActiveDocument.Styles("TEI_archeoART_holder")

End Sub

Sub archeo_fieldwork_holder2(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_holder")

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_holder")

End Sub

Sub archeo_IDmission(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_IDmission:EFA")

    Selection.style = ActiveDocument.Styles("TEI_archeoART_IDmission:EFA")

End Sub

Sub archeo_keywords_pactols(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_keywords:pactols")

    Selection.style = ActiveDocument.Styles("TEI_keywords_subjects:pactols")

End Sub

Sub archeo_fieldwork_date(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_date")

    Selection.style = ActiveDocument.Styles("TEI_archeoART_date")

End Sub

Sub archeo_fieldwork_years(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_fieldwork_years")

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_fieldwork_year")

End Sub

Sub archeo_name_fld_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeo_name_fld_inline")

Sub archeo_authority(control As IRibbonControl)

   Selection.style = ActiveDocument.Styles("TEI_archeoCHR_authority")

End Sub

Sub archeo_coord_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_name:edt")

End Sub

Sub archeo_resp_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_name:fld")

End Sub

Sub archeo_redac_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_name:aut")

End Sub

Sub archeo_authorresp_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_name:aut fld")

End Sub

Sub archeo_affiliation_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_archeoCHR_aff_inline")

End Sub

MS_Word/Metopes/vba/modules/i18n.bas

+8 −38
Changes for MS_Word/Metopes/vba/modules/i18n.bas: 8 added lines, 38 removed lines.
Original line number Diff line number Diff line
@@ -344,10 +344,6 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
'grp10

        Case "archeo"

        ReturnedVal = "Arch" & ChrW(&HE9) & "ologie"

        Case "archeo_roles"

        ReturnedVal = "Rles"

        Case "archeo_name_fld_inline"

        ReturnedVal = " " & ChrW(&HAA) & " (nom du) resp" & ChrW(&H2E) & " op" & ChrW(&HE9) & "ration"

        Case "archeo_fieldwork_date"

        ReturnedVal = "Date(s) de l" & ChrW(&H2BC) & "op" & ChrW(&HE9) & "ration"

        Case "archeo_fieldwork_team"
@@ -362,8 +358,6 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Mots-cl" & ChrW(&HE9) & "s (Pactols)"

        Case "archeo_records"

        ReturnedVal = "Chronique de fouilles"

        Case "archeo_titles"

        ReturnedVal = "Hi" & ChrW(&HE9) & "rarchie"

        Case "archeo_authorities"

        ReturnedVal = "Autorit" & ChrW(&HE9) & "s"

        Case "archeo_ID"
@@ -372,20 +366,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Op" & ChrW(&HE9) & "ration"

        Case "archeo_keywordsM"

        ReturnedVal = "Mots-cl" & ChrW(&HE9) & "s"

        'Case "archeoBody"

        'ReturnedVal = "Corps de la notice"

        Case "archeo_title"

        ReturnedVal = "Chronique"

        'Case "archeot2"

        'ReturnedVal = "Rubrique [T2]"

        'Case "archeot3"

        'ReturnedVal = "Notice [T2 ou T3]"

        'Case "archeosst3"

        'ReturnedVal = "Sous-titre de la notice"

        'Case "archeot4_1"

        'ReturnedVal = "Titre intercalaire [T4]"

        'Case "archeot4_2"

        'ReturnedVal = "Titre intercalaire [T4]"

        Case "archeo_type"

        ReturnedVal = "Type de chronique (sous-titre)"

        Case "archeo_authority"

        ReturnedVal = "Autorit" & ChrW(&HE9) & "s"

        Case "archeo_coord_inline"
@@ -411,9 +393,9 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        Case "archeo_fieldwork_nature"

        ReturnedVal = "Nature de l" & ChrW(&H2BC) & "op" & ChrW(&HE9) & "ration"

        Case "archeo_keywords"

        ReturnedVal = "Mots-cl" & ChrW(&HE9) & "s"

        ReturnedVal = "Mots-cl" & ChrW(&HE9) & "s (sujets)"

        Case "archeo_keywords_chrono"

        ReturnedVal = "Mots-cl" & ChrW(&HE9) & "s chrono"

        ReturnedVal = "Mots-cl" & ChrW(&HE9) & "s chronologie"

        'Case "archeoNormal"

        'ReturnedVal = "Normal"

        'Case "archeo_link"
@@ -865,10 +847,6 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
'grp10

        Case "archeo"

        ReturnedVal = "Arqueolog" & ChrW(&HAA) & "a"

        Case "archeo_roles"

        ReturnedVal = "Papeles"

        Case "archeo_name_fld_inline"

        ReturnedVal = " " & ChrW(&HAA) & " (nombre) resp" & ChrW(&H2E) & " operaci" & ChrW(&HF3) & "n"

        Case "archeo_fieldwork_date"

        ReturnedVal = "Fecha(s) de la operaci" & ChrW(&HF3) & "n"

        Case "archeo_fieldwork_team"
@@ -883,8 +861,6 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Palabras clave (Pactols)"

        Case "archeo_records"

        ReturnedVal = "Cr" & ChrW(&HF3) & "nica"

        Case "archeo_titles"

        ReturnedVal = "Jerarqu" & ChrW(&HAA) & "a"

        Case "archeo_authorities"

        ReturnedVal = "Autoridades"

        Case "archeo_ID"
@@ -893,8 +869,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Operaci" & ChrW(&HF3) & "n"

        Case "archeo_keywordsM"

        ReturnedVal = "Palabras clave"

        Case "archeo_title"

        ReturnedVal = "Cr" & ChrW(&HF3) & "nica"

        Case "archeo_type"

        ReturnedVal = "Tipo de cr" & ChrW(&HF3) & "nica"

        Case "archeo_authority"

        ReturnedVal = "Autoridades"

        Case "archeo_coord_inline"
@@ -1461,10 +1437,6 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Archeology"

        Case "archeo_fieldwork_date"

        ReturnedVal = "Year(s) of Investigation"

        Case "archeo_roles"

        ReturnedVal = "Roles"

        Case "archeo_name_fld_inline"

        ReturnedVal = " " & ChrW(&HAA) & " (Name of) Investigation resp" & ChrW(&H2E) & ""

        Case "archeo_fieldwork_team"

        ReturnedVal = "Team Members"

        Case "archeo_nat_authority"
@@ -1477,8 +1449,6 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        'ReturnedVal = "Inst" & ChrW(&H2E) & " Partners"

        Case "archeo_keywords_pactols"

        ReturnedVal = "Keywords (Pactols)"

        Case "archeo_titles"

        ReturnedVal = "Hierarchy"

        Case "archeo_authorities"

        ReturnedVal = "Authorities"

        Case "archeo_ID"
@@ -1489,8 +1459,8 @@ Sub getLabel(control As IRibbonControl, ByRef ReturnedVal) 
        ReturnedVal = "Keywords"

        Case "archeo_records"

        ReturnedVal = "Chronicle"

        Case "archeo_title"

        ReturnedVal = "Chronicle"

        Case "archeo_type"

        ReturnedVal = "Chronicle type"

        Case "archeo_authority"

        ReturnedVal = "Authorities"

        Case "archeo_coord_inline"