Fixed headings settings while working with archive

This commit is contained in:
Georgy Litvinov 2020-06-23 13:58:46 +02:00
parent 8fab22ff8c
commit 85e11b73a5
3 changed files with 237 additions and 20 deletions

View file

@ -1615,6 +1615,8 @@ Function getPageNumber(cursor As Object) As String
oField.NumberingType = 4
oField.SubType = com.sun.star.text.PageNumberType.CURRENT
oTextCursor.Text.insertTextContent(oTextCursor, oField, False)
oField.Anchor.CharHidden = False
oField.Anchor.CharHidden = True
getPageNumber = oField.getPresentation(false)
oTextCursor.Text.removeTextContent(oField)
End Function