Voici mon code. Mais il fonctionne pas. Rien ne se passe. Par contre si je remplace le i par 1, la première ligne n'as pas de bordure.
Code :
- For i = 1 To i < 11
- Selection.Tables(1).Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleNone
- Selection.Tables(1).Rows(i).Borders(wdBorderLeft).LineStyle = wdLineStyleNone
- Selection.Tables(1).Rows(i).Borders(wdBorderRight).LineStyle = wdLineStyleNone
- Selection.Tables(1).Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleNone
- Next
|
Message édité par simoes le 17-06-2004 à 18:44:51
---------------
Donne un poisson à un homme il mangera une journée, Apprends lui à pêcher, il mangera toute sa vie...