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
33
34
35
36
37
38
39
| Dim T As String, nbLig As Long, nbCol As Byte
Dim nbtable As Long, sTemps As String, sIhtmlTemp As String
Dim P As Variant, Param As String
Param = InputBox("2;2;100", "indiquer le nombre de ligne, de colonne, la taille du tableau")'remplacer l'inputbox par un usf si l'on veut avoir plus d'options et des listes de choix
If Param = vbNullString Then Exit Sub
P = Split(Param, ";")
With WebBrowser1
.Document.getElementByid("editeur").Focus
nbtable = .Document.getElementByid("editeur").getElementsByTagName("TABLE").Length + 1
'chaîne à coller pour repérer l'endroit du curseur et pouvoir par la suite remplacer cette chaîne par celle définissant la table
sTemps = "|#table#t" & nbtable & "|"
'construction de la table
T = "<table border='1' style='width:" & P(2) & "%'>"
For nbLig = 1 To P(0)
T = T & "<tr>"
For nbCol = 1 To P(1)
T = T & "<td></td>"
Next nbCol
T = T & "</tr>"
Next nbLig
T = T & "</table><br>"
'on colle sTemps
CreateObject("WScript.Shell").SendKeys sTemps
DoEvents 'à modifier si cela ne suffit pas
sIhtmlTemp = .Document.getElementByid("editeur").innerhtml
'on remplace cette chaîne par celle définissant la table
.Document.getElementByid("editeur").innerhtml = Replace(sIhtmlTemp, sTemps, T, 1, 1)
End With |
