[ASP + Word] Borders in een cell willen niet.

[Scharnout]

Ik ben al een aardig end gekomen met mijn word-docje wat leuk voor me gemaakt wordt, maar ik wil graag een lijntje onder mijn eerste row. Ik heb al heel veel zelf kunnen vinden, maar nu loop ik echt vast.

Mijn code:

ASP:

Set MyDoc = MyApp.Documents.Add
Set table1 = rng.Tables.Add (rng, AantalOrd, 6)    ' table heeft 5 kolommen 
table1.Cell(1, 1).Range.Text = "Aantal"
table1.Cell(1, 2).Range.Text = "Evenement"
table1.Cell(1, 3).Range.Text = "TicNummers"
table1.Cell(1, 4).Range.Text = "Fee"
table1.Cell(1, 5).Range.Text = "Ticketprijs"
table1.Cell(1, 6).Range.Text = "Totaal"

with MyDoc.Tables(1)
    .Columns(1).Width = CDbl(45)
    .Columns(2).Width = CDbl(120)
    .Columns(3).Width = CDbl(130)
    .Columns(4).Width = CDbl(50)
    .Columns(5).Width = CDbl(70)
    .Columns(6).Width = CDbl(60)
end With

'Dit is dus niet goed. Het zijn een paar probeersels, maar hoe moet het wel?
'With MyDoc.Tables(1).Range
'   .Rows(1).Cells.Borders(wdBorderBottom).LineStyle = 1
'   .Rows(1).Borders(wdBorderBottom).LineWidth = wdLineWidth050pt
'   .Rows(1).Borders(wdBorderBottom).Color = wdColorAutomatic
'end With

Het rare is dat als ik het bv in Word doe, het wel lukt. Maar op 1 of andere manier is het in vbscript anders. Op MSDN kom ik er ook niet uit met de voorbeelden die gegeven worden.

[Janoz]

Probeer eens een macro op te nemen waarin je handmatig de border zet. Vervolgens kun je in de macro wel zien hoe het zou moeten.

[Scharnout]

Dat bedoel ik met "als ik het in Word doe". Als ik dat copieer (nou ja, met wat aanpassingen), dan werkt het dus niet. Geeft hij aan dat er iets niet bestaat.

Gisternacht laat geworden wou niet lukken ...

[Scharnout]

Nou alweer zelf de oplossing gevonden. wbBorderBottom is dus -3.

Makkelijke pagina gevonden: http://www.geocities.com/ResearchTriangle/9834/msword8.htm

Deze is klaar!

[Lister]

Als je snel wilt weten wat voor waarde een constante heeft kan je in het debug/immediate window gewoon "? <naam constante>" doen en VB laat dan de waarde zien.