Sub ChangeStyle(cNomStyle as string)
Dim oDocument, oDesktop As Object
Dim oText As Object
Dim oVCursor, oCursor As Object

oDesktop = createUnoService("com.sun.star.frame.Desktop")
oDocument = oDesktop.getCurrentComponent()
oText = oDocument.Text
oVCursor = oDocument.currentcontroller.getViewCursor()
oCursor = oText.createTextCursorByRange(oVCursor.getstart())
oCursor.paraStyleName = cNomStyle

End Sub

'Titre 1
Sub StyleTitre1
ChangeStyle("Titre 1")
end sub

'Titre 2
Sub StyleTitre2
ChangeStyle("Titre 2")
end sub

'Titre 3
Sub StyleTitre3
ChangeStyle("Titre 3")
end sub

'Titre 4
Sub StyleTitre4
ChangeStyle("Titre 4")
end sub

'Corps de texte : 0
Sub StyleCorpsDeTexte
ChangeStyle("Corps de texte")
end sub

'Titre document : 5
Sub StyleTitre
ChangeStyle("Titre")
end sub

'Titre document : 6
Sub StyleChapeau
ChangeStyle("Chapeau")
end sub

'Puce 1 : 7
Sub StylePuce1
ChangeStyle("Puce 1")
end sub

'Puce 2 : 8
Sub StylePuce2
ChangeStyle("Puce 2")
end sub

'Puce 3 : 9
Sub StylePuce3
ChangeStyle("Puce 3")
end sub