Cellatartalmak keresése és cseréje

A munkafüzet-dokumentumok - akárcsak a szöveges dokumentumok - keresési és cserefunkciót biztosítanak.

A munkafüzet-dokumentumokban a kereséshez és cseréhez használt leíróobjektum nem közvetlenül a dokumentumobjektumon keresztül van létrehozva, hanem a Sheets listán keresztül. A következő példa bemutatja a keresési és cserefolyamatot:

Dim Doc As Object

Dim Sheet As Object

Dim ReplaceDescriptor As Object

Dim I As Integer



Doc = StarDesktop.CurrentComponent

Sheet = Doc.Sheets(0)



ReplaceDescriptor = Sheet.createReplaceDescriptor()

ReplaceDescriptor.SearchString = "kutya"

ReplaceDescriptor.ReplaceString = "macska"


For I = 0 to Doc.Sheets.Count - 1

   Sheet = Doc.Sheets(I)

   Sheet.ReplaceAll(ReplaceDescriptor) 

Next I

Ez a példa a dokumentum első oldalát használja a ReplaceDescriptor létrehozásához, és aztán ezt alkalmazza az összes oldalra egy ciklusban.