FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

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

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

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