Message de confirmation pour le passage des indications de ligne en exposant dans REB + ne plus supprimer les espaces fines insécables
This commit is contained in:
parent
79d14bb4a9
commit
cbbdeb4733
|
@ -1,26 +1,26 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotFunctions" script:language="StarBasic" script:moduleType="normal">REM ***** BASIC *****
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotFunctions" script:language="StarBasic">REM ***** BASIC *****
|
||||
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
|
||||
Option Compatible
|
||||
Option Explicit
|
||||
|
@ -573,4 +573,4 @@ Sub ReplaceString(sToReplace As String, sReplacement As String, bIsRegex As Bool
|
|||
ThisComponent.replaceAll(oReplace)
|
||||
End Sub
|
||||
|
||||
</script:module>
|
||||
</script:module>
|
|
@ -1,26 +1,26 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotGlobalOptions" script:language="StarBasic" script:moduleType="normal">REM ***** BASIC *****
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotGlobalOptions" script:language="StarBasic">REM ***** BASIC *****
|
||||
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
|
||||
Public Const nExponentCharSizePercentage As Integer = 33
|
||||
Public Const nExponentCharHeightPercentage As Integer = 58
|
||||
|
@ -37,4 +37,4 @@ Public Const GreekFont As String = "IFAO-Grec Unicode"
|
|||
Public Const sBibliographyStyleName As String = "Bibliography 1"
|
||||
Public Const sRectoVersoRegex As String = "[0-9]+[rv](-v)?"
|
||||
Public Const sNumberOrIssueRegex As String = " nos? " ' last character is a non-breakable space
|
||||
</script:module>
|
||||
</script:module>
|
|
@ -1,26 +1,26 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotRevues" script:language="StarBasic" script:moduleType="normal">REM ***** BASIC *****
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotRevues" script:language="StarBasic">REM ***** BASIC *****
|
||||
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
|
||||
Option Compatible
|
||||
Option Explicit
|
||||
|
@ -56,20 +56,16 @@ Sub REB
|
|||
AbbrevAnnee_Philologique(True)
|
||||
|
||||
' Numéros de lignes en exposant sans "l. "
|
||||
oSearch.SearchString = sLineRefRegex
|
||||
oSearch.SearchRegularExpression = TRUE
|
||||
oResult = oDocument.findAll(oSearch)
|
||||
For n = 0 To oResult.count - 1
|
||||
oFound = oResult.getByIndex(n)
|
||||
oFoundCursor = oFound.Text.createTextCursorByRange(oFound)
|
||||
oFoundCursor.CharEscapement = nExponentCharSizePercentage
|
||||
oFoundCursor.CharEscapementHeight = nExponentCharHeightPercentage
|
||||
Next n
|
||||
MsgBox("Vous allez d'abord être interrogé·e pour vérifier que les" &_
|
||||
" références aux lignes sont correctement reconnues. Chaque fois" &_
|
||||
" que vous répondrez OUI, elles seront mises en exposant. Dans un" &_
|
||||
" second temps, les chaînes de caractères “, l. ” seront supprimées.",_
|
||||
0, mJournal)
|
||||
SetStringPartToExponent(oDocument, sLineRefRegex, sLineRefRegex)
|
||||
ReplaceString(sLineRefRegex, "$1", TRUE)
|
||||
|
||||
SetFolioToPluralForm("f. ", "ff. ")
|
||||
|
||||
ReplaceString(" ", " ", FALSE) ' Replace narrow non breakable spaces (automatically generated by Zotero) by simple non breakable spaces.
|
||||
ReplaceString(" - ", "-", FALSE)
|
||||
|
||||
SetStringPartToExponent(oDocument, sRectoVersoRegex, "[rv](-v)?")
|
||||
|
@ -81,5 +77,4 @@ Sub REB
|
|||
HandleItemsInBibliography("Titre Liste des abréviations")
|
||||
|
||||
end sub
|
||||
|
||||
</script:module>
|
||||
</script:module>
|
|
@ -1,26 +1,26 @@
|
|||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotUtilities" script:language="StarBasic" script:moduleType="normal">REM ***** BASIC *****
|
||||
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="ApZotUtilities" script:language="StarBasic">REM ***** BASIC *****
|
||||
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
'************************************************************************
|
||||
'* Copyright 2021 by Bastien Dumont (bastien.dumont@posteo.net)
|
||||
'*
|
||||
'* This file is part of the ApresZotero library.
|
||||
'*
|
||||
'* ApresZotero is free software: you can redistribute it and/or modify
|
||||
'* it under the terms of the GNU General Public License as published by
|
||||
'* the Free Software Foundation, either version 3 of the License, or
|
||||
'* (at your option) any later version.
|
||||
'*
|
||||
'* ApresZotero is distributed in the hope that it will be useful,
|
||||
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
'* GNU General Public License for more details.
|
||||
'*
|
||||
'* You should have received a copy of the GNU General Public License
|
||||
'* along with ApresZotero. If not, see <https://www.gnu.org/licenses/>.
|
||||
'*
|
||||
'************************************************************************
|
||||
|
||||
Sub CountOccurrencesPerReference
|
||||
Dim vSortedItemMap As Variant
|
||||
|
@ -52,4 +52,4 @@ End Sub
|
|||
Next i
|
||||
|
||||
End Sub
|
||||
</script:module>
|
||||
</script:module>
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user