Bonjour,
j'ai créer une sub qui reçoit en paramètres
strNomSignet : le nom du signet à rechercher
intNBCaract : le nombre de caractère dont le curseur doit se déplacer pour
sélectionner une zone de texte
Bonjour,
Je souhaite qu'un signet soit créé à l'emplacement de mon curseur son nom
est contenu dans la variable TOTO
j'ai beau cherché, je ne comprends pas d'où vient l'erreur
Si je fais un createTextCursor, j'arrive à créer le signet met il est
positionné sur le curseur visible et ce n'est pas ce que je veux, si je
positionne le curseur là où je le veux, je n'arrive pas à créer le bookmark.
Sub Sub_Creer_Signet_Texte(strNomSignet As String, intNBCaract As integer)
Dim Bookmark As Object
Dim Cursor As Object
Dim TOTO as String
Dim Doc as object
Dim unSignet as object
Dim MonTexte
On Error GoTo Erreurs
Doc = ThisComponent
'positionnement du curseur le positionnement est ok
unSignet = Doc.Bookmarks.getByName(strNomSignet)
leTexte = unSignet.Anchor.Text
Cursor = leTexte.createTextCursorByRange(unSignet.Anchor.Start)
Cursor.goRight(intNBCaract, true)
'jusque là c'est bon le curseur s'est bien positionné
Bookmark = Doc.createInstance("com.sun.star.text.Bookmark")
TOTO = PREFIXE_SIGNETS_TEXTE
TOTO = TOTO & "10_"
TOTO = TOTO & strNomSignet
Bookmark.Name = TOTO
MonTexte=Doc.text
MonTexte.insertTextContent(Cursor, Bookmark, True) ' le plantage est
sur cette ligne
Exit Sub
Erreurs:
erreur_num=err()
erreur_txt=error(erreur_num)
erreur_ligne = Erl()
MsgBox("erreur n° " + erreur_num + " à la ligne " + erreur_ligne +
chr(13) + erreur_txt, 1 + 16, "Sub_Creer_Signet_Texte")
End Sub
Merci d'avance pour votre aide.
Laurence BOTTIN (DGMT/SG/AG2),
<mailto:[EMAIL PROTECTED]>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
