problème d'insertion d'un tableau dans un fichier Word

Version imprimable

Bonjour

Je suis en train de faire un tableau dans un dichier word à travers vb.net.
J'ai reussi à le faire mais le problème c'est que les traits entres les lignes et entre les colonnes n'existent pas. comment je peux les afficher pour rendre le tableau plus clair.
avez-vous une idée?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Imports System.Drawing.Printing
Imports Microsoft.Office.Interop
Imports Word = Microsoft.Office.Interop.Word
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim tbl As Word.Table
        Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
        Dim oPara3 As Word.Paragraph
 
 oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add
 
'Insert a paragraph at the beginning of the document.
        oPara1 = oDoc.Content.Paragraphs.Add
        oPara1.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
        oPara1.Range.Font.Name = "Andalus"
        oPara1.Range.Font.Size = 6
        oPara1.Range.Text = "............."
 
         oPara1.Format.SpaceAfter = 4          
         oPara1.Range.InsertParagraphAfter()
        'reste du code
         tbl = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, r, 10)
         tbl.Range.Font.Size = 8
         tbl.Range.Font.Name = "Verdana"
         tbl.ApplyStyleFirstColumn = True
        tbl.ApplyStyleLastColumn = True
        tbl.ApplyStyleLastRow = True

j'ai essayé ces lignes de code mais une erreur s'affiche à chaque fois.

Code:

1
2
 
tbl.Range.Style = BorderStyle.FixedSingle

Code:

tbl.Style = "Table Grid 7"

Code:

tbl.Cell(1, 1).Range.Style = BorderStyle.FixedSingle

J'ai besoin de votre aide, c'est urgent.
Merci d'avance.

En farfouillant un peu sur le net je suis tombé sur une fonction que j'ai bidouillé pour les besoins de la cause. Passe ta table en paramètre et elle se retrouvera avec des bordures simples à toutes les cellules.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Sub ApplyUniformBorders(ByRef table As Word.Table)
        Dim borderType() As Integer
 
        borderType = New Integer() {WdBorderType.wdBorderTop, WdBorderType.wdBorderLeft, WdBorderType.wdBorderBottom, _
                           WdBorderType.wdBorderRight, WdBorderType.wdBorderHorizontal, WdBorderType.wdBorderVertical}
 
        On Error Resume Next
        With table
            For i as long = 0 To 5
                With .Borders(borderType(i))
                    .LineStyle = WdLineStyle.wdLineStyleSingle
                    .LineWidth = WdLineWidth.wdLineWidth050pt
                    .Color = WdColor.wdColorAutomatic
                End With
            Next
        End With
        On Error GoTo 0
    End Sub

01/11/2012, 15h15
Saintelaitlait

Citation:

Envoyé par Magistross

Code:

On Error GoTo 0

"What is so bad about the Goto - apart from being
attacked by a velociraptor?"
01/11/2012, 16h35
Magistross

"On Error GoTo 0" c'est loin d'être un vrai "GoTo", ça fait juste rétablir à la normale le système de gestion des erreurs. Donc aucun risque de voir un vélociraptor surgir si tu utilises mon code !