diff --git a/IPHRedaction.oxt b/IPHRedaction.oxt deleted file mode 100644 index f259d62..0000000 Binary files a/IPHRedaction.oxt and /dev/null differ diff --git a/IPHRedaction/Clean.xba b/IPHRedaction/Clean.xba index 590f934..2846e3f 100644 --- a/IPHRedaction/Clean.xba +++ b/IPHRedaction/Clean.xba @@ -91,6 +91,11 @@ Sub manualFontsToCharStyle End Sub Private Sub replaceBaseWithStandard + replaceParaStyle("Базовый","Основной текст") + replaceParaStyle("Default Style","Text Body") +End Sub + +Private Sub replaceParaStyle(oldStyleName,newStyleName) dim document as Object dim dispatcher as object document = ThisComponent.CurrentController.Frame @@ -119,9 +124,9 @@ Private Sub replaceBaseWithStandard args1(10).Name = "SearchItem.SearchFlags" args1(10).Value = 65536 args1(11).Name = "SearchItem.SearchString" - args1(11).Value = "Базовый" + args1(11).Value = oldStyleName args1(12).Name = "SearchItem.ReplaceString" - args1(12).Value = "Основной текст" + args1(12).Value = newStyleName args1(13).Name = "SearchItem.Locale" args1(13).Value = 255 args1(14).Name = "SearchItem.ChangedChars" diff --git a/redaction.oxt b/redaction.oxt index b2e7d03..3430ddf 100644 Binary files a/redaction.oxt and b/redaction.oxt differ