Sub Main
Dim mBritishWords(5) As String
Dim mUSWords(5) As String
Dim n As Long
Dim oDocument As Object
Dim oReplace As Object
mBritishWords() = Array("colour", "neighbour", "centre", _
"behaviour", "metre", "through")
mUSWords() = Array("color", "neighbor", "center", _
"behavior", "meter", "thru")
oDocument = ThisComponent
oReplace = oDocument.createReplaceDescriptor
For n = lbound(mBritishWords()) To ubound(mBritishWords())
oReplace.SearchString = mBritishWords(n)
oReplace.ReplaceString = mUSWords(n)
oDocument.replaceAll(oReplace)
Next n
End Sub