litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

more..

Browse source
This commit is contained in:
Georgy Litvinov 2019-10-16 22:42:02 +03:00
parent 69b0ac3bbd
commit d7008bc972
3 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
IPHRedaction.oxt
View file

Binary file not shown.

9
IPHRedaction/Clean.xba
View file

@ -91,6 +91,11 @@ Sub manualFontsToCharStyle
End Sub End Sub
Private Sub replaceBaseWithStandard Private Sub replaceBaseWithStandard
replaceParaStyle("Базовый","Основной текст")
replaceParaStyle("Default Style","Text Body")
End Sub
Private Sub replaceParaStyle(oldStyleName,newStyleName)
dim document as Object dim document as Object
dim dispatcher as object dim dispatcher as object
document = ThisComponent.CurrentController.Frame document = ThisComponent.CurrentController.Frame
@ -119,9 +124,9 @@ Private Sub replaceBaseWithStandard
args1(10).Name = "SearchItem.SearchFlags" args1(10).Name = "SearchItem.SearchFlags"
args1(10).Value = 65536 args1(10).Value = 65536
args1(11).Name = "SearchItem.SearchString" args1(11).Name = "SearchItem.SearchString"
args1(11).Value = "Базовый" args1(11).Value = oldStyleName
args1(12).Name = "SearchItem.ReplaceString" args1(12).Name = "SearchItem.ReplaceString"
args1(12).Value = "Основной текст" args1(12).Value = newStyleName
args1(13).Name = "SearchItem.Locale" args1(13).Name = "SearchItem.Locale"
args1(13).Value = 255 args1(13).Value = 255
args1(14).Name = "SearchItem.ChangedChars" args1(14).Name = "SearchItem.ChangedChars"

BIN
redaction.oxt
View file

Binary file not shown.