[fr-users] macro dans writer
Bonjour, cherchant à convertir un système fait sous Word, je voudrais faire une macro qui remplace tous les caractères µ d'un document par un nombre aléatoire entre 1 et 8. J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : Pouvez-vous m'aider ? Cordialement, O.Jaccomard Sub Macro1 Randomize 2^14-1 Dim monDocument As Object, monTexte As Object Dim monCurseur As Object Dim curseurVisible As Object monDocument = ThisComponent monTexte=monDocument.Text monCurseur=monTexte.createTextCursor curseurVisible=monDocument.CurrentController.getViewCursor monDocument.CurrentController.Select(monCurseur) monCurseur.gotoStart(False) curseurVisible.gotoStart(false) For i=1 To monDocument.CharacterCount If (curseurVisible.String="µ") Then curseurVisible.String=Int((8*Rnd)+1) End If monCurseur.goRight(1,false) curseurVisible.goRight(1,false) Next i End Sub -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
[fr-users] Macro dans Writer
Bonjour, Je planche sur une macro, mais je tourne en rond ! J’ai une page, avec un cadre. Dans ce cadre j’ai un tableau. Je veux coller une image en mémoire dans ce tableau. 1- je colle avec cette fonction : dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) 2- j’arrive a sélectionner mon cadre avec cette fonction : dispatcher.executeDispatch(document, ".uno:JumpToNextFrame", "", 0, Array()) mais je n’arrive pas à entrer dans le cadre (et donc dans le tableau) Je m'inspire de cette page https://wiki.documentfoundation.org/Development/DispatchCommands#Writer_slots_.28swslots.29 Une idée Merci Nicolas Voici le script REM * BASIC * sub Main rem -- rem define variables dim document as object dim dispatcher as object msgbox("l'image va être copiée depuis Draw") rem -- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem -- rem on colle l'image en mémoire depuis Draw dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) rem -- rem on ancre comme caractère l'image dispatcher.executeDispatch(document, ".uno:SetAnchorToChar", "", 0, Array()) rem -- rem on coupe l'image qui est n'importe où après l'ancrage dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array()) rem -- rem on se place en début de document, 2 pages, donc certains d'être en début de première page dispatcher.executeDispatch(document, ".uno:GoToStartOfPrevPage", "", 0, Array()) rem -- rem on deplace le curseur 2 fois à droite (on est dans un premier tableau) dim argsdroite(1) as new com.sun.star.beans.PropertyValue argsdroite(0).Name = "Count" argsdroite(0).Value= 2 argsdroite(1).Name = "Select" argsdroite(1).Value= false dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, argsdroite()) rem -- rem on colle l'image en mémoire dans la cellule (elle est en tans que caractere, ancrage précédent) dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) rem -- Rem on detecte la prochaine frame dispatcher.executeDispatch(document, ".uno:JumpToNextFrame", "", 0, Array()) rem et puis je seche ... end sub -- Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
[fr-users] Macro dans Writer
Bonjour, Merci, je vais regarder Nicolas Nicolas Paour 292, route du Grenat Villette 38380 Saint Laurent du Pont Tel : 09 52 30 99 07 Mob : 06 51 96 10 45 Fax : 09 57 30 99 07 Sujet : Re: [fr-users] Macro dans Writer De : linux Date : 07/08/2015 08:48 Pour : users@fr.libreoffice.org Ci-joint un exemple de procédure que j'utilise pour copier un diagramme dans un tableau de writer à la position que je veux. remarque il largement perfectible de plus j'appelle d'autre procédure qui sont suffisamment explicite pour être remplacer par des lignes de codes adéquate et il reste la définition de l'ancrage que je n'arrive pas à faire. Attention aux ouverture et fermeture de fichier elle rende active le document Cordialement Jean Luc - - [fr-users] Re: Espaces insécables - 21366 - William Pyke - - [fr-users] Re: Espaces insécables - 21367 - William Pyke - - [fr-users] installation libreoffice 4.4 sous windows 10 - 21368 - vulcain - - [fr-users] installation libreoffice 4.4 sous windows 10 - 21369 - Sébastien Adam - - [fr-users] Icônes Sifr - 21370 - Didier TROM - - [fr-users] installation libreoffice 4.4 sous windows 10 - 21371 - Jacques Guilleron - -- Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
[fr-users] Macro dans writer
Bonjour En partant de la doc de LibreOffice ( https://wiki.documentfoundation.org/Documentation/BASIC_Guide/fr ) , on est renvoyé sur la doc de AOO. J'arrive ici : https://wiki.openoffice.org/wiki/FR/Documentation/BASIC_Guide/Structure_of_Text_Documents Et je teste le premier programme : REM * BASIC * sub Main Dim Doc As Object Dim Enum As Object Dim TextElement As Object ' Create document object Doc = StarDesktop.CurrentComponent ' Create enumeration object Enum = Doc.Text.createEnumeration ' loop over all text elements While Enum.hasMoreElements TextElement = Enum.nextElement If TextElement.supportsService("com.sun.star.text.TextTable") Then MsgBox "The current block contains a table." End If If TextElement.supportsService("com.sun.star.text.Paragraph") Then MsgBox "The current block contains a paragraph." End If Wend end sub Et ça ne marche pas : Erreur d'exécution BASIC. Propriété ou méthode non trouvée : Text. Doc.Text est inconnu :( -- Amicalement vOOotre Troumad Alias Bernard SIAUD mon site : http://troumad.org : AD&D maths WEB... Pour la liberté http://www.developpez.net/forums/f17/systemes/linux/ N'envoyez que des documents avec des formats ouverts, comme http://fr.libreoffice.org -- Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
Re: [fr-users] macro dans writer
Bonjour, Pourquoi ne pas utiliser le recherche et remplace. L'exemple ci-dessous a été fait sous OO 3.2.1 mais cela doit fonctionner sous libreoffice ( afin je le souhaite) Option Explicit Sub RemplacerCaractereParNombreAleatoire() Dim monDocument As Object Dim Cherche As Object, trouv As Variant Dim x As Long monDocument = ThisComponent Cherche = monDocument.createSearchDescriptor with Cherche .SearchString = "µ" .SearchWords = false end with trouv = monDocument.findAll(Cherche) print "Nombre d'occurrences : " & trouv.Count for x = 0 to trouv.Count -1 trouv(x).string = Int((8*Rnd)+1) next End Sub Cordialement Claude Message original ---- Sujet : [fr-users] macro dans writer De : Olivier Jaccomard Pour : users@fr.libreoffice.org Date : 15/06/2011 23:52 Bonjour, cherchant à convertir un système fait sous Word, je voudrais faire une macro qui remplace tous les caractères µ d'un document par un nombre aléatoire entre 1 et 8. J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : Pouvez-vous m'aider ? Cordialement, O.Jaccomard Sub Macro1 Randomize 2^14-1 Dim monDocument As Object, monTexte As Object Dim monCurseur As Object Dim curseurVisible As Object monDocument = ThisComponent monTexte=monDocument.Text monCurseur=monTexte.createTextCursor curseurVisible=monDocument.CurrentController.getViewCursor monDocument.CurrentController.Select(monCurseur) monCurseur.gotoStart(False) curseurVisible.gotoStart(false) For i=1 To monDocument.CharacterCount If (curseurVisible.String="µ") Then curseurVisible.String=Int((8*Rnd)+1) End If monCurseur.goRight(1,false) curseurVisible.goRight(1,false) Next i End Sub -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
Re: [fr-users] macro dans writer
Bonjour, >Pourquoi ne pas utiliser le recherche et remplace. Comment fait-on alors le nombre aléatoire ??? Message original Sujet : [fr-users] macro dans writer De : Olivier Jaccomard Pour : users@fr.libreoffice.org Date : 15/06/2011 23:52 > Bonjour, > > cherchant à convertir un système fait sous Word, je voudrais faire une > macro qui remplace tous les caractères µ d'un document par un nombre > aléatoire entre 1 et 8. > > J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : > > Pouvez-vous m'aider ? > Cordialement, > O.Jaccomard > > Sub Macro1 > Randomize 2^14-1 > Dim monDocument As Object, monTexte As Object > Dim monCurseur As Object > Dim curseurVisible As Object > > monDocument = ThisComponent > monTexte=monDocument.Text > monCurseur=monTexte.createTextCursor > curseurVisible=monDocument.CurrentController.getViewCursor > monDocument.CurrentController.Select(monCurseur) > monCurseur.gotoStart(False) > curseurVisible.gotoStart(false) > For i=1 To monDocument.CharacterCount > If (curseurVisible.String="µ") Then > curseurVisible.String=Int((8*Rnd)+1) > End If > monCurseur.goRight(1,false) > curseurVisible.goRight(1,false) > Next i > End Sub > > -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
Re: [fr-users] macro dans writer
idée de bidouille : copier-coller dans un tableur et utiliser =SUBSTITUE(B7;"µ";ALEA.ENTRE.BORNES(1;8)) sauf que le passage writer<>calc transforme les paragraphes en cellules : donc si plusieurs occurrences de "µ" dans un paragraphes, le tirage aléatoire est le même pour toutes les occurrences... il faudrait trouver un moyen d'exploser le texte pour mettre un mot dans chaque cellule bonne jourrnée, Pierrre Le 16/06/2011 11:16, Élodie Omer a écrit : Bonjour, Pourquoi ne pas utiliser le recherche et remplace. Comment fait-on alors le nombre aléatoire ??? Message original ---- Sujet : [fr-users] macro dans writer De : Olivier Jaccomard Pour : users@fr.libreoffice.org Date : 15/06/2011 23:52 Bonjour, cherchant à convertir un système fait sous Word, je voudrais faire une macro qui remplace tous les caractères µ d'un document par un nombre aléatoire entre 1 et 8. J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : Pouvez-vous m'aider ? Cordialement, O.Jaccomard Sub Macro1 Randomize 2^14-1 Dim monDocument As Object, monTexte As Object Dim monCurseur As Object Dim curseurVisible As Object monDocument = ThisComponent monTexte=monDocument.Text monCurseur=monTexte.createTextCursor curseurVisible=monDocument.CurrentController.getViewCursor monDocument.CurrentController.Select(monCurseur) monCurseur.gotoStart(False) curseurVisible.gotoStart(false) For i=1 To monDocument.CharacterCount If (curseurVisible.String="µ") Then curseurVisible.String=Int((8*Rnd)+1) End If monCurseur.goRight(1,false) curseurVisible.goRight(1,false) Next i End Sub -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
Re: [fr-users] macro dans writer
Bonjour, C'est fait grâce aux instructions suivantes (dans la macro que j'ai envoyée) for x = 0 to trouv.Count -1 trouv(x).string = Int((8*Rnd)+1) next Message original Sujet : Re: [fr-users] macro dans writer De : Élodie Omer Pour : users@fr.libreoffice.org Date : 16/06/2011 11:16 Bonjour, Pourquoi ne pas utiliser le recherche et remplace. Comment fait-on alors le nombre aléatoire ??? Message original Sujet : [fr-users] macro dans writer De : Olivier Jaccomard Pour : users@fr.libreoffice.org Date : 15/06/2011 23:52 Bonjour, cherchant à convertir un système fait sous Word, je voudrais faire une macro qui remplace tous les caractères µ d'un document par un nombre aléatoire entre 1 et 8. J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : Pouvez-vous m'aider ? Cordialement, O.Jaccomard Sub Macro1 Randomize 2^14-1 Dim monDocument As Object, monTexte As Object Dim monCurseur As Object Dim curseurVisible As Object monDocument = ThisComponent monTexte=monDocument.Text monCurseur=monTexte.createTextCursor curseurVisible=monDocument.CurrentController.getViewCursor monDocument.CurrentController.Select(monCurseur) monCurseur.gotoStart(False) curseurVisible.gotoStart(false) For i=1 To monDocument.CharacterCount If (curseurVisible.String="µ") Then curseurVisible.String=Int((8*Rnd)+1) End If monCurseur.goRight(1,false) curseurVisible.goRight(1,false) Next i End Sub -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
Re: [fr-users] macro dans writer
Le 16/06/2011 10:26, claude a écrit : Bonjour, Pourquoi ne pas utiliser le recherche et remplace. L'exemple ci-dessous a été fait sous OO 3.2.1 mais cela doit fonctionner sous libreoffice ( afin je le souhaite) Option Explicit Sub RemplacerCaractereParNombreAleatoire() Dim monDocument As Object Dim Cherche As Object, trouv As Variant Dim x As Long monDocument = ThisComponent Cherche = monDocument.createSearchDescriptor with Cherche .SearchString = "µ" .SearchWords = false end with trouv = monDocument.findAll(Cherche) print "Nombre d'occurrences : " & trouv.Count for x = 0 to trouv.Count -1 trouv(x).string = Int((8*Rnd)+1) next End Sub Cordialement Claude Une solution bien plus élégante, propre, et rapide ! Merci, Claude. Message original ---- Sujet : [fr-users] macro dans writer De : Olivier Jaccomard Pour : users@fr.libreoffice.org Date : 15/06/2011 23:52 Bonjour, cherchant à convertir un système fait sous Word, je voudrais faire une macro qui remplace tous les caractères µ d'un document par un nombre aléatoire entre 1 et 8. J'ai essayé ça, mais sans résultat (mon curseur ne se déplace pas) : Pouvez-vous m'aider ? Cordialement, O.Jaccomard Sub Macro1 Randomize 2^14-1 Dim monDocument As Object, monTexte As Object Dim monCurseur As Object Dim curseurVisible As Object monDocument = ThisComponent monTexte=monDocument.Text monCurseur=monTexte.createTextCursor curseurVisible=monDocument.CurrentController.getViewCursor monDocument.CurrentController.Select(monCurseur) monCurseur.gotoStart(False) curseurVisible.gotoStart(false) For i=1 To monDocument.CharacterCount If (curseurVisible.String="µ") Then curseurVisible.String=Int((8*Rnd)+1) End If monCurseur.goRight(1,false) curseurVisible.goRight(1,false) Next i End Sub P -- Envoyez un mail à users+h...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
Re: [fr-users] Macro dans Writer
Ci-joint un exemple de procédure que j'utilise pour copier un diagramme dans un tableau de writer à la position que je veux. remarque il largement perfectible de plus j'appelle d'autre procédure qui sont suffisamment explicite pour être remplacer par des lignes de codes adéquate et il reste la définition de l'ancrage que je n'arrive pas à faire. Attention aux ouverture et fermeture de fichier elle rende active le document Cordialement Jean Luc Sub CopierUnDiagrammeDansUnTableauDUnePage(oMonDocumentCUDDUP,NomFeuilleDiagrammeCUDDUP,nomFEUILLEdonneeCUDDUP,_ NOMdiagrameCUDDUP,oMonDocumentTexteCUDDUP,NomDuTableauCUDDUP,PositionDeLaCopieDansLeTableauCUDDUP,statutCUDDUP) Dim oMonDiagrammeCUDDUP, oLeDiagrammeCUDDUP, oLesFeuillesCUDDUP,oMaFeuilleCUDDUP, FenetreSelectionnerCUDDUP As Object Dim oMonTableauCUDDUP As Object Dim ServiceCUDDUP, PositionDuCurseurDansLeTableauCUDDUP, NomDuFichierCalcCUDDUP As String Dim LeDiagrammeExisteCUDDUP As Boolean Dim oDispatchHelperCUDDUP As Object ' dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") Dim ArgsCUDDUP(0) as new com.sun.star.beans.PropertyValue dim PysDoc,PysCopie as object, PysDestination, oDocCtrl, oDocFrame, oDrawDoc, oDrawPage , oDrawDocCtrl, oDrawDocFrame as object Dim NiveauDebugCUDDUP, NbrDeDiagrammeCUDDUP,DeplacementHorizontalCUDDUP, DeplacementVerticalCUDDUP As Integer NiveauDebugCUDDUP=1 MessageDebug(NiveauDebugCUDDUP,3,582,"CopierUnDiagrammeDansUnePage") NomDuFichierCalcCUDDUP = oMonDocumentCUDDUP.Location 'l'argument n'est pas facultatif If NOMdiagrameCUDDUP="" Then NOMdiagrameCUDDUP="Object 1" End If ' On Error Goto errmodifCUDDUP oMaFeuilleCUDDUP = oMonDocumentCUDDUP.sheets.getByName(NomFeuilleDiagrammeCUDDUP) For NbrDeDiagrammeCUDDUP = 0 to oMaFeuilleCUDDUP.DrawPage.count - 1 oMonDiagrammeCUDDUP = oMaFeuilleCUDDUP.DrawPage.getByIndex(NbrDeDiagrammeCUDDUP) If oMonDiagrammeCUDDUP.name = NOMdiagrameCUDDUP Then thiscomponent.currentcontroller.select(oMonDiagrammeCUDDUP) oLeDiagrammeCUDDUP = ThisComponent.CurrentController.Frame oDispatchHelperCUDDUP = createUnoService("com.sun.star.frame.DispatchHelper") oDispatchHelperCUDDUP.executeDispatch(oLeDiagrammeCUDDUP , ".uno:Copy", "", 0, Array()) NbrDeDiagrammeCUDDUP = oMaFeuilleCUDDUP.DrawPage.count - 1 Else If NbrDeDiagrammeCUDDUP = oMaFeuilleCUDDUP.DrawPage.count - 1 Then MessageDebug(NiveauDebugCUDDUP,1,605,"CopierUnDiagrammeDansUnePage",Array("nom du diagramme selectionné ",oMonDiagrammeCUDDUP.name ,"nom du diagramme à trouver ", NOMdiagrameCUDDUP) End If End If Next NbrDeDiagrammeCUDDUP EnregistrerEtFermer(oMonDocumentCUDDUP) EnregistrerE(oMonDocumentTexteCUDDUP) oMonTableauCUDDUP = oMonDocumentTexteCUDDUP.createInstance("com.sun.star.text.TextTable") oMonTableauCUDDUP = FindObjectByName(oMonDocumentTexteCUDDUP.TextTables,NomDuTableauCUDDUP, "com.sun.star.text.TextTable") ThisComponent.CurrentController.Select(oMonTableauCUDDUP) dim document as object document = ThisComponent.CurrentController.Frame Dim CurseurVisible, CurseurVisible2 As Object CurseurVisible=oMonDocumentTexteCUDDUP.currentcontroller.ViewCursor PositionDuCurseurDansLeTableauCUDDUP= CurseurVisible.Cell.CellName If CurseurVisible.Cell.CellName = PositionDeLaCopieDansLeTableauCUDDUP Then ' CurseurVisible.gotoRange(oMonTableauCUDDUP.getAnchor(),False) 'ne sert à rien Else 'il faut décaler le curseur DeplacementHorizontalCUDDUP=Val(Right(PositionDeLaCopieDansLeTableauCUDDUP,1)) - Val(Right(PositionDuCurseurDansLeTableauCUDDUP,1)) DeplacementVerticalCUDDUP=Asc(left(PositionDeLaCopieDansLeTableauCUDDUP,1))-Asc(left(PositionDuCurseurDansLeTableauCUDDUP,1)) CurseurVisible.goDown(DeplacementVerticalCUDDUP,False) CurseurVisible.goRight(DeplacementHorizontalCUDDUP,False) End IF oDispatchHelperCUDDUP = createUnoService( "com.sun.star.frame.DispatchHelper" ) dim args6(0) as new com.sun.star.beans.PropertyValue args6(0).Name = "SelectedFormat" args6(0).Value = 3 '3 ' Copie au paragraphe '2 pas de copie '1 pas de copie '3 oDispatchHelperCUDDUP.executeDispatch( document, ".uno:ClipboardFormatItems", "", 0, args6()) 'copie dans le tableau ' oDispatchHelper.executeDispatch( oMonDocumentTexteCUDDUP, ".uno:Paste", "", 0,Array() ) ' oDispatchHelperCUDDUP.executeDispatch( document, ".uno:Paste", "", 0,args5() ) 'copie à la page dim i as integer dim o as object ' o= ThisComponent.Select() 'document.getPropertySetInfo.Properties ' ici THISCOMPONENT est l'objet à scanner ' Xray o 'for i = lbound(o) to ubound(o) 'print o(i).name 'next i ' document = ThisComponent.CurrentController.Frame ' Print ("recherche de l'ancrage") ' Xray document ' document.SetAnchorToChar ' OuvrirleFichier(NomDuFichierCalcCUDDUP,"", "CopierUnDiagrammeDansUnTableauDUnePage Ligne 657") ' On Error GoTo 0 Exit Sub errmodifCUDDUP: print ("Dans le Programme ModifierUnDiagramme L'instruction n'existe pas erreur non
Re: [fr-users] Macro dans writer
Bonjour. Si tu affiches l'historique de la page du Wiki, tu verras que le texte de la Macro date un peu. Rien d'étonnant à ce qu'il y aie aujourd'hui une erreur d'objet. Les codes des Macros les plus à jour sont ceux du forum. Jean-Michel PIERRE Tél : 06.19.55.73.22 > Le 17 déc. 2017 à 14:45, Bernard Siaud alias Troumad a > écrit : > > > Bonjour > > En partant de la doc de LibreOffice ( > https://wiki.documentfoundation.org/Documentation/BASIC_Guide/fr ) , on est > renvoyé sur la doc de AOO. > J'arrive ici : > https://wiki.openoffice.org/wiki/FR/Documentation/BASIC_Guide/Structure_of_Text_Documents > Et je teste le premier programme : > >> REM * BASIC * >> >> >> sub Main >> >> Dim Doc As Object >> Dim Enum As Object >> Dim TextElement As Object >> >> ' Create document object >> Doc = StarDesktop.CurrentComponent >> ' Create enumeration object >> Enum = Doc.Text.createEnumeration >> ' loop over all text elements >> >> While Enum.hasMoreElements >> TextElement = Enum.nextElement >> >> If TextElement.supportsService("com.sun.star.text.TextTable") Then >> MsgBox "The current block contains a table." >> End If >> >> If TextElement.supportsService("com.sun.star.text.Paragraph") Then >> MsgBox "The current block contains a paragraph." >> End If >> >> Wend >> >> >> end sub > > Et ça ne marche pas : >> Erreur d'exécution BASIC. >> Propriété ou méthode non trouvée : Text. > Doc.Text est inconnu :( > -- > Amicalement vOOotre Troumad Alias Bernard SIAUD > mon site : http://troumad.org : AD&D maths WEB... > Pour la liberté http://www.developpez.net/forums/f17/systemes/linux/ > N'envoyez que des documents avec des formats ouverts, comme > http://fr.libreoffice.org > > -- > Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire > Les archives de la liste sont disponibles à > https://listarchives.libreoffice.org/fr/users/ > Tous les messages envoyés sur cette liste seront archivés publiquement et ne > pourront pas être supprimés > -- Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés