User:Percherie/traduction

Traduction du Wiki

En vue de relancer la traduction du wiki en français, une solution reposant sur une traduction automatique est envisagé. Cette traduction automatique est perfectible et comporte systématiquement des erreurs. Elle nécessite obligatoirement des corrections et reformulations de phrase.

Lors d'une traduction automatique, les tag utilisé par le wiki le sont également. Il faut donc effectuer des remplacements de texte pour les restaurer. Google Translate est un des rare outil en ligne permettant de traduire du contenu de plus de 3000 caractères.

Pour automatiser certaines restauration de tag et élément détruit après une traduction automatique, une macro utilisable dans LibreOffice permettant la restauration des tag est en cours de rédaction pour le modèle de page "Feature"

Suivi des pages

Pages à traduire

Les pages suivante sont en anglais doivent être traduite à la main ou automatiquement avec un traducteur en ligne.

Pages traduite automatiquement

Les pages suivante sont traduite en français mais comportent des liens brisé. Certains codes utilisé par le wiki sont également détruit et doivent être restauré depuis la page d'origine. Il y a de forte probabilités que certaines formulation de phrases doivent être réécrite.

Page à corriger

Les pages suivante ont été corrigé, les liens vérifiés et la mise en forme reconstruite. Une dernière relecture et une correction orthographique et grammaticale est à effectuer.

http://wiki.openstreetmap.org/wiki/FR:Inland_navigation

Page ayant des liens anglais

Les pages suivante sont traduite et corrigé mais elles contiennent des liens pointant vers des pages rédigé en anglais alors que leur équivalent en français existe.

http://wiki.openstreetmap.org/wiki/FR:Landuse

Macro LibreOffice

Je n'ai pas réussi à conserver la mise en forme du texte initial, contactez moi si vous savez le faire.

