Bonjour,
BOTTIN Laurence - DGMT/SG/AG2 a écrit :
Bonjour,
J'ai effectivement acheté il y a quelques mois votre bible qui est très
utile pour démarrer
Je la consulte régulièrement ainsi que le developper's guide, le pytoniak
sous toutes ses formes ainsi que le Marcelly.
Lorsque mon appli sera terminé j'indiquerai toutes les références qui vont
bien.
Mais malheureusement le curseur et le repère de texte restent obscurs :
il est possible de créer un repère de texte là où se trouve le curseur de
texte en utilisant la commande createTextCursor
et en utilisant insertTextContent comme indiqué en p308 de ed2
il est possible de se positionner sur un repère de texte existant en
utilisant createTextCursorByRange comme dans un des exmples du livre.
Mais lorsque je veux associer les deux comme dans mon exemple la commande
insertTextContent renvoit une erreur 1 que je mette False ou true.
Doc.text.createTextCursorByRange(unSignet.Anchor.Start) provoque egalement
une erreur 1 sur insertTextContent
Merci d'avance de m'aider à résoudre ce casse-tête ooonois
Laurence
Voici un moyen de placer un bookmark, avec un texto, à l'endroit du curseur.
Sub InsertBookmarkToViewCursor
Dim oDoc As Object
Dim oBookmark As Object, oBookmarks As Object
Dim oCursor As Object
Dim oViewCursor As Object
oDoc = ThisComponent
'récupération du curseur visible
oViewCursor = oDoc.getCurrentController().getViewCursor()
oBookmark = oDoc.createInstance( "com.sun.star.text.Bookmark" )
oBookmark.Name = "MyBookmark"
'test si le bookmark a placer existe deja
oBookmarks = oDoc.getBookmarks()
If Not oBookmarks.hasByName( oBookmark.Name ) Then
'le bookmark n'existe pas ... on le cree
oCursor = oDoc.Text.createTextCursorByRange(oViewCursor)
oCursor.String = "Mon repère à moi "
'je place un espace en fin de chaine
oDoc.Text.insertTextContent( oCursor, oBookmark, True )
Else
MsgBox( "Le bookmark " & oBookmark.Name & " existe déjà", 32, "Repère
de texte" )
End If
End Sub
J'espère avoir bien compris ta demande.
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
