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

upd VBA OE + issue #92 #111

parent 304e1c6d

MS_Word/OpenEdition/dotm/Commons-publishing-OE-2024-01-31.dotm

0 → 100644
+329 KiB

File added.

No diff preview for this file type.

View file

MS_Word/OpenEdition/vba/apply_figure.bas

+0 −3
Changes for MS_Word/OpenEdition/vba/apply_figure.bas: 0 added lines, 3 removed lines.
Original line number Diff line number Diff line
@@ -11,9 +11,6 @@ End Sub 
Sub figure_credits(control As IRibbonControl)

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

End Sub

Sub cell(control As IRibbonControl)

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

End Sub

Sub image_alternative(control As IRibbonControl)

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

End Sub

MS_Word/OpenEdition/vba/apply_metadata.bas

+7 −9
Changes for MS_Word/OpenEdition/vba/apply_metadata.bas: 7 added lines, 9 removed lines.
Original line number Diff line number Diff line
@@ -100,17 +100,14 @@ Sub language(control As IRibbonControl) 
    Set SelParaFirst = Selection.paragraphs.First

    Dim languageCode As String

    

    doc_language_selector.Show

    result = doc_language_selector.dropdown_doc_language.value

    Unload language_selector

    Load language_selector

    language_selector.Show

    result = language_selector.dropdown_language.value

    

    If result <> "" Then

    If result <> "" And result <> "-------------" Then

        On Error Resume Next

        If result = "Other language" Then

            msgbox "Please replace the string xx-XX inserted with a BCP47 language code"

            languageCode = "xx-XX"

        Else

            languageCode = result

        End If

        languageCode = Split(result, " | ")(0)

        On Error Resume Next

        SelParaFirst.Range.InsertParagraphBefore

        SelParaFirst.Previous.style = ActiveDocument.Styles("TEI_language")
@@ -118,6 +115,7 @@ Sub language(control As IRibbonControl) 
    Else

        msgbox "A language is required"

    End If

    

End Sub



Sub format_date(style_name)

MS_Word/OpenEdition/vba/apply_paratext.bas

+12 −12
Changes for MS_Word/OpenEdition/vba/apply_paratext.bas: 12 added lines, 12 removed lines.
Original line number Diff line number Diff line 
Attribute VB_Name = "apply_paratext"

Sub erratum(Control As IRibbonControl)

Sub erratum(control As IRibbonControl)

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

End Sub

Sub acknowledgment(Control As IRibbonControl)

Sub acknowledgment(control As IRibbonControl)

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

End Sub

Sub dedication(Control As IRibbonControl)

Sub dedication(control As IRibbonControl)

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

End Sub

Sub epigraph(Control As IRibbonControl)

Sub epigraph(control As IRibbonControl)

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

End Sub

Sub paragraph_lead(Control As IRibbonControl)

Sub paragraph_lead(control As IRibbonControl)

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

End Sub

Sub note_aut(Control As IRibbonControl)

