Macro de remplacement
modifier
sub RplWikiSource
WfnRemplace(" ,", ",")
WfnRemplace(";" , " ;")
WfnRemplace(" ;", " ;")
WfnRemplace(":" , " :")
WfnRemplace(" :", " :")
WfnRemplace("!" , " !")
WfnRemplace(" !", " !")
WfnRemplace("\?" , " ?")
WfnRemplace(" \?", " ?")
WfnRemplace("«" , "« ")
WfnRemplace("« ", "« ")
WfnRemplace("»" , " »")
WfnRemplace(" »", " »")
WfnRemplace("( ", "(")
WfnRemplace(" )", ")")
WfnRemplace("'", "’")
WfnRemplace("xvie" , "{{sc|xvi}}{{e}}" )
WfnRemplace("xviie" , "{{sc|xvii}}{{e}}" )
WfnRemplace("xviiie", "{{sc|xviii}}{{e}}")
WfnRemplace("\.\.\.", "…")
WfnRemplace(" Mme ", " {{Mme}} ")
WfnRemplace("Mlle ", "{{Mlle}} ")
WfnRemplace("’’’", "'''")
WfnRemplace("’’", "''")
end sub
function WfnRemplace(sSearchString as string, sReplaceString as string)
oFrame = ThisComponent.getCurrentController.getFrame
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(7) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SearchItem.Backward"
args1(0).Value = false
args1(1).Name = "SearchItem.Pattern"
args1(1).Value = false
args1(2).Name = "SearchItem.AsianOptions"
args1(2).Value = false
args1(3).Name = "SearchItem.SearchString"
args1(3).Value = sSearchString
args1(4).Name = "SearchItem.ReplaceString"
args1(4).Value = sReplaceString
args1(5).Name = "SearchItem.TransliterateFlags"
args1(5).Value = 1280
args1(6).Name = "SearchItem.Command"
args1(6).Value = 3
args1(7).Name = "Quiet"
args1(7).Value = true
oDispatcher.executeDispatch(oFrame, ".uno:ExecuteSearch", "", 0, args1())
end function