diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index cd3125b..d814093 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark61 +Sub mark64 End Sub @@ -29,6 +29,7 @@ Private Sub makerUpMenu dialog.getControl("replaceWhiteBackground").Label = getTranslation("advancedMenuReplaceWhiteBackground") dialog.getControl("removeUnusedStyles").Label = getTranslation("advancedMenuRemoveUnusedStyles") dialog.getControl("removeLinks").Label = getTranslation("advancedMenuRemoveLinks") + dialog.getControl("removeAllFields").Label = getTranslation("advancedMenuRemoveAllFields") dialog.getControl("removeBookmarks").Label = getTranslation("advancedMenuRemoveBookmarks") dialog.getControl("configTables").Label = getTranslation("advancedMenuConfigTables") dialog.getControl("configAnchors").Label = getTranslation("advancedMenuConfigAnchors") @@ -87,6 +88,10 @@ Private Sub cleanAccordingTo(dialog As Object) statusIndicator.Start(getTranslation("statusRemoveLinks"),100) removeHyperlinks EndIf + If dialog.getControl("removeAllFields").state = 1 Then + statusIndicator.Start(getTranslation("statusRemoveAllFields"),100) + removeAllFields + EndIf If dialog.getControl("removeBookmarks").state = 1 Then statusIndicator.Start(getTranslation("statusRemoveBookmarks"),100) disposeAllBookmarks @@ -377,6 +382,18 @@ Private Sub removeUserPageStyles Next i End Sub +Sub removeAllFields() + Dim fields As Object + Dim fieldEnum As Object + Dim field As Object + fields = ThisComponent.getTextFields() + fieldEnum = fields.createEnumeration() + While fieldEnum.hasMoreElements + field = fieldEnum.nextElement() + field.dispose() + Wend +End sub + Private Sub fixFrequentMistakes Dim config As Object config = initRedactionConfiguration() diff --git a/Redaction/CleaningDialog.xdl b/Redaction/CleaningDialog.xdl index 2029993..85cf5a4 100644 --- a/Redaction/CleaningDialog.xdl +++ b/Redaction/CleaningDialog.xdl @@ -23,5 +23,6 @@ + \ No newline at end of file diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index 2d1707e..c39e07e 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -257,6 +257,12 @@ Function getRussian(identifier As String) As String Case "charFirstPage" getRussian = "Найден на стр." Exit Function + Case "statusRemoveAllFields" + getRussian = "Удаляются все поля данных" + Exit Function + Case "advancedMenuRemoveAllFields" + getRussian = "Удалить все поля данных" + Exit Function Case Else getRussian = "Перевод не найден" End Select @@ -496,6 +502,12 @@ Function getEnglish(identifier As String) As String Case "charFirstPage" getEnglish = "Found on page" Exit Function + Case "statusRemoveAllFields" + getEnglish = "Removing all fields" + Exit Function + Case "advancedMenuRemoveAllFields" + getEnglish = "Remove all fields" + Exit Function Case Else getEnglish = "No translation" End Select @@ -734,6 +746,12 @@ Function getCroatian(identifier As String) As String Case "charFirstPage" getCroatian = "Pronađeno na stranici" Exit Function + Case "statusRemoveAllFields" + getCroatian = "Uklanjanje svih polja" + Exit Function + Case "advancedMenuRemoveAllFields" + getCroatian = "Uklonite sva polja" + Exit Function Case Else getCroatian = "No translation" End Select @@ -972,6 +990,12 @@ Function getSerbian(identifier As String) As String Case "charFirstPage" getSerbian = "Пронађено на страници" Exit Function + Case "statusRemoveAllFields" + getSerbian = "Уклањање свих поља" + Exit Function + Case "advancedMenuRemoveAllFields" + getSerbian = "Уклоните сва поља" + Exit Function Case Else getSerbian = "No translation" End Select @@ -1210,6 +1234,12 @@ Function getBosnian(identifier As String) As String Case "charFirstPage" getBosnian = "Pronađeno na stranici" Exit Function + Case "statusRemoveAllFields" + getBosnian = "Uklanjanje svih polja" + Exit Function + Case "advancedMenuRemoveAllFields" + getBosnian = "Uklonite sva polja" + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/build.gradle b/build.gradle index 2983ecf..bd3ef68 100644 --- a/build.gradle +++ b/build.gradle @@ -1,4 +1,4 @@ -def releaseVersion = "0.9.4" +def releaseVersion = "0.9.5" task oxt(type: Zip) { dependsOn = [ 'setVersion','setVersionInBasicCode' ] from './' diff --git a/cleanandvalidate.update.xml b/cleanandvalidate.update.xml index bcfe5d7..58ad56a 100644 --- a/cleanandvalidate.update.xml +++ b/cleanandvalidate.update.xml @@ -2,9 +2,9 @@ - + - + diff --git a/releasenotes.txt b/releasenotes.txt index 86477fb..ee9f16e 100644 --- a/releasenotes.txt +++ b/releasenotes.txt @@ -1,3 +1,4 @@ +0.9.5 Remove fields option added to advanced mode 0.9.4 Added check for grouped draw elements in font report function 0.9.3 Fix for font report function 0.9.2 Font report in Draw added diff --git a/translations.ods b/translations.ods index 9acf00d..9cc65e0 100644 Binary files a/translations.ods and b/translations.ods differ