more..

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"