FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub boucleSurParaGraphes 
Dim leTexte As Object , TextElement As Object 
Dim i As Integer 
  
leTexte = ThisComponent.Text.createEnumeration 
  
While leTexte.hasMoreElements 
  TextElement = leTexte.nextElement 
  
  If TextElement.supportsService("com.sun.star.text.Paragraph") Then _ 
    Print TextElement.String 
  
Wend 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub SuppressionParaGraphe 
Dim leTexte As Object , TextElement As Object 
Dim i As Integer 
  
leTexte = ThisComponent.Text.createEnumeration 
  
'Boucle dans le document  
While leTexte.hasMoreElements 
  TextElement = leTexte.nextElement 
  
  'Compte les paragraphes	 
  If TextElement.supportsService("com.sun.star.text.Paragraph") Then _ 
    i = i + 1 
  
    'Suppression s'il s'agit du 2eme paragraphe   
    If i = 2 Then 
      'Suppression 
      TextElement.Dispose 
      'On sort de la procédure quand le paragraphe est supprimé 
      Exit Sub 
    End If 
  
Wend 
End Sub