diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index ea5a9b3..cb4873d 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark72 +Sub mark73 End Sub @@ -40,6 +40,7 @@ Private Sub makerUpMenu dialog.getControl("loadStandardStyles").Label = getTranslation("advancedMenuLoadStandardStyles") dialog.getControl("removeManualPageBreaks").Label = getTranslation("advancedMenuRemoveManualPageBreaks") dialog.getControl("removeBasic").Label = getTranslation("advancedMenuRemoveBasic") + dialog.getControl("resetChapterNumberingRules").Label = getTranslation("advancedMenuResetChapterNumberingRules") dialog.getControl("Cancel").Label = getTranslation("buttonCancel") dialog.getControl("OK").Label = getTranslation("buttonOK") dialog.getControl("buttonLoad").Label = getTranslation("buttonLoad") @@ -133,6 +134,9 @@ Private Sub cleanAccordingTo(dialog As Object) If dialog.getControl("removeBasic").state = 1 Then removeLibs EndIf + If dialog.getControl("resetChapterNumberingRules").state = 1 Then + resetChapterNumberingRules + EndIf statusIndicator.end() saveAndreload() @@ -193,6 +197,7 @@ Private Sub quietCleaning statusIndicator.Start(getTranslation("statusLoadingStylesFromTemplate"),100) loadArticleStyles removeLibs + resetChapterNumberingRules addTimeStampToProperties saveCleanedVersion("Standard cleaning") statusIndicator.end() @@ -1856,5 +1861,31 @@ sub saveCleanedVersion(comment) args1(0).Name = "VersionComment" args1(0).Value = comment dispatcher.executeDispatch(document, ".uno:Save", "", 0, args1()) -end sub +end Sub + +Sub resetChapterNumberingRules + Dim chapNumRules As Object + Dim numRulesProps As Variant + Dim numRuleProperty As Variant + Dim i As Integer + chapNumRules = ThisComponent.ChapterNumberingRules + For i = 0 To chapNumRules.Count - 1 + numRulesProps = chapNumRules.getByIndex(i) + For n = LBound(numRulesProps) To UBound(numRulesProps) + numRuleProperty = numRulesProps(n) + If (numRuleProperty.Name = "Prefix") Then + numRuleProperty.Value = "" + End If + If (numRuleProperty.Name = "Suffix") Then + numRuleProperty.Value = "" + End If + If (numRuleProperty.Name = "CharStyleName") Then + numRuleProperty.Value = "None" + End If + numRulesProps(n) = numRuleProperty + Next n + chapNumRules.replaceByIndex(i,numRulesProps) + Next i +End Sub + \ No newline at end of file diff --git a/Redaction/CleaningDialog.xdl b/Redaction/CleaningDialog.xdl index 135f3c8..9ad99aa 100644 --- a/Redaction/CleaningDialog.xdl +++ b/Redaction/CleaningDialog.xdl @@ -1,10 +1,10 @@ - + - + - + @@ -20,10 +20,11 @@ - + + \ No newline at end of file diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index 492650d..857420e 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -269,6 +269,9 @@ Function getRussian(identifier As String) As String Case "statusFixingDOI" getRussian = "Исправляем DOI" Exit Function + Case "advancedMenuResetChapterNumberingRules" + getRussian = "Сбросить настройки нумерации глав" + Exit Function Case Else getRussian = "Перевод не найден" End Select @@ -520,6 +523,9 @@ Function getEnglish(identifier As String) As String Case "statusFixingDOI" getEnglish = "Fixing DOI" Exit Function + Case "advancedMenuResetChapterNumberingRules" + getEnglish = "Reset chapter numbering settings" + Exit Function Case Else getEnglish = "No translation" End Select @@ -770,6 +776,9 @@ Function getCroatian(identifier As String) As String Case "statusFixingDOI" getCroatian = "Ispravljamo DOI" Exit Function + Case "advancedMenuResetChapterNumberingRules" + getCroatian = "Resetirajte postavke numeriranja poglavlja" + Exit Function Case Else getCroatian = "No translation" End Select @@ -1020,6 +1029,9 @@ Function getSerbian(identifier As String) As String Case "statusFixingDOI" getSerbian = "Исправљамо DOI" Exit Function + Case "advancedMenuResetChapterNumberingRules" + getSerbian = "Ресетујте поставке нумерисања поглавља" + Exit Function Case Else getSerbian = "No translation" End Select @@ -1270,6 +1282,9 @@ Function getBosnian(identifier As String) As String Case "statusFixingDOI" getBosnian = "Ispravljamo DOI" Exit Function + Case "advancedMenuResetChapterNumberingRules" + getBosnian = "Resetirajte postavke numeriranja poglavlja" + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/translations.ods b/translations.ods index d23c2a4..12b5adf 100644 Binary files a/translations.ods and b/translations.ods differ