diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba index f5fc6da..ca4f6cf 100644 --- a/Redaction/Clean.xba +++ b/Redaction/Clean.xba @@ -1,6 +1,6 @@ -Sub mark82 +Sub mark83 End Sub @@ -46,6 +46,7 @@ Private Sub makerUpMenu dialog.getControl("resetChapterNumberingRules").Label = getTranslation("advancedMenuResetChapterNumberingRules") dialog.getControl("convertFontsToCharStyles").Label = getTranslation("advancedMenuconvertFontsToCharStyles") dialog.getControl("fixBrokenCharBackTransparent").Label = getTranslation("fixBrokenCharBackTransparentMenuItem") + dialog.getControl("removeNotTransparentBackgrounds").Label = getTranslation("removeNotTransparentBackgrounds") dialog.getControl("Cancel").Label = getTranslation("buttonCancel") dialog.getControl("OK").Label = getTranslation("buttonOK") dialog.getControl("buttonLoad").Label = getTranslation("buttonLoad") @@ -156,6 +157,9 @@ Private Sub cleanAccordingTo(dialog As Object) If dialog.getControl("fixBrokenCharBackTransparent").state = 1 Then fixBrokenCharBackTransparent() EndIf + If dialog.getControl("removeNotTransparentBackgrounds").state = 1 Then + fixColoredBackgroundInDoc() + EndIf statusIndicator.end() @@ -2067,4 +2071,30 @@ Sub setDefaultBackColorInText(oText As Object) EndIf Wend End Sub + + +Function fixColoredBackgroundInDoc() As Boolean + Dim founds As Object + Dim sDesc As Object + Dim i As Long + Dim foundObjects() As Object + Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue + SrchAttributes(0).Name = "CharBackTransparent" + SrchAttributes(0).Value = False + sDesc = Thiscomponent.createSearchDescriptor() + sDesc.SearchAll = true + sDesc.ValueSearch = false + sDesc.SearchRegularExpression = true + sDesc.searchStyles = true + sDesc.SetSearchAttributes(SrchAttributes()) + founds = Thiscomponent.findAll(sDesc) + If founds.count <> 0 Then + foundObjects = convertXIndexAccessToArray(founds) + For i = LBound(foundObjects) To UBound(foundObjects) + foundObjects(i).CharBackTransparent = false + foundObjects(i).CharBackColor = -1 + Next i + EndIf + +End Function \ No newline at end of file diff --git a/Redaction/CleaningDialog.xdl b/Redaction/CleaningDialog.xdl index d1c4827..04c50e3 100644 --- a/Redaction/CleaningDialog.xdl +++ b/Redaction/CleaningDialog.xdl @@ -3,31 +3,32 @@ - + - + - - - - - - - + + + + + + + - - + + - + - - - - - - + + + + + + + \ No newline at end of file diff --git a/Redaction/Translations.xba b/Redaction/Translations.xba index ff5a091..2c8f45b 100644 --- a/Redaction/Translations.xba +++ b/Redaction/Translations.xba @@ -322,6 +322,9 @@ Function getRussian(identifier As String) As String Exit Function Case "badHeadingsInTables" getRussian = "Заголовки, которые нельзя размещать внутри таблиц" + Exit Function + Case "removeNotTransparentBackgrounds" + getRussian = "Удалить непрозрачные фоны в тексте" Exit Function Case Else getRussian = "Перевод не найден" @@ -627,6 +630,9 @@ Function getEnglish(identifier As String) As String Exit Function Case "badHeadingsInTables" getEnglish = "Headers that shouldn't be placed inside tables" + Exit Function + Case "removeNotTransparentBackgrounds" + getEnglish = "Remove not transparent backgrounds in text" Exit Function Case Else getEnglish = "No translation" @@ -932,6 +938,9 @@ Function getCroatian(identifier As String) As String Case "badHeadingsInTables" getCroatian = "Zaglavlja koja se ne smiju stavljati unutar tablica" Exit Function + Case "removeNotTransparentBackgrounds" + getCroatian = "Uklonite netransparentne pozadine u tekstu" + Exit Function Case Else getCroatian = "No translation" End Select @@ -1236,6 +1245,9 @@ Function getSerbian(identifier As String) As String Case "badHeadingsInTables" getSerbian = "Заглавља која не смеју бити смештена унутар табела" Exit Function + Case "removeNotTransparentBackgrounds" + getSerbian = "Уклоните нетранспарентне позадине у тексту" + Exit Function Case Else getSerbian = "No translation" End Select @@ -1540,6 +1552,9 @@ Function getBosnian(identifier As String) As String Case "badHeadingsInTables" getBosnian = "Zaglavlja koja se ne smiju stavljati unutar tablica" Exit Function + Case "removeNotTransparentBackgrounds" + getBosnian = "Uklonite netransparentne pozadine u tekstu" + Exit Function Case Else getBosnian = "No translation" End Select diff --git a/translations.ods b/translations.ods index 0314267..c426682 100644 Binary files a/translations.ods and b/translations.ods differ