Addresses #10, Copy page number area to a new text area in the sa… (#31)

src/ExpandAnimations.bas

@@ -136,6 +136,14 @@ function expandDocument(doc as Object, oStatusBar as Object)
     ' go through pages in reverse order
     for i = numSlides-1 to 0 step -1
         slide = doc.drawPages(i)
+        if slide.IsPageNumberVisible then
+            fixateSlideNumber(doc, slide, i+1, numSlides)
+        end if
+        ' If the slide name is pageXXn it is an autogenerated name
+        ' It is impossible to name a slide "Slide XX", but "Slide: XX" works
+        if Left(slide.Name, 4) = "page" then
+        	slide.Name = "Slide: " & CStr(i+1)
+        end if
         oStatusBar.setValue(numSlides-i)
         if hasAnimation(slide) then
             n = countAnimationSteps(slide)
@@ -157,7 +165,27 @@ function expandDocument(doc as Object, oStatusBar as Object)
 
     ' saving the expanded version
   doc.store()
+end function
 
+function fixateSlideNumber(doc as Object, slide as Object, slideNr as Integer, slideCount as Integer)
+    master = slide.MasterPage
+    shapeCount = master.getCount()
+    for shapeNr = 0 to shapeCount-1
+        shape = master.getByIndex(shapeNr)
+        shapeType = shape.getShapeType()
+        if shapeType = "com.sun.star.presentation.SlideNumberShape" then
+            copy = doc.createInstance("com.sun.star.drawing.TextShape")
+            'Call Tools.WritedbgInfo(shape)
+            slide.IsPageNumberVisible = False
+            slide.add(copy)
+            copy.setString(CStr(slideNr) & " / " & CStr(slideCount))
+            copy.Style = shape.Style
+            copy.Text.Style = shape.Text.Style
+            copy.Position = shape.Position
+            copy.Size = shape.Size
+            copy.TextVerticalAdjust = shape.TextVerticalAdjust
+        end if
+    next
 end function
 
 function somethingWrong( slide as Object )