Discussion :

[Jipété]

Bonjour,

Je vous la fais courte : tout internet regorge d'exemples similaires à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Main
  dim oDoc as Object
  oDoc=ThisComponent
  MsgBox oDoc.Text.getString(), 0, "Document d'exemple"
End Sub

mais chez moi je me prends une erreur "Propriété ou méthode non trouvée : Text" avec la ligne 4 en surbrillance.

Ça serait du Pascal je dirais qu'il me manque une unité mais là, je ne vois pas, alors merci pour le coup de main car ggl ne vaut rien face à ce problème trop simple sans doute.

Le pire c'est que ça a commencé quand j'ai voulu utiliser une macro (qui fonctionne parfaitement) d'un vieux LO 3.5 dans un tout neuf LO 7.0 sous Debian 11.2 (la dernière) et là, badaboum, en avant les erreurs "blabla non trouvée".
Je ne comprends pas ce qui se passe, ni les exemples d'Andrew Pytonyak ni ceux du web n'arrivent à fonctionner, et mon petit exemple ci-dessus fonctionne bien avec le vieux 3.5...

[Mobydick_62]

Bonjour,

Ton code fonctionne parfaitement chez moi.

Version LO 7.2.5.2 (x64) sous Windows 10.

Je ne vois pas ce qui peux "clocher". Il ne manque rien dans le code.

Cordialement

[Jipété]

Bonjour,

et merci de ta réponse,

Ton code fonctionne parfaitement chez moi.
Je ne vois pas ce qui peux "clocher". Il ne manque rien dans le code.

Aïe aïe aïe, mais du coup je vais insister, et je repars de cette discussion (parce qu'au bout du compte c'était ça l'idée), avec la petite note suivante : ce n'est pas en page 3 du document de Pitonyak comme indiqué dans le post de JohnSUN, c'est en page 7, et juste en cliquant sur le bouton ça fonctionne !

Je vais creuser...

[Jipété]

Bonsoir,

Ton code fonctionne parfaitement chez moi.

sous-entendu tu as une boîte de dialogue avec le texte Document d'exemple affiché ?
Ça alors !
Parce qu'en bataillant avec les macros de Pitonyak, j'arrive à lister les fontes de mes machines mais, si je reprends les 4 lignes d'hier, ça devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Main
  dim oDoc as Object
  sNewUrl = "private:factory/swriter" ' Pitonyak
  oDoc = StarDesktop.loadComponentFromURL(sNewUrl,"_blank", 0, Array()) ' Pitonyak
  oDoc = ThisComponent
'  MsgBox oDoc.Text.getString(), 0, "Document d'exemple"  ' vide ou   Erreur propriété ou méthode non trouvée : Text si 2 lignes Pitonyak commentées
  MsgBox (oDoc.GetText().getString(), 0, "Document d'exemple")  ' vide ou  Erreur propriété ou méthode non trouvée : GetText  si 2 lignes Pitonyak commentées
 
' https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=91816
  Dim oText As Object
  Dim sTheString As String
   oText = oDoc.getText() ' variable non définie si les lignes Pitonyak sont commentées
   sTheString = oText.getString
'   MsgBox(sTheString) ' vide 
'   oText.setString("Hello World!")  ' écrit dans un nouveau document  
'   MsgBox oDoc.getText().getString()'further on trying to replace some strings, with no effect obviously -- vide
 
' essai moi
  Dim aString As String
  aString = "Hello World!"
  MsgBox(aString)   'Ah, quand même ! 
End Sub

Bon, mais c'est pas simple, les macro sous LO,