OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Editing Drawing Objects 178
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Point.x = 1000
Point.y = 1000
Size.Width = 10000
Size.Height = 10000
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
RectangleShape =
Doc.createInstance("com.sun.star.drawing.RectangleShape")
RectangleShape.Size = Size
RectangleShape.Position = Point
RectangleShape.ShearAngle = 3000
Page.add(RectangleShape)
Searching and Replacing
As in text documents, drawing documents provide a function for searching and replace.
This function is similar to the one that is used in text documents as described in Text
Documents. However, in drawing documents the descriptor objects for searching and
replacing are not created directly through the document object, but rather through the
associated character level. The following example outlines the replacement process within
a drawing:
Dim Doc As Object
Dim Page As Object
Dim ReplaceDescriptor As Object
Dim I As Integer
Doc = StarDesktop.CurrentComponent
Page = Doc.drawPages(0)
ReplaceDescriptor = Page.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "is"
ReplaceDescriptor.ReplaceString = "was"
For I = 0 to Doc.drawPages.Count - 1
Page = Doc.drawPages(I)
Page.ReplaceAll(ReplaceDescriptor)
Next I