probleme avec wdbordervertical

[chausson29]

Bjr à tous.

la commande suivante:

Code :

matable.range.border(wdborderhorizontal).xxx=maconstante

fonctionne très bien.

Par contre:

Code :

matable.range.border(wdbordervertical).xxx=maconstante

Non. Il me retourne une erreur 5941.

Problème interne VBA?
Je sèche!!!!


Quelqu'un a-til déjà rencontré ce problème et trouvé la solution ad hoc?
MCI.

[ouskel'n'or]

Et si tu mets

Code :

1
2
3
4
With MaTable
     .range.border(wdborderhorizontal).xxx=maconstante 
     .range.border(wdbordervertical).xxx=maconstante 
end with

A tout hasard (pas testé)

[bbil]

essai de metter "manuellement" sous word cette bordure horizontale voir si tous ce passe bien....

[chausson29]

J'ai effectivement essayé avec un with.
Et à la main, cela fonctionne très bien.
Quelqu'un pourrait-il essayer chez lui, voir si c'est mon install d'Excel, ou un bug.
Tapez le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim maTab As Table
 
Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("monfichier.doc")    'ouvre le document Word
    WordApp.Visible = True 
 
Set maTab = WordDoc.Tables.Add(WordDoc.Bookmarks("monsignet").Range, 3, 3)
 
With maTabx.Range
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    .Borders(wdBorderVertical).Color = wdColorWhite
    .Borders.Shadow = False
End With

[Jipété]

Quelqu'un pourrait-il essayer chez lui

Testé sous w2k - Office 2k, c'est pareil : erreur 5941...
HTH,
--
jp

[bbil]

et en enlevant le .range ...?

Code :

1
2
3
4
5
6
7
8
 
 
maTab.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
With maTab
    ....
   .Borders(wdBorderVertical).Color = wdColorWhite
    .Borders.Shadow = False
End With