I tried to use one of the above. For example, I tried:
Code: Select all
Sub LatinToHebrew
REM 'final mem does not get converted because it is entered with "." which causes chaos
Dim oDoc,aFind,aReplace,aRayCount,FandR
oDoc = thisComponent
aFind = Array("1523055","1524219","1523306","1527579","158867","159080","159109","1522831","1528375","1522851","1528152","158988","1522979","1523617","158713","1522784","1523001","1523713","1528257","1528617","1523280","1522992","158874","158945","1528153","1528369","1523048","1528192","1528460","1528208","1528368","156696","159260","1523171","159309","1528384","1523058","158426","158476","1523418","1528293","1528155","2704","1522966","159076","1524218","1528618","1524055","156660","158670","158953","1522953","1523626","159216","159099","1527589","1528292","1524368","1524216","158478","1528010","154393","1524172","159034","1528189","1523011","27104","1528167","159173","1523369","1522946","1528066","159264","1528093","1524388","159149","1523845","1522861","1528141","158813","1522862","1528114","1528573","158814","1524355","1523062","158934","158980","159077","159245","1522995","1528262","1528373","1523264","1528587","1528455","1523258","1528272","1523064","1527581","158684","1528283","2741","2748","2760","156619","1523851","1528303","1528271","1523158","1522773","1528300","1528274","2715","159183","1528143","1523049","159027","159107","159144","1523013","12403","1524048","8238","1523620","1528110","152259","156643","158865","1524000","1524071","1528581","1528380","159075","1528104","1522869","1528442","1528170","2762","156733","158870","1528612","1528253","1528441","156494","1522810","1528259","1528606","15724","15622","158672","158715","159142","1522874","1523624","1528062","159068","1528392","1528450","1528109","12289","158881","159180","1523054","158547","158877","1527590","1527994","1528452","1528080","159190","1522863","1523850","1523865","1524250","1528269","1528011","2746","158525","1524184","1524380","1528000","1528065","158918","159148","1528249","154670","1523146","1528275","1528197","1527588","1522972","158474","159025""159098")
aReplace = Array("1523055","1524219","1523306","1527579","158867","159080","159109","1522831","1528375","1522851","1528152","158988","1522979","1523617","158713","1522784","1523001","1523713","1528257","1528617","1523280","1522992","158874","158945","1528153","1528369","1523048","1528192","1528460","1528208","1528368","156696","159260","1523171","159309","1528384","1523058","158426","158476","1523418","1528293","1528155","2704","1522966","159076","1524218","1528618","1524055","156660","158670","158953","1522953","1523626","159216","159099","1527589","1528292","1524368","1524216","158478","1528010","154393","1524172","159034","1528189","1523011","27104","1528167","159173","1523369","1522946","1528066","159264","1528093","1524388","159149","1523845","1522861","1528141","158813","1522862","1528114","1528573","158814","1524355","1523062","158934","158980","159077","159245","1522995","1528262","1528373","1523264","1528587","1528455","1523258","1528272","1523064","1527581","158684","1528283","2741","2748","2760","156619","1523851","1528303","1528271","1523158","1522773","1528300","1528274","2715","159183","1528143","1523049","159027","159107","159144","1523013","12403","1524048","8238","1523620","1528110","152259","156643","158865","1524000","1524071","1528581","1528380","159075","1528104","1522869","1528442","1528170","2762","156733","158870","1528612","1528253","1528441","156494","1522810","1528259","1528606","15724","15622","158672","158715","159142","1522874","1523624","1528062","159068","1528392","1528450","1528109","12289","158881","159180","1523054","158547","158877","1527590","1527994","1528452","1528080","159190","1522863","1523850","1523865","1524250","1528269","1528011","2746","158525","1524184","1524380","1528000","1528065","158918","159148","1528249","154670","1523146","1528275","1528197","1527588","1522972","158474","159025""159098")
aRayCount = 0
FandR = oDoc.createReplaceDescriptor
FandR.SearchCaseSensitive = true
FandR.SearchRegularExpression = true
While aRayCount <= uBound(aFind)
FandR.setSearchString(aFind(aRayCount))
FandR.setReplaceString(aReplace(aRayCount))
aRayCount = aRayCount + 1
oDoc.ReplaceAll(FandR)
Wend
End Sub
This is just an example and replacement values would differ. Nevertheless, the message that I get is that createReplaceDescriptor method was not found