Macro à corriger SVP

fr-users
#1

Bonjour,

J'ai essayé de bricoler une macro mais elle ne fonctionne pas.
Pourriez-vous m'indiquer mes erreurs SVP ?

3 étapes dans un fichier .odt

1. remplacer 2 fins de paragraphe (\p\p) par un saut de ligne manuel (\n)
2. remplacer 1 saut de ligne (\p) par une espace ( )
3. remplacer  saut de ligne manuel (\n) par 1 fin de paragraphe (\p)

Merci

sub n_p
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 args1(5) as new com.sun.star.beans.PropertyValue
rem -- remplacer \p\p par saut de ligne manuel--
args1(0).Name = "SearchItem.SearchString"
args1(0).Value = "\p\p"
args1(1).Name = "SearchItem.ReplaceString"
args1(1).Value = "\n"
rem -- remplacer \p par \s --
args1(2).Name = "SearchItem.SearchString"
args1(2).Value = "\p"
args1(3).Name = "SearchItem.ReplaceString"
args1(3).Value = " "
rem -- remplacer \n par \p --
args1(4).Name = "SearchItem.SearchString"
args1(4).Value = "\n"
args1(5).Name = "SearchItem.ReplaceString"
args1(5).Value = "\p"

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

end sub

#2

Bonjour,

On peut vraiment exécuter plusieurs recherches-remplacements d'un seul coup
? J'essaierais de faire l'executeDispatch à chaque jeu de paramètres, mais
je peux me tromper.

Thierry

#3

C'était bien évidemment la solution.
Merci

sub n_p
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 args1(5) as new com.sun.star.beans.PropertyValue
rem -- remplacer \p\p par saut de ligne manuel --
args1(0).Name = "SearchItem.SearchString"
args1(0).Value = "\p\p"
args1(1).Name = "SearchItem.ReplaceString"
args1(1).Value = "\n"

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

rem -- remplacer \p par \s --
args1(2).Name = "SearchItem.SearchString"
args1(2).Value = "\p"
args1(3).Name = "SearchItem.ReplaceString"
args1(3).Value = " "

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

rem -- remplacer \n par \p --
args1(4).Name = "SearchItem.SearchString"
args1(4).Value = "\n"
args1(5).Name = "SearchItem.ReplaceString"
args1(5).Value = "\p"

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

end sub

Cordialement
Sandy-Pascal Andriant

#4

:wink: