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

Fix for subscript/superscript conversion for 6.2 and lower

Browse source
This commit is contained in:
Georgy Litvinov 2020-02-04 16:51:57 +01:00
parent bb40dc7935
commit 7ee4a43c49
1 changed files with 59 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
IPHRedaction/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 mark11 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark12
End Sub End Sub
@ -863,6 +863,30 @@ Private Sub fromTextSubscript
convertEnclosuresToFormat(CHR(872), styleNames, styleValues) convertEnclosuresToFormat(CHR(872), styleNames, styleValues)
End Sub End Sub
Private Sub toTextSuperscriptOld
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,101)
convertFormatToEnclosure(CHR(871), styleNames, styleValues)
End Sub
Private Sub fromTextSuperscriptOld
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,101)
convertEnclosuresToFormat(CHR(871), styleNames, styleValues)
End Sub
Private Sub toTextSubscriptOld
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,-101)
convertFormatToEnclosure(CHR(872), styleNames, styleValues)
End Sub
Private Sub fromTextSubscriptOld
styleNames = Array(&quot;CharEscapementHeight&quot;,&quot;CharEscapement&quot;)
styleValues = Array(58,-101)
convertEnclosuresToFormat(CHR(872), styleNames, styleValues)
End Sub
Private Sub toTextSparce Private Sub toTextSparce
styleNames = Array(&quot;CharKerning&quot;) styleNames = Array(&quot;CharKerning&quot;)
For i=70 To 70 For i=70 To 70
@ -881,19 +905,43 @@ End Sub
Private Sub convertFormattingToText Private Sub convertFormattingToText
Dim version As String
Dim smallNum As String
Dim bigNum As String
version = Trim(getVersion())
bigNum = Left(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
toTextSuperscriptOld
toTextSubscriptOld
Else
toTextSuperscript toTextSuperscript
toTextSubscript toTextSubscript
EndIf
toTextSparce toTextSparce
End Sub End Sub
Private Sub convertFormattingFromText Private Sub convertFormattingFromText
Dim version As String
version = Trim(getVersion())
Dim smallNum As String
Dim bigNum As String
version = Trim(getVersion())
bigNum = Left(version, 1)
smallNum = Right(version, 1)
fromTextSparce fromTextSparce
If CInt(bigNum) &lt; 6 OR (CInt(bigNum) = 6 AND CInt(smallNum &lt; 3) ) Then
fromTextSuperscriptOld
fromTextSubscriptOld
Else
fromTextSuperscript fromTextSuperscript
fromTextSubscript fromTextSubscript
EndIf
fromTextUnderline fromTextUnderline
fromTextStrikeout fromTextStrikeout
fromTextItalic fromTextItalic
@ -1024,5 +1072,11 @@ Private Sub convertWLLatin2IPHAstra
replaceFontsInStyles( &quot;WL LatinAllIn1Goth&quot;, newFontName) replaceFontsInStyles( &quot;WL LatinAllIn1Goth&quot;, newFontName)
End Sub End Sub
Function getVersion
GlobalScope.BasicLibraries.LoadLibrary(&quot;Tools&quot;)
Dim oProduct As Object
oProduct=GetRegistryKeyContent(&quot;org.openoffice.Setup/Product&quot;)
getVersion=oProduct.getByName(&quot;ooSetupVersion&quot;)
End Function
</script:module> </script:module>