Convert VBA to Calc macro

[datum]

I have a fairly simple VBA script for Excel.

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub FixPlatforms()
    Dim fndList As Object
    Set fndList = CreateObject("Scripting.Dictionary")
    fndList.Add "3DO Interactive Multiplayer", "3DO"
    fndList.Add "Nintendo 3DS", "3DS"
    fndList.Add "Ajax", "AJAX"
    fndList.Add "Xerox Alto", "ALTO"
    fndList.Add "Amiga CD32", "AMI32"
    For Each sht In ActiveWorkbook.Worksheets
	For Each strKey In fndList.Keys()
	    sht.Cells.Replace What:=strKey, Replacement:=fndList(strKey), _
	      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
	      SearchFormat:=False, ReplaceFormat:=False
	Next strKey
    Next sht
End Sub

How can I get this script to work in Calc? I don’t know very much about Excel or Calc. Thanks!

[jimk]

What is your goal, and what is this code supposed to do? I don’t know very much about Excel either; this is a LibreOffice site. But it looks to me like this could be done in Calc without a macro, using a lookup table.

[datum]

The script searches for any instances of for example “Xerox Alto” and replaces them with “ALTO”. The Excel script I am actually using has a much longer list of replacements.

[mikekaganski]

sub MyFindReplace(strSearch, strReplace)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args(7) as new com.sun.star.beans.PropertyValue
args(0).Name = "SearchItem.AllTables"
args(0).Value = true
args(1).Name = "SearchItem.SearchFiltered"
args(1).Value = false
args(2).Name = "SearchItem.Pattern"
args(2).Value = false
args(3).Name = "SearchItem.Content"
args(3).Value = false
args(4).Name = "SearchItem.AlgorithmType"
args(4).Value = 0
args(5).Name = "SearchItem.SearchString"
args(5).Value = strSearch
args(6).Name = "SearchItem.ReplaceString"
args(6).Value = strReplace
args(7).Name = "SearchItem.Command"
args(7).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args())

end sub

Sub FixPlatforms()
    Dim fndList As Object
    Set fndList = CreateObject("Scripting.Dictionary")
    fndList.Add "3DO Interactive Multiplayer", "3DO"
    fndList.Add "Nintendo 3DS", "3DS"
    fndList.Add "Ajax", "AJAX"
    fndList.Add "Xerox Alto", "ALTO"
    fndList.Add "Amiga CD32", "AMI32"
    For Each strKey In fndList.Keys()
        MyFindReplace strKey, fndList.Item(strKey)
    Next strKey
End Sub

[datum]

Thanks! Could you also tell me how to limit this search to a particular column in a particular worksheet?