FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.


SommaireProgrammation OBasicOBasic : Traitement de texteLes signets (3)
précédent sommaire suivant
 

Pour insérer un signet manuellement:
Menu Insertion
Repère de texte

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub creerBookmarkEmplacementCurseur 
Dim Doc As Object , Cursor As Object 
'insérer un bookmark(signet)à l'emplacement du curseur 
  
Doc = ThisComponent 
Cursor = Doc.currentcontroller.ViewCursor 
  
Bookmark = Doc.createInstance("com.sun.star.text.Bookmark") 
'Spécifie le nom du nouveau signet 
Bookmark.Name = "Xmark" 
'Insertion du signet 
Doc.Text.insertTextContent(Cursor, Bookmark, True) 
  
'Ajoute du texte dans le signet 
Doc.getBookmarks().getByName("Xmark").getAnchor.setString("test ajout texte") 
  
End Sub

Mis à jour le 26 août 2013 SilkyRoad

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AtteindreSignet 
Dim Doc As Object , oCC As Object , oCursor As Object 
Dim BookMark As Object 
  
Doc = ThisComponent 
oCC = Doc.getCurrentController() 
  
'Définit le signet cible  
BookMark = Doc.BookMarks.GetByName("Xmark") 
  
oCursor = Doc.text.createTextCursorByRange(BookMark.Anchor)  
oCC.Select(oCursor)  
  
End Sub


Pour visualiser manuellement la liste des signets contenus dans le document, faites un clic droit en bas à gauche dans la barre d'état (à l'emplacement du numéro de la page active).
Vous pouvez ensuite sélectionner un des noms pour positionner le curseur à l'emplacement du signet.

Mis à jour le 31 juillet 2013 SilkyRoad

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub BoucleSignets 
Dim Doc As Object , Signets As Object 
Dim i As Integer 
  
Doc = ThisComponent 
Signets = Doc.getBookmarks()  
  
For i = 0 to Signets.Count() - 1  
   MsgBox "Nom: " & Signets.getByIndex(i).Name & Chr(13) & _ 
     "Contenu: " & Signets.getByIndex(i).Anchor.String 
Next i  
  
End Sub

Mis à jour le 31 juillet 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2017 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

 
Responsable bénévole de la rubrique OpenOffice & LibreOffice : zoom61 -