Sub note_aut(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles("TEI_note:aut")

End Sub

Sub note_pbl(Control As IRibbonControl)

Sub note_pbl(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles("TEI_note:pbl")

End Sub

Sub note_trl(Control As IRibbonControl)

Sub note_trl(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles("TEI_note:trl")

End Sub



Sub foot_note(Control As IRibbonControl)

Sub foot_note(control As IRibbonControl)

    Call foot_note_cmd

End Sub

Sub foot_note_cmd()

    paragraphs.style = ActiveDocument.Styles(wdStyleFootnoteText)

End Sub

Sub end_note(Control As IRibbonControl)

Sub end_note(control As IRibbonControl)

    paragraphs.style = ActiveDocument.Styles(wdStyleEndnoteText)

End Sub



Sub bibl_start(Control As IRibbonControl)

Sub bibl_start(control As IRibbonControl)

    Dim SelParaFirst As Paragraph

    Dim PrevRange As Range
@@ -66,7 +66,7 @@ Sub bibl_start(Control As IRibbonControl) 
    Set PrevRange = Nothing

End Sub



Sub appendix_start(Control As IRibbonControl)

Sub appendix_start(control As IRibbonControl)

    Dim SelParaFirst As Paragraph

    Dim PrevRange As Range

MS_Word/OpenEdition/vba/apply_quote.bas

+31 −50
Changes for MS_Word/OpenEdition/vba/apply_quote.bas: 31 added lines, 50 removed lines.
Original line number Diff line number Diff line 
Attribute VB_Name = "apply_quote"

Sub quote_section(Control As IRibbonControl)

Sub quote_section(control As IRibbonControl)

    Call section("TEI_quote_start", "##### QUOTE START #####", "TEI_quote_end", "##### QUOTE END #####")

End Sub



Sub quote(Control As IRibbonControl)

Sub quote(control As IRibbonControl)

    Call quote_cmd

End Sub

Sub quote_cmd()

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

End Sub



Sub quote2(Control As IRibbonControl)

Sub quote2(control As IRibbonControl)

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

End Sub

Sub quote_continuation(Control As IRibbonControl)

Sub quote_continuation(control As IRibbonControl)

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

End Sub

Sub quote_nested(Control As IRibbonControl)

Sub quote_nested(control As IRibbonControl)

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

End Sub

Sub quote_inline(Control As IRibbonControl)

Sub quote_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_quote-inline")

End Sub

Sub bibl_citation(Control As IRibbonControl)

Sub bibl_citation(control As IRibbonControl)

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

End Sub

Sub replica(Control As IRibbonControl)

Sub replica(control As IRibbonControl)

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

End Sub

Sub speaker(Control As IRibbonControl)

Sub speaker(control As IRibbonControl)

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

End Sub

Sub speaker_inline(Control As IRibbonControl)

Sub speaker_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_speaker-inline")

End Sub

Sub didascaly(Control As IRibbonControl)

Sub didascaly(control As IRibbonControl)

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

End Sub

Sub didascaly_inline(Control As IRibbonControl)

Sub didascaly_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_didascaly-inline")

End Sub

Sub verse(Control As IRibbonControl)

Sub verse(control As IRibbonControl)

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

End Sub

Sub versifiedreplica(Control As IRibbonControl)

Sub versifiedreplica(control As IRibbonControl)

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

End Sub

Sub versenumber_inline(Control As IRibbonControl)

Sub versenumber_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_versenumber-inline")

End Sub

Sub linguistic_example(Control As IRibbonControl)



Sub linguistic_section(control As IRibbonControl)

    Call section("TEI_linguistic_start", "##### LINGUISTIC EXAMPLE START #####", "TEI_linguistic_end", "##### LINGUISTIC EXAMPLE END #####")

End Sub

Sub linguistic_label(control As IRibbonControl)

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

End Sub

Sub linguistic_example(control As IRibbonControl)

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

End Sub

Sub linguistic_gloss(Control As IRibbonControl)

Sub linguistic_gloss(control As IRibbonControl)

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

End Sub

Sub linguistic_translation(Control As IRibbonControl)

Sub linguistic_translation(control As IRibbonControl)

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

End Sub

Sub linguistic_number_inline(Control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_linguistic_number-inline")

Sub linguistic_num(control As IRibbonControl)

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

End Sub

Sub quote_trl(Control As IRibbonControl)

Sub linguistic_lang_inline(control As IRibbonControl)

    Selection.style = ActiveDocument.Styles("TEI_linguistic_lang-inline")

End Sub

Sub quote_trl(control As IRibbonControl)

    ApplyStyleLang "TEI_quote:trl"

End Sub



Sub linguistic_seg(Control As IRibbonControl)

    Dim rng As Range

    Set rng = Selection.Range

    rng.Collapse wdCollapseEnd

    rng.Text = " #seg# "

    

    Dim segRng As Range

    Set segRng = Selection.Range

    segRng.Start = rng.End - 6

    segRng.End = rng.End - 1

    segRng.style = ActiveDocument.Styles("TEI_linguistic_seg")

    

    Dim segPrev As Range

    Set segPrev = Selection.Range

    segPrev.Start = rng.End - 8

    segPrev.End = rng.End - 7

    If InStr(segPrev.Text, " ") = 1 Then

      segPrev.Text = ""

    End If

    

    Dim segNext As Range

    Set segNext = Selection.Range

    segNext.Start = rng.End

    segNext.End = rng.End + 1

    If InStr(segNext.Text, " ") = 1 Then

      segNext.Text = ""

    End If

End Sub