REM ***** BASIC ***** Sub Main End Sub sub EnTete 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(18) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 0 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 65536 args1(10).Name = "SearchItem.SearchString" args1(10).Value = "{{Langues}}" args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = "{{languages}}" args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1280 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) rem ---------------------------------------------------------------------- rem dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, Array()) rem ---------------------------------------------------------------------- dim args3(18) as new com.sun.star.beans.PropertyValue args3(0).Name = "SearchItem.StyleFamily" args3(0).Value = 2 args3(1).Name = "SearchItem.CellType" args3(1).Value = 0 args3(2).Name = "SearchItem.RowDirection" args3(2).Value = true args3(3).Name = "SearchItem.AllTables" args3(3).Value = false args3(4).Name = "SearchItem.Backward" args3(4).Value = false args3(5).Name = "SearchItem.Pattern" args3(5).Value = false args3(6).Name = "SearchItem.Content" args3(6).Value = false args3(7).Name = "SearchItem.AsianOptions" args3(7).Value = false args3(8).Name = "SearchItem.AlgorithmType" args3(8).Value = 0 args3(9).Name = "SearchItem.SearchFlags" args3(9).Value = 65536 args3(10).Name = "SearchItem.SearchString" args3(10).Value = "{{Entité" args3(11).Name = "SearchItem.ReplaceString" args3(11).Value = "{{Feature" args3(12).Name = "SearchItem.Locale" args3(12).Value = 255 args3(13).Name = "SearchItem.ChangedChars" args3(13).Value = 2 args3(14).Name = "SearchItem.DeletedChars" args3(14).Value = 2 args3(15).Name = "SearchItem.InsertedChars" args3(15).Value = 2 args3(16).Name = "SearchItem.TransliterateFlags" args3(16).Value = 1280 args3(17).Name = "SearchItem.Command" args3(17).Value = 3 args3(18).Name = "Quiet" args3(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args3()) rem ---------------------------------------------------------------------- dim args4(18) as new com.sun.star.beans.PropertyValue args4(0).Name = "SearchItem.StyleFamily" args4(0).Value = 2 args4(1).Name = "SearchItem.CellType" args4(1).Value = 0 args4(2).Name = "SearchItem.RowDirection" args4(2).Value = true args4(3).Name = "SearchItem.AllTables" args4(3).Value = false args4(4).Name = "SearchItem.Backward" args4(4).Value = false args4(5).Name = "SearchItem.Pattern" args4(5).Value = false args4(6).Name = "SearchItem.Content" args4(6).Value = false args4(7).Name = "SearchItem.AsianOptions" args4(7).Value = false args4(8).Name = "SearchItem.AlgorithmType" args4(8).Value = 0 args4(9).Name = "SearchItem.SearchFlags" args4(9).Value = 65536 args4(10).Name = "SearchItem.SearchString" args4(10).Value = "| Image = " args4(11).Name = "SearchItem.ReplaceString" args4(11).Value = "|image = " args4(12).Name = "SearchItem.Locale" args4(12).Value = 255 args4(13).Name = "SearchItem.ChangedChars" args4(13).Value = 2 args4(14).Name = "SearchItem.DeletedChars" args4(14).Value = 2 args4(15).Name = "SearchItem.InsertedChars" args4(15).Value = 2 args4(16).Name = "SearchItem.TransliterateFlags" args4(16).Value = 1280 args4(17).Name = "SearchItem.Command" args4(17).Value = 3 args4(18).Name = "Quiet" args4(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4()) rem ---------------------------------------------------------------------- dim args5(18) as new com.sun.star.beans.PropertyValue args5(0).Name = "SearchItem.StyleFamily" args5(0).Value = 2 args5(1).Name = "SearchItem.CellType" args5(1).Value = 0 args5(2).Name = "SearchItem.RowDirection" args5(2).Value = true args5(3).Name = "SearchItem.AllTables" args5(3).Value = false args5(4).Name = "SearchItem.Backward" args5(4).Value = false args5(5).Name = "SearchItem.Pattern" args5(5).Value = false args5(6).Name = "SearchItem.Content" args5(6).Value = false args5(7).Name = "SearchItem.AsianOptions" args5(7).Value = false args5(8).Name = "SearchItem.AlgorithmType" args5(8).Value = 0 args5(9).Name = "SearchItem.SearchFlags" args5(9).Value = 65536 args5(10).Name = "SearchItem.SearchString" args5(10).Value = "| Description = " args5(11).Name = "SearchItem.ReplaceString" args5(11).Value = "|description = " args5(12).Name = "SearchItem.Locale" args5(12).Value = 255 args5(13).Name = "SearchItem.ChangedChars" args5(13).Value = 2 args5(14).Name = "SearchItem.DeletedChars" args5(14).Value = 2 args5(15).Name = "SearchItem.InsertedChars" args5(15).Value = 2 args5(16).Name = "SearchItem.TransliterateFlags" args5(16).Value = 1280 args5(17).Name = "SearchItem.Command" args5(17).Value = 3 args5(18).Name = "Quiet" args5(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args5()) rem ---------------------------------------------------------------------- rem dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, Array()) rem ---------------------------------------------------------------------- rem dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, Array()) rem ---------------------------------------------------------------------- dim args8(18) as new com.sun.star.beans.PropertyValue args8(0).Name = "SearchItem.StyleFamily" args8(0).Value = 2 args8(1).Name = "SearchItem.CellType" args8(1).Value = 0 args8(2).Name = "SearchItem.RowDirection" args8(2).Value = true args8(3).Name = "SearchItem.AllTables" args8(3).Value = false args8(4).Name = "SearchItem.Backward" args8(4).Value = false args8(5).Name = "SearchItem.Pattern" args8(5).Value = false args8(6).Name = "SearchItem.Content" args8(6).Value = false args8(7).Name = "SearchItem.AsianOptions" args8(7).Value = false args8(8).Name = "SearchItem.AlgorithmType" args8(8).Value = 0 args8(9).Name = "SearchItem.SearchFlags" args8(9).Value = 65536 args8(10).Name = "SearchItem.SearchString" args8(10).Value = "| Tags =" args8(11).Name = "SearchItem.ReplaceString" args8(11).Value = "|tags = '''TAG DÉTRUIT PAR LA TRADUCTION AUTOMATIQUE'''" args8(12).Name = "SearchItem.Locale" args8(12).Value = 255 args8(13).Name = "SearchItem.ChangedChars" args8(13).Value = 2 args8(14).Name = "SearchItem.DeletedChars" args8(14).Value = 2 args8(15).Name = "SearchItem.InsertedChars" args8(15).Value = 2 args8(16).Name = "SearchItem.TransliterateFlags" args8(16).Value = 1280 args8(17).Name = "SearchItem.Command" args8(17).Value = 3 args8(18).Name = "Quiet" args8(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args8()) end sub sub Titre 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(18) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 1 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 65536 args1(10).Name = "SearchItem.SearchString" args1(10).Value = ".*. == ==" args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = "== &" args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1280 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(18) as new com.sun.star.beans.PropertyValue args2(0).Name = "SearchItem.StyleFamily" args2(0).Value = 2 args2(1).Name = "SearchItem.CellType" args2(1).Value = 0 args2(2).Name = "SearchItem.RowDirection" args2(2).Value = true args2(3).Name = "SearchItem.AllTables" args2(3).Value = false args2(4).Name = "SearchItem.Backward" args2(4).Value = false args2(5).Name = "SearchItem.Pattern" args2(5).Value = false args2(6).Name = "SearchItem.Content" args2(6).Value = false args2(7).Name = "SearchItem.AsianOptions" args2(7).Value = false args2(8).Name = "SearchItem.AlgorithmType" args2(8).Value = 1 args2(9).Name = "SearchItem.SearchFlags" args2(9).Value = 65536 args2(10).Name = "SearchItem.SearchString" args2(10).Value = "== == .*." args2(11).Name = "SearchItem.ReplaceString" args2(11).Value = "& ==" args2(12).Name = "SearchItem.Locale" args2(12).Value = 255 args2(13).Name = "SearchItem.ChangedChars" args2(13).Value = 2 args2(14).Name = "SearchItem.DeletedChars" args2(14).Value = 2 args2(15).Name = "SearchItem.InsertedChars" args2(15).Value = 2 args2(16).Name = "SearchItem.TransliterateFlags" args2(16).Value = 1280 args2(17).Name = "SearchItem.Command" args2(17).Value = 3 args2(18).Name = "Quiet" args2(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) rem ---------------------------------------------------------------------- dim args3(18) as new com.sun.star.beans.PropertyValue args3(0).Name = "SearchItem.StyleFamily" args3(0).Value = 2 args3(1).Name = "SearchItem.CellType" args3(1).Value = 0 args3(2).Name = "SearchItem.RowDirection" args3(2).Value = true args3(3).Name = "SearchItem.AllTables" args3(3).Value = false args3(4).Name = "SearchItem.Backward" args3(4).Value = false args3(5).Name = "SearchItem.Pattern" args3(5).Value = false args3(6).Name = "SearchItem.Content" args3(6).Value = false args3(7).Name = "SearchItem.AsianOptions" args3(7).Value = false args3(8).Name = "SearchItem.AlgorithmType" args3(8).Value = 0 args3(9).Name = "SearchItem.SearchFlags" args3(9).Value = 65536 args3(10).Name = "SearchItem.SearchString" args3(10).Value = "== ==" args3(11).Name = "SearchItem.ReplaceString" args3(11).Value = "==" args3(12).Name = "SearchItem.Locale" args3(12).Value = 255 args3(13).Name = "SearchItem.ChangedChars" args3(13).Value = 2 args3(14).Name = "SearchItem.DeletedChars" args3(14).Value = 2 args3(15).Name = "SearchItem.InsertedChars" args3(15).Value = 2 args3(16).Name = "SearchItem.TransliterateFlags" args3(16).Value = 1280 args3(17).Name = "SearchItem.Command" args3(17).Value = 3 args3(18).Name = "Quiet" args3(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args3()) end sub sub Gras_Italique 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(18) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 0 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 65536 args1(10).Name = "SearchItem.SearchString" args1(10).Value = "'' '" args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = "'''" args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1280 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(18) as new com.sun.star.beans.PropertyValue args2(0).Name = "SearchItem.StyleFamily" args2(0).Value = 2 args2(1).Name = "SearchItem.CellType" args2(1).Value = 0 args2(2).Name = "SearchItem.RowDirection" args2(2).Value = true args2(3).Name = "SearchItem.AllTables" args2(3).Value = false args2(4).Name = "SearchItem.Backward" args2(4).Value = false args2(5).Name = "SearchItem.Pattern" args2(5).Value = false args2(6).Name = "SearchItem.Content" args2(6).Value = false args2(7).Name = "SearchItem.AsianOptions" args2(7).Value = false args2(8).Name = "SearchItem.AlgorithmType" args2(8).Value = 0 args2(9).Name = "SearchItem.SearchFlags" args2(9).Value = 65536 args2(10).Name = "SearchItem.SearchString" args2(10).Value = "'''''" args2(11).Name = "SearchItem.ReplaceString" args2(11).Value = "''' ''" args2(12).Name = "SearchItem.Locale" args2(12).Value = 255 args2(13).Name = "SearchItem.ChangedChars" args2(13).Value = 2 args2(14).Name = "SearchItem.DeletedChars" args2(14).Value = 2 args2(15).Name = "SearchItem.InsertedChars" args2(15).Value = 2 args2(16).Name = "SearchItem.TransliterateFlags" args2(16).Value = 1280 args2(17).Name = "SearchItem.Command" args2(17).Value = 3 args2(18).Name = "Quiet" args2(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) end sub sub Tags 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(18) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 0 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 65536 args1(10).Name = "SearchItem.SearchString" args1(10).Value = "{{Tag | " args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = "{{Tag|" args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1280 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(18) as new com.sun.star.beans.PropertyValue args2(0).Name = "SearchItem.StyleFamily" args2(0).Value = 2 args2(1).Name = "SearchItem.CellType" args2(1).Value = 0 args2(2).Name = "SearchItem.RowDirection" args2(2).Value = true args2(3).Name = "SearchItem.AllTables" args2(3).Value = false args2(4).Name = "SearchItem.Backward" args2(4).Value = false args2(5).Name = "SearchItem.Pattern" args2(5).Value = false args2(6).Name = "SearchItem.Content" args2(6).Value = false args2(7).Name = "SearchItem.AsianOptions" args2(7).Value = false args2(8).Name = "SearchItem.AlgorithmType" args2(8).Value = 0 args2(9).Name = "SearchItem.SearchFlags" args2(9).Value = 65536 args2(10).Name = "SearchItem.SearchString" args2(10).Value = "{{}}" args2(11).Name = "SearchItem.ReplaceString" args2(11).Value = "'''''TAG DÉTRUIT PAR LA TRADUCTION'''''" args2(12).Name = "SearchItem.Locale" args2(12).Value = 255 args2(13).Name = "SearchItem.ChangedChars" args2(13).Value = 2 args2(14).Name = "SearchItem.DeletedChars" args2(14).Value = 2 args2(15).Name = "SearchItem.InsertedChars" args2(15).Value = 2 args2(16).Name = "SearchItem.TransliterateFlags" args2(16).Value = 1280 args2(17).Name = "SearchItem.Command" args2(17).Value = 3 args2(18).Name = "Quiet" args2(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) rem ---------------------------------------------------------------------- rem dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, Array()) rem ---------------------------------------------------------------------- dim args4(18) as new com.sun.star.beans.PropertyValue args4(0).Name = "SearchItem.StyleFamily" args4(0).Value = 2 args4(1).Name = "SearchItem.CellType" args4(1).Value = 0 args4(2).Name = "SearchItem.RowDirection" args4(2).Value = true args4(3).Name = "SearchItem.AllTables" args4(3).Value = false args4(4).Name = "SearchItem.Backward" args4(4).Value = false args4(5).Name = "SearchItem.Pattern" args4(5).Value = false args4(6).Name = "SearchItem.Content" args4(6).Value = false args4(7).Name = "SearchItem.AsianOptions" args4(7).Value = false args4(8).Name = "SearchItem.AlgorithmType" args4(8).Value = 0 args4(9).Name = "SearchItem.SearchFlags" args4(9).Value = 65536 args4(10).Name = "SearchItem.SearchString" args4(10).Value = "{{Tag |}}" args4(11).Name = "SearchItem.ReplaceString" args4(11).Value = "'''''TAG DÉTRUIT PAR LA TRADUCTION'''''" args4(12).Name = "SearchItem.Locale" args4(12).Value = 255 args4(13).Name = "SearchItem.ChangedChars" args4(13).Value = 2 args4(14).Name = "SearchItem.DeletedChars" args4(14).Value = 2 args4(15).Name = "SearchItem.InsertedChars" args4(15).Value = 2 args4(16).Name = "SearchItem.TransliterateFlags" args4(16).Value = 1280 args4(17).Name = "SearchItem.Command" args4(17).Value = 3 args4(18).Name = "Quiet" args4(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4()) end sub sub Avertissement 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(18) as new com.sun.star.beans.PropertyValue args1(0).Name = "SearchItem.StyleFamily" args1(0).Value = 2 args1(1).Name = "SearchItem.CellType" args1(1).Value = 0 args1(2).Name = "SearchItem.RowDirection" args1(2).Value = true args1(3).Name = "SearchItem.AllTables" args1(3).Value = false args1(4).Name = "SearchItem.Backward" args1(4).Value = false args1(5).Name = "SearchItem.Pattern" args1(5).Value = false args1(6).Name = "SearchItem.Content" args1(6).Value = false args1(7).Name = "SearchItem.AsianOptions" args1(7).Value = false args1(8).Name = "SearchItem.AlgorithmType" args1(8).Value = 1 args1(9).Name = "SearchItem.SearchFlags" args1(9).Value = 65536 args1(10).Name = "SearchItem.SearchString" args1(10).Value = "{{languages}}" args1(11).Name = "SearchItem.ReplaceString" args1(11).Value = "<big>\n<span style="+CHR$(34)+"color: #FF0000"+CHR$(34)+">Cette page est en cours de traduction</span>:\n* les liens de couleur rouge sont brisés et à réparer ;\n* les informations détruite lors de la traduction automatique sont indiqué en gras\n</big>\nMerci par avance pour votre participation\n\n\n{{languages}}" args1(12).Name = "SearchItem.Locale" args1(12).Value = 255 args1(13).Name = "SearchItem.ChangedChars" args1(13).Value = 2 args1(14).Name = "SearchItem.DeletedChars" args1(14).Value = 2 args1(15).Name = "SearchItem.InsertedChars" args1(15).Value = 2 args1(16).Name = "SearchItem.TransliterateFlags" args1(16).Value = 1280 args1(17).Name = "SearchItem.Command" args1(17).Value = 3 args1(18).Name = "Quiet" args1(18).Value = true dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1()) end sub