Macro dans writer

fr-users
#1

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 :frowning:

#2

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