"anchor at page" problem

Author: KlausBlum

extension/OOoLilyPond/OOoLilyPond.xba

@@ -827,7 +827,11 @@ Sub InsertOOoLilyPondObject (sIdentifier As String, sNumber As String, sAddition
 			if bShapeIsSelected And (iAnchor = iOriginalAnchor) And Not IsNull (oShapePosition) Then
 				oGraphic.HoriOrientPosition = oShapePosition.X
 				oGraphic.VertOrientPosition = oShapePosition.Y
-				oGraphic.AnchorPageNo = iAnchorPageNo
+				If iAnchor = 2 Then  ' AT_PAGE
+					oGraphic.AnchorPageNo = iAnchorPageNo
+					' OpenOffice was crashed by this when iAnchor was AS_CHARACTER
+					' No problem with LibreOffice
+				End If
 			End If		
 
 		Case "SwXTextGraphicObject" ' Graphic is selected in Writer