Bonjour,
Lors de l'insertion d'un tableau la première ligne est formattée pour les
titres. Comment éviter que cette première ligne soit engras et cadrage centre ?
Pour créer un tableau avec VB Net 2005 j'utilise la méthode suivante :
Sub InsererUnTableauUNO(ByVal sNombreLignes As Integer, ByVal sNombrecolonnes
As Integer, ByVal sNomTableau As String)
Dim Arguments(3) As Object
Arguments(0) = MakePropertyValue("TableName", sNomTableau)
Arguments(1) = MakePropertyValue("Columns", sNombrecolonnes)
Arguments(2) = MakePropertyValue("Rows", sNombreLignes)
Arguments(3) = MakePropertyValue("Flags", 11)
oSel = oDocument.CurrentController.Frame
oDispatcher.executeDispatch(oSel, ".uno:InsertTable", "", 0, Arguments)
End Sub
Cette méthode fonctionne aussi mais avec le même désagrément :
Sub InsererUnTableau(ByVal sNombreLignes As Integer, ByVal sNombrecolonnes As
Integer, ByVal sNomTableau As String)
Dim oMonTexte As Object
Dim oMonCurseur As Object
Dim oMonTableau As Object
oMonTexte = oDocument.Text
oMonCurseur = oMonTexte.CreateTextCursor
oMonCurseur.gotoNextParagraph(False)
oMonCurseur.gotoNextParagraph(False)
oMonTableau = oDocument.createInstance("com.sun.star.text.TextTable")
With oMonTableau
.Name = sNomTableau
.TopMargin = 1000
.BottomMargin = 1000
End With
oMonTableau.initialize(sNombreLignes, sNombrecolonnes)
oMonTexte.insertTextContent(oMonCurseur, oMonTableau, False)
End Sub
Est t'il possible de corriger mon code pour éviter ceci ?
Merci d'avance pour votre aide
Cezame
