litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

Code cleaning

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-21 16:35:38 +01:00
parent 52a5b70bbf
commit dd90a5b726
6 changed files with 102 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ePublishing/Album.xba
View file

@ -79,6 +79,7 @@ Sub replacePageStyleByPortrait(pageStyleName As String)
Dim oldPageStyle As Object
Dim textEnumeration As Object
Dim enumerationElement As Object
Dim i As Integer
pageStyles = ThisComponent.StyleFamilies.getByName("PageStyles")
oldPageStyle = pageStyles.getByName(pageStyleName)
For i = 0 To pageStyles.getCount() - 1