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 <liste@siaud.org> 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+unsubscribe@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+unsubscribe@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