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

Code cleaning

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-21 12:19:15 +01:00
parent 21d1d274bd
commit efd45c1c6d
1 changed files with 135 additions and 74 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

201
Redaction/Clean.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark34 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark35
End Sub End Sub
@ -472,6 +472,8 @@ Private Sub removeHLInText(textElement)
Dim enum1 As Object Dim enum1 As Object
Dim i As Integer Dim i As Integer
Dim cell As Object Dim cell As Object
Dim cellNames()
Dim cellText As Object
enum1 = textElement.createEnumeration() enum1 = textElement.createEnumeration()
While enum1.hasMoreElements While enum1.hasMoreElements
enum1Element = enum1.nextElement enum1Element = enum1.nextElement
@ -638,9 +640,9 @@ End Sub
Private Sub fixTableWidth() Private Sub fixTableWidth()
Dim table As Object Dim table As Object
Dim tables As Object Dim tables As Object
tables = ThisComponent.TextTables
Dim count As Long Dim count As Long
Dim i As Long Dim i As Long
tables = ThisComponent.TextTables
count = ThisComponent.TextTables.getCount() count = ThisComponent.TextTables.getCount()
For i = 0 To count - 1 For i = 0 To count - 1
table = tables.getByIndex(i) table = tables.getByIndex(i)
@ -674,11 +676,11 @@ Private Sub replaceBaseWithStandard
End Sub End Sub
Private Sub replaceParaStyle(oldStyleName,newStyleName) 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
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;) dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
dim args1(21) as new com.sun.star.beans.PropertyValue Dim args1(21) as new com.sun.star.beans.PropertyValue
args1(0).Name = &quot;SearchItem.StyleFamily&quot; args1(0).Name = &quot;SearchItem.StyleFamily&quot;
args1(0).Value = 2 args1(0).Value = 2
args1(1).Name = &quot;SearchItem.CellType&quot; args1(1).Name = &quot;SearchItem.CellType&quot;
@ -727,27 +729,33 @@ Private Sub replaceParaStyle(oldStyleName,newStyleName)
End Sub End Sub
Private Sub doNotTrack Private Sub doNotTrack
Dim dispatcher As Object
Dim document As Object
Dim trackProperties(0) as new com.sun.star.beans.PropertyValue
Dim args1(0) as new com.sun.star.beans.PropertyValue
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;) dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
document = ThisComponent.CurrentController.Frame document = ThisComponent.CurrentController.Frame
dim trackProperties(0) as new com.sun.star.beans.PropertyValue
trackProperties(0).Name = &quot;TrackChanges&quot; trackProperties(0).Name = &quot;TrackChanges&quot;
trackProperties(0).Value = false trackProperties(0).Value = false
dispatcher.executeDispatch(document, &quot;.uno:TrackChanges&quot;, &quot;&quot;, 0, trackProperties()) dispatcher.executeDispatch(document, &quot;.uno:TrackChanges&quot;, &quot;&quot;, 0, trackProperties())
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = &quot;ShowTrackedChanges&quot; args1(0).Name = &quot;ShowTrackedChanges&quot;
args1(0).Value = true args1(0).Value = true
dispatcher.executeDispatch(document, &quot;.uno:ShowTrackedChanges&quot;, &quot;&quot;, 0, args1()) dispatcher.executeDispatch(document, &quot;.uno:ShowTrackedChanges&quot;, &quot;&quot;, 0, args1())
End Sub End Sub
Private Sub removeDirectFormatting Private Sub removeDirectFormatting
Dim oDescriptor &apos;The search descriptor Dim oDescriptor As Object
dim dispatcher as Object Dim dispatcher as Object
Dim document as Object
Dim x As Integer
Dim endNotes As Object
Dim aNote As Object
Dim endNoteText As Object
Dim oViewCursor As Object
Dim oTextCursor As Object
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;) dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
dim document as Object
document = ThisComponent.CurrentController.Frame document = ThisComponent.CurrentController.Frame
Dim oViewCursor As Object &apos;View cursor
oViewCursor = ThisComponent.CurrentController.getViewCursor() oViewCursor = ThisComponent.CurrentController.getViewCursor()
oViewCursor.jumpToFirstPage() oViewCursor.jumpToFirstPage()
oViewCursor.gotoStart(false) oViewCursor.gotoStart(false)
oViewCursor.gotoEnd(true) oViewCursor.gotoEnd(true)
@ -770,17 +778,21 @@ Private Sub removeDirectFormatting
oViewCursor.gotoEnd(true) oViewCursor.gotoEnd(true)
dispatcher.executeDispatch(document, &quot;.uno:ResetAttributes&quot;, &quot;&quot;, 0, Array()) dispatcher.executeDispatch(document, &quot;.uno:ResetAttributes&quot;, &quot;&quot;, 0, Array())
next next
oViewCursor.gotoStart(false) oViewCursor.gotoStart(false)
End Sub End Sub
Private Sub resetFootnotesStyle Private Sub resetFootnotesStyle
Dim oDescriptor &apos;The search descriptor Dim oDescriptor As Object
dim dispatcher as Object Dim dispatcher as Object
Dim document As Object
Dim oViewCursor As Object
Dim allNotes As Object
Dim x As Integer
Dim aNote As Object
Dim oEnum As Object
Dim oCurPar As Object
dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;) dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
dim document as Object
document = ThisComponent.CurrentController.Frame document = ThisComponent.CurrentController.Frame
Dim oViewCursor As Object &apos;View cursor
oViewCursor = ThisComponent.CurrentController.getViewCursor() oViewCursor = ThisComponent.CurrentController.getViewCursor()
allNotes= thisComponent.FootNotes allNotes= thisComponent.FootNotes
for x = 0 to allNotes.Count -1 for x = 0 to allNotes.Count -1
@ -795,8 +807,10 @@ Private Sub resetFootnotesStyle
End Sub End Sub
Private Sub removeUnusedStyles Private Sub removeUnusedStyles
&apos;calls: RemoveUnusedStyles Dim sElements() as String
Dim sElements() as string, oFamilies, oFamily, sFamily$, sLabel, oDlg, i% Dim oFamilies As Object
Dim oFamily As Object
Dim i As Integer
Dim oDoc as object Dim oDoc as object
oDoc = ThisComponent oDoc = ThisComponent
oFamilies = thiscomponent.StyleFamilies oFamilies = thiscomponent.StyleFamilies
@ -807,9 +821,9 @@ Private Sub removeUnusedStyles
Next Next
End Sub End Sub
Private Sub removeUnusedStyle(oFamily,sFamily as string, bAsk as Boolean) Private Sub removeUnusedStyle(oFamily ,sFamily as string, bAsk as Boolean)
&apos;calls: getStyleNames Dim i As Integer
Dim sUsed() as String, sMsg$,iAnswer%, bStop as boolean Dim sUsed() as String
sUsed() = getStyleNames(oFamily,bLocalized:=True,bUsed:=False,bUserDef:=true) sUsed() = getStyleNames(oFamily,bLocalized:=True,bUsed:=False,bUserDef:=true)
If uBound(sUsed()) &gt; -1 then If uBound(sUsed()) &gt; -1 then
For i = 0 to uBound(sUsed()) For i = 0 to uBound(sUsed())
@ -818,14 +832,20 @@ Private Sub removeUnusedStyle(oFamily,sFamily as string, bAsk as Boolean)
EndIf EndIf
End Sub End Sub
Private Sub convertFormatToEnclosure(identifier, styleNames, styleValues) Private Sub convertFormatToEnclosure(identifier As String, styleNames, styleValues)
leftEnclosure = compileLeftEnclosure(identifier) Dim leftEnclosure As String
rightEnclosure = compileRightEnclosure(identifier) Dim rightEnclosure As String
Dim oTextCursor As Object Dim oTextCursor As Object
Dim startTextRange As Object Dim startTextRange As Object
Dim endTextRange As Object Dim endTextRange As Object
Dim foundString As String Dim foundString As String
Dim SDesc As Object
Dim SrchAttributes(Ubound(styleNames)) as new com.sun.star.beans.PropertyValue Dim SrchAttributes(Ubound(styleNames)) as new com.sun.star.beans.PropertyValue
Dim i As Integer
Dim found As Object
leftEnclosure = compileLeftEnclosure(identifier)
rightEnclosure = compileRightEnclosure(identifier)
For i = 0 To Ubound(styleNames) For i = 0 To Ubound(styleNames)
SrchAttributes(i).Name = styleNames(i) SrchAttributes(i).Name = styleNames(i)
SrchAttributes(i).Value = styleValues(i) SrchAttributes(i).Value = styleValues(i)
@ -856,12 +876,14 @@ Private Sub convertFormatToEnclosure(identifier, styleNames, styleValues)
Loop Loop
End Sub End Sub
Private Sub convertEnclosuresToFormat(identifier, styleNames, styleValues) Private Sub convertEnclosuresToFormat(identifier As String, styleNames, styleValues)
Dim oTextCursor As Object Dim oTextCursor As Object
Dim startTextRange As Object Dim startTextRange As Object
Dim endTextRange As Object Dim endTextRange As Object
Dim leftEnclosure As String Dim leftEnclosure As String
Dim rightEnclosure As String Dim rightEnclosure As String
Dim SDesc As Object
Dim found As Object
leftEnclosure = compileLeftEnclosure(identifier) leftEnclosure = compileLeftEnclosure(identifier)
rightEnclosure = compileRightEnclosure(identifier) rightEnclosure = compileRightEnclosure(identifier)
SDesc = Thiscomponent.createSearchDescriptor() SDesc = Thiscomponent.createSearchDescriptor()
@ -887,44 +909,54 @@ Private Sub convertEnclosuresToFormat(identifier, styleNames, styleValues)
End Sub End Sub
Private Function compileSearchString(identifier) Private Function compileSearchString(identifier) As String
compileSearchString = &quot;&lt;&quot;+identifier+&quot;&gt;&quot;+&quot;(.*?)&quot;+&quot;&lt;/&quot;+identifier+&quot;&gt;&quot; compileSearchString = &quot;&lt;&quot; &amp; identifier &amp; &quot;&gt;&quot; &amp; &quot;(.*?)&quot; &amp; &quot;&lt;/&quot; &amp; identifier &amp; &quot;&gt;&quot;
End Function End Function
Private Function compileLeftEnclosure(identifier) Private Function compileLeftEnclosure(identifier) As String
compileLeftEnclosure = &quot;&lt;&quot;+identifier+&quot;&gt;&quot; compileLeftEnclosure = &quot;&lt;&quot; &amp; identifier &amp; &quot;&gt;&quot;
End Function End Function
Private Function compileRightEnclosure(identifier) Private Function compileRightEnclosure(identifier) As String
compileRightEnclosure = &quot;&lt;/&quot;+identifier+&quot;&gt;&quot; compileRightEnclosure = &quot;&lt;/&quot; &amp; identifier &amp; &quot;&gt;&quot;
End Function End Function
Private Sub toTextBold Private Sub toTextBold
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharWeight&quot;) styleNames = Array(&quot;CharWeight&quot;)
styleValues = Array(com.sun.star.awt.FontWeight.BOLD) styleValues = Array(com.sun.star.awt.FontWeight.BOLD)
convertFormatToEnclosure(CHR(867), styleNames, styleValues) convertFormatToEnclosure(CHR(867), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextBold Private Sub fromTextBold
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharWeight&quot;) styleNames = Array(&quot;CharWeight&quot;)
styleValues = Array(com.sun.star.awt.FontWeight.BOLD) styleValues = Array(com.sun.star.awt.FontWeight.BOLD)
convertEnclosuresToFormat(CHR(867), styleNames, styleValues) convertEnclosuresToFormat(CHR(867), styleNames, styleValues)
End Sub End Sub
Private Sub toTextItalic Private Sub toTextItalic
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharPosture&quot;) styleNames = Array(&quot;CharPosture&quot;)
styleValues = Array(com.sun.star.awt.FontSlant.ITALIC) styleValues = Array(com.sun.star.awt.FontSlant.ITALIC)
convertFormatToEnclosure(CHR(868), styleNames, styleValues) convertFormatToEnclosure(CHR(868), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextItalic Private Sub fromTextItalic
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharPosture&quot;) styleNames = Array(&quot;CharPosture&quot;)
styleValues = Array(com.sun.star.awt.FontSlant.ITALIC) styleValues = Array(com.sun.star.awt.FontSlant.ITALIC)
convertEnclosuresToFormat(CHR(868), styleNames, styleValues) convertEnclosuresToFormat(CHR(868), styleNames, styleValues)
End Sub End Sub
Private Sub toTextStrikeout Private Sub toTextStrikeout
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharStrikeout&quot;) styleNames = Array(&quot;CharStrikeout&quot;)
styleValues = Array(com.sun.star.awt.FontStrikeout.SINGLE) styleValues = Array(com.sun.star.awt.FontStrikeout.SINGLE)
convertFormatToEnclosure(CHR(869), styleNames, styleValues) convertFormatToEnclosure(CHR(869), styleNames, styleValues)
@ -932,6 +964,8 @@ Private Sub toTextStrikeout
End Sub End Sub
Private Sub fromTextStrikeout Private Sub fromTextStrikeout
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharStrikeout&quot;) styleNames = Array(&quot;CharStrikeout&quot;)
styleValues = Array(com.sun.star.awt.FontStrikeout.SINGLE) styleValues = Array(com.sun.star.awt.FontStrikeout.SINGLE)
convertEnclosuresToFormat(CHR(869), styleNames, styleValues) convertEnclosuresToFormat(CHR(869), styleNames, styleValues)
@ -939,66 +973,89 @@ End Sub
Private Sub toTextUnderline Private Sub toTextUnderline
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharUnderline&quot;) styleNames = Array(&quot;CharUnderline&quot;)
styleValues = Array(com.sun.star.awt.FontUnderline.SINGLE) styleValues = Array(com.sun.star.awt.FontUnderline.SINGLE)
convertFormatToEnclosure(CHR(870), styleNames, styleValues) convertFormatToEnclosure(CHR(870), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextUnderline Private Sub fromTextUnderline
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharUnderline&quot;) styleNames = Array(&quot;CharUnderline&quot;)
styleValues = Array(com.sun.star.awt.FontUnderline.SINGLE) styleValues = Array(com.sun.star.awt.FontUnderline.SINGLE)
convertEnclosuresToFormat(CHR(870), styleNames, styleValues) convertEnclosuresToFormat(CHR(870), styleNames, styleValues)
End Sub End Sub
Private Sub toTextSuperscript Private Sub toTextSuperscript
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,14000) styleValues = Array(58,14000)
convertFormatToEnclosure(CHR(871), styleNames, styleValues) convertFormatToEnclosure(CHR(871), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextSuperscript Private Sub fromTextSuperscript
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,14000) styleValues = Array(58,14000)
convertEnclosuresToFormat(CHR(871), styleNames, styleValues) convertEnclosuresToFormat(CHR(871), styleNames, styleValues)
End Sub End Sub
Private Sub toTextSubscript Private Sub toTextSubscript
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,-14000) styleValues = Array(58,-14000)
convertFormatToEnclosure(CHR(872), styleNames, styleValues) convertFormatToEnclosure(CHR(872), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextSubscript Private Sub fromTextSubscript
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,-14000) styleValues = Array(58,-14000)
convertEnclosuresToFormat(CHR(872), styleNames, styleValues) convertEnclosuresToFormat(CHR(872), styleNames, styleValues)
End Sub End Sub
Private Sub toTextSuperscriptOld Private Sub toTextSuperscriptOld
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,101) styleValues = Array(58,101)
convertFormatToEnclosure(CHR(871), styleNames, styleValues) convertFormatToEnclosure(CHR(871), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextSuperscriptOld Private Sub fromTextSuperscriptOld
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,101) styleValues = Array(58,101)
convertEnclosuresToFormat(CHR(871), styleNames, styleValues) convertEnclosuresToFormat(CHR(871), styleNames, styleValues)
End Sub End Sub
Private Sub toTextSubscriptOld Private Sub toTextSubscriptOld
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,-101) styleValues = Array(58,-101)
convertFormatToEnclosure(CHR(872), styleNames, styleValues) convertFormatToEnclosure(CHR(872), styleNames, styleValues)
End Sub End Sub
Private Sub fromTextSubscriptOld Private Sub fromTextSubscriptOld
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;) styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,-101) styleValues = Array(58,-101)
convertEnclosuresToFormat(CHR(872), styleNames, styleValues) convertEnclosuresToFormat(CHR(872), styleNames, styleValues)
End Sub End Sub
Private Sub toTextSparce Private Sub toTextSparce
Dim i As Integer
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharKerning&quot;) styleNames = Array(&quot;CharKerning&quot;)
For i=70 To 70 For i=70 To 70
styleValues = Array(i) styleValues = Array(i)
@ -1007,6 +1064,9 @@ Private Sub toTextSparce
End Sub End Sub
Private Sub fromTextSparce Private Sub fromTextSparce
Dim i As Integer
Dim styleNames As Variant
Dim StyleValues As Variant
styleNames = Array(&quot;CharKerning&quot;) styleNames = Array(&quot;CharKerning&quot;)
For i=70 To 70 For i=70 To 70
styleValues = Array(i) styleValues = Array(i)
@ -1022,19 +1082,18 @@ Private Sub convertFormattingToText
version = Trim(getVersion()) version = Trim(getVersion())
bigNum = Left(version, 1) bigNum = Left(version, 1)
smallNum = Right(version, 1) smallNum = Right(version, 1)
toTextBold toTextBold()
toTextItalic toTextItalic()
toTextStrikeout toTextStrikeout()
toTextUnderline toTextUnderline()
If CInt(bigNum) &lt; 6 OR (CInt(bigNum) = 6 AND CInt(smallNum &lt; 3) ) Then If CInt(bigNum) &lt; 6 OR (CInt(bigNum) = 6 AND CInt(smallNum &lt; 3) ) Then
toTextSuperscriptOld toTextSuperscriptOld()
toTextSubscriptOld toTextSubscriptOld()
Else Else
toTextSuperscript toTextSuperscript()
toTextSubscript toTextSubscript()
EndIf EndIf
toTextSparce()
toTextSparce
End Sub End Sub
Private Sub convertFormattingFromText Private Sub convertFormattingFromText
@ -1045,31 +1104,30 @@ Private Sub convertFormattingFromText
version = Trim(getVersion()) version = Trim(getVersion())
bigNum = Left(version, 1) bigNum = Left(version, 1)
smallNum = Right(version, 1) smallNum = Right(version, 1)
fromTextSparce fromTextSparce()
If CInt(bigNum) &lt; 6 OR (CInt(bigNum) = 6 AND CInt(smallNum &lt; 3) ) Then If CInt(bigNum) &lt; 6 OR (CInt(bigNum) = 6 AND CInt(smallNum &lt; 3) ) Then
fromTextSuperscriptOld fromTextSuperscriptOld()
fromTextSubscriptOld fromTextSubscriptOld()
Else Else
fromTextSuperscript fromTextSuperscript()
fromTextSubscript fromTextSubscript()
EndIf EndIf
fromTextUnderline fromTextUnderline()
fromTextStrikeout fromTextStrikeout()
fromTextItalic fromTextItalic()
fromTextBold fromTextBold()
End Sub End Sub
Private Function confirm(description) Private Function confirm(description) As Boolean
If MsgBox (description, 4) =6 Then If MsgBox (description, 4) =6 Then
confirm = true confirm = true
Else Else
confirm = false confirm = false
EndIf EndIf
End Function End Function
Private Sub ReplaceFormatting(SearchString,oReplaceString,SrchAttributes,ReplAttributes, searchStyles) Private Sub ReplaceFormatting(SearchString As String ,oReplaceString As String ,SrchAttributes,ReplAttributes, searchStyles)
Dim oReplace Dim oReplace As Object
oReplace = ThisComponent.createReplaceDescriptor() oReplace = ThisComponent.createReplaceDescriptor()
oReplace.SearchString = SearchString oReplace.SearchString = SearchString
oReplace.ReplaceString = oReplaceString oReplace.ReplaceString = oReplaceString
@ -1087,9 +1145,13 @@ Private Sub ReplaceFormatting(SearchString,oReplaceString,SrchAttributes,ReplAtt
ThisComponent.replaceAll(oReplace) ThisComponent.replaceAll(oReplace)
End Sub End Sub
Private Function getStyleNames(oFamily,bLocalized as Boolean, _ Private Function getStyleNames(oFamily,bLocalized as Boolean, optional bUsed, optional bUserDef)
optional bUsed, optional bUserDef) Dim oStyle As Object
Dim oStyle,i%,sNames$(),sName$,chkUse as Boolean, chkUDef as Boolean Dim i As Long
Dim sNames() As Variant
Dim sName As String
Dim chkUse as Boolean
Dim chkUDef as Boolean
For i = 0 to oFamily.getCount -1 For i = 0 to oFamily.getCount -1
oStyle = oFamily.getByIndex(i) oStyle = oFamily.getByIndex(i)
If bLocalized then If bLocalized then
@ -1117,9 +1179,9 @@ Private Function getStyleNames(oFamily,bLocalized as Boolean, _
getStyleNames = sNames() getStyleNames = sNames()
End Function End Function
&apos;very simple routine appending some element to an array which can be undimensioned (LBound &gt; UBound) Sub bas_PushArray(xArray(),vNextElement)
Sub bas_PushArray(xArray(),vNextElement) Dim iUB As Long
Dim iUB%,iLB% Dim iLB As Long
iLB = lBound(xArray()) iLB = lBound(xArray())
iUB = uBound(xArray()) iUB = uBound(xArray())
If iLB &gt; iUB then If iLB &gt; iUB then
@ -1135,16 +1197,13 @@ End Sub
Private Sub replaceWhiteBackgroundWithTransparent Private Sub replaceWhiteBackgroundWithTransparent
Dim description As String Dim description As String
Dim searchPattern As String Dim searchPattern As String
searchPattern = &quot;&quot;
&apos; description = &quot;Вы уверены, что хотите заменить белый фон на прозрачный в текущем документе?&quot;
&apos; If NOT confirm(description) Then
&apos; Exit Sub
&apos; EndIf
Dim statusIndicator as Object
statusIndicator = ThisComponent.getCurrentController.statusIndicator
statusIndicator.Start(&quot;Замена белого фона на прозрачный начата&quot;,100)
Dim SrchAttributes(1) as new com.sun.star.beans.PropertyValue Dim SrchAttributes(1) as new com.sun.star.beans.PropertyValue
Dim ReplAttributes(1) as new com.sun.star.beans.PropertyValue Dim ReplAttributes(1) as new com.sun.star.beans.PropertyValue
Dim statusIndicator As Object
searchPattern = &quot;&quot;
statusIndicator = ThisComponent.getCurrentController.statusIndicator
statusIndicator.Start(&quot;Замена белого фона на прозрачный начата&quot;,100)
SrchAttributes(0).Name = &quot;CharBackTransparent&quot; SrchAttributes(0).Name = &quot;CharBackTransparent&quot;
SrchAttributes(0).Value = False SrchAttributes(0).Value = False
SrchAttributes(1).Name = &quot;CharBackColor&quot; SrchAttributes(1).Name = &quot;CharBackColor&quot;
@ -1159,6 +1218,8 @@ End Sub
Private Sub convertWLLatin2IPHAstra Private Sub convertWLLatin2IPHAstra
Dim newFontName As String Dim newFontName As String
Dim oSearchString As String
Dim oReplaceString As String
&apos;newFontName = &quot;IPH Astra Serif&quot; &apos;newFontName = &quot;IPH Astra Serif&quot;
Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue
Dim ReplAttributes(0) as new com.sun.star.beans.PropertyValue Dim ReplAttributes(0) as new com.sun.star.beans.PropertyValue
@ -1207,7 +1268,7 @@ Private Sub convertWLLatin2IPHAstra
replaceFontsInStyles( &quot;WL LatinAllIn1Goth&quot;, newFontName) replaceFontsInStyles( &quot;WL LatinAllIn1Goth&quot;, newFontName)
End Sub End Sub
Function getVersion Function getVersion As String
GlobalScope.BasicLibraries.LoadLibrary(&quot;Tools&quot;) GlobalScope.BasicLibraries.LoadLibrary(&quot;Tools&quot;)
Dim oProduct As Object Dim oProduct As Object
oProduct=GetRegistryKeyContent(&quot;org.openoffice.Setup/Product&quot;) oProduct=GetRegistryKeyContent(&quot;org.openoffice.Setup/Product&quot;)