diff --git a/Macros/LibreOffice/ApresZotero/ApZotFunctions.xba b/Macros/LibreOffice/ApresZotero/ApZotFunctions.xba index 9a78519..d1d71aa 100644 --- a/Macros/LibreOffice/ApresZotero/ApZotFunctions.xba +++ b/Macros/LibreOffice/ApresZotero/ApZotFunctions.xba @@ -1,26 +1,26 @@ -REM ***** BASIC ***** +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 - + \ No newline at end of file diff --git a/Macros/LibreOffice/ApresZotero/ApZotGlobalOptions.xba b/Macros/LibreOffice/ApresZotero/ApZotGlobalOptions.xba index f5c62ea..40b2838 100644 --- a/Macros/LibreOffice/ApresZotero/ApZotGlobalOptions.xba +++ b/Macros/LibreOffice/ApresZotero/ApZotGlobalOptions.xba @@ -1,26 +1,26 @@ -REM ***** BASIC ***** +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 - + \ No newline at end of file diff --git a/Macros/LibreOffice/ApresZotero/ApZotRevues.xba b/Macros/LibreOffice/ApresZotero/ApZotRevues.xba index cc980a5..0759e16 100644 --- a/Macros/LibreOffice/ApresZotero/ApZotRevues.xba +++ b/Macros/LibreOffice/ApresZotero/ApZotRevues.xba @@ -1,26 +1,26 @@ -REM ***** BASIC ***** +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 - - + \ No newline at end of file diff --git a/Macros/LibreOffice/ApresZotero/ApZotUtilities.xba b/Macros/LibreOffice/ApresZotero/ApZotUtilities.xba index e9f7431..335467c 100644 --- a/Macros/LibreOffice/ApresZotero/ApZotUtilities.xba +++ b/Macros/LibreOffice/ApresZotero/ApZotUtilities.xba @@ -1,26 +1,26 @@ -REM ***** BASIC ***** +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 - + \ No newline at end of file diff --git a/Macros/LibreOffice/ApresZotero_LO.oxt b/Macros/LibreOffice/ApresZotero_LO.oxt index f94c43d..f5bd6e4 100644 Binary files a/Macros/LibreOffice/ApresZotero_LO.oxt and b/Macros/LibreOffice/ApresZotero_LO.oxt differ