Footnote area calculations

This commit is contained in:
Georgy Litvinov 2020-06-22 22:32:48 +02:00
parent f8887020b9
commit eb6427e657
2 changed files with 261 additions and 0 deletions

View file

@ -628,6 +628,7 @@ Private Sub setArticleUniqPageStyles(i)
Dim clonedStyle As Object
Dim clonedStyleName As String
Dim oViewCursor As Object
Dim newPageName As String
oViewCursor = ThisComponent.CurrentController.getViewCursor()
pageStyles = ThisComponent.StyleFamilies.getByName("PageStyles")
'Constants