PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Libre Office, écrire à la position du curseur
Libre Office, écrire à la position du curseur
Iniciado por contact, 26,mar. 2020 08:31 - No hay respuesta
Miembro registrado
5 mensajes
Publicado el 26,marzo 2020 - 08:31
Bonjour,

J'ai besoin de vos lumières sur les objets Libre Office.

1/ je fais la recherche d'une chaine dans mon document (ça fonctionne)
oRecherche est un objet Automation dynamique=pautDocument>>createSearchDescriptor()
oRecherche>>SearchString="tableau1"
oRecherche>>SearchWords=Vrai
oRecherche>>SearchCaseSensitive=False

oRechercheMot est un objet Automation dynamique=pautDocument>>FindALL(oRecherche) //FindFirst

SI oRechercheMot<>Null ALORS

2/ Je veux lire la position
pautMonCurseur=pautDocument>>CurrentSelection
Je n'ai pas d'erreur

3/ Je veux écrire à cette position : Marche pas !
pautDocument>>Text>>insertString(pautMonCurseur,"Essai texte"+Caract(13)+Caract(13),OLEFaux)

essai aussi pour un tableau : ne fonctionne pas non plus
pautMonTexte>>insertTextContent(pautMonCurseur,pautMonTableau,Faux)

Mon soucis, c'est comment faire une recherche d'une chaine, se positionner dessus et la remplacer.

Pour information, pautMonCurseur>>gotoEnd(OLEFaux)
Se positionne bien à la fin de la page, et :
pautDocument>>Text>>insertString(pautMonCurseur, +Caract(13)+"fin de page",OLEFaux)
Fonctionne correctement

merci d'avance pour vos réponses

bonne journée,
Yvan