Bonjour Laurence,
BOTTIN Laurence - DGMT/SG/AG2 a écrit :
Re
En fait si je fais un creatcursor il n'y a pas de plantage, le byrange fait
planté. Je n'avais pas précisé que le signet est dans un cadre
Cachotière ;)
Merci
Laurence
Le code que j'avais proposé initialement ne tenait pas compte en effet
de ces éléments (cadre, tableau)
J'ai donc modifié en conséquence ma procédure qui devrait te permettre
de placer un repère de texte :
- dans le texte
- dans un cadre
- dans un tableau.
Option Explicit
Sub InsertEverywhereBookmarkToViewCursor
Dim oDoc As Object, oCurCtrl As Object
Dim oCursor As Object, oViewCursor As Object
Dim oVCT As Object
Dim oBookmark As Object, oBookmarks As Object
Dim sMsg As String
oDoc = ThisComponent
oCurCtrl = oDoc.CurrentController
oBookmark = oDoc.createInstance( "com.sun.star.text.Bookmark" )
oBookmark.Name = "MonBookmark7"
'test si le bookmark a placer existe deja
oBookmarks = oDoc.getBookmarks()
If Not oBookmarks.hasByName( oBookmark.Name ) Then
oViewCursor = oCurCtrl.getViewCursor()
oVCT = oViewCursor.Text
oCursor = oVCT.createTextCursorByRange( oViewCursor )
oCursor.String = "*repère ici*"
oVCT.insertTextContent( oCursor, oBookmark, True )
Else
sMsg = "Le bookmark " & oBookmark.Name & " existe déjà"
MsgBox ( sMsg, 32, "Repère de texte" )
End If
End Sub
Espérant que cela convienne.
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
