2008秋季汕头奋翔信鸽俱乐部 300
| 综合归巢报到情况 |
 请选择以
时间
鸽棚号
为顺序
|
| 姓名 |
时间 |
鸽棚号 |
足环号 |
暗印号 |
| 陈锐昭 |
2008-09-30.09:55:46 |
95 |
########## |
12345 |
| 张毅 |
2008-09-30.10:07:08 |
157 |
0000000000 |
00000 |
| |
2008-09-30.10:27:49 |
|
1908789654 |
12345 |
| 伟利昌 |
2008-09-30.10:34:35 |
299 |
0819000000 |
00000 |
| 蔡镇波 |
2008-09-30.10:37:50 |
28 |
1111111111 |
11111 |
| 蔡钿波 |
2008-09-30.10:47:06 |
131 |
0819140803 |
49981 |
| 谢仕深 |
2008-09-30.11:03:06 |
100 |
0819141111 |
76648 |
| 蔡永忠 |
2008-09-30.11:09:36 |
166 |
0819141232 |
99325 |
| 蔡镇波 |
2008-09-30.11:16:10 |
28 |
0819141459 |
61979 |
| 钟楚铭 |
2008-09-30.11:16:44 |
73 |
0819141504 |
28059 |
| 蔡镇波 |
2008-09-30.11:20:20 |
28 |
0819141457 |
83155 |
| 陈永长 |
2008-09-30.11:21:41 |
103 |
0819141279 |
71476 |
| 张毅 |
2008-09-30.11:32:15 |
157 |
0819141286 |
38942 |
| 蔡钿波 |
2008-09-30.11:34:17 |
131 |
0819140804 |
30252 |
| 郭奇平 |
2008-09-30.11:40:24 |
31 |
0819140827 |
95724 |
| 陈建安 |
2008-09-30.11:40:35 |
135 |
0819141165 |
89737 |
| 钟楚铭 |
2008-09-30.11:58:55 |
73 |
0819140871 |
76520 |
| 林本贵 |
2008-09-30.12:07:17 |
36 |
0819141414 |
18553 |
| 林壮桐 |
2008-09-30.12:09:47 |
145 |
0819141178 |
27194 |
| 谢仕深 |
2008-09-30.12:30:30 |
100 |
0819141112 |
59088 |
| 严锐鸿 |
2008-09-30.12:37:06 |
273 |
0819141278 |
88259 |
| 林俊鹏 |
2008-09-30.12:51:52 |
124 |
0819141124 |
20317 |
| 王良锋 |
2008-09-30.13:55:24 |
32 |
0819141443 |
86627 |
| 谢迪长 |
2008-09-30.14:06:35 |
65 |
0819141260 |
94538 |
| 谢迪长 |
2008-09-30.14:07:38 |
65 |
0819141258 |
71311 |
| 蔡钿波 |
2008-09-30.14:34:15 |
131 |
0819141330 |
78882 |
| 蔡钿波 |
2008-09-30.14:35:12 |
131 |
0819141324 |
15267 |
| 蔡钿波 |
2008-09-30.14:35:59 |
131 |
0819141326 |
63516 |
| 蔡润昭 |
2008-09-30.15:28:32 |
276 |
0819141087 |
85156 |
| 余泽平 |
2008-09-30.15:29:38 |
130 |
0819141439 |
54255 |
| 陈锐通 |
2008-09-30.16:30:24 |
102 |
0819141019 |
99810 |
| 陈绩好 |
2008-09-30.16:36:00 |
272 |
0819141353 |
44136 |
| 炯利鸽舍 |
2008-09-30.16:44:33 |
67 |
0819141339 |
61696 |
| 徐隆喜 |
2008-09-30.17:11:07 |
38 |
0819141388 |
92129 |
| 炯利鸽舍 |
2008-09-30.17:12:10 |
67 |
0819141341 |
89680 |
| 许海良 |
2008-09-30.17:20:09 |
187 |
0819141200 |
10431 |
| 丁仪泉 |
2008-09-30.17:31:52 |
204 |
0819141056 |
54456 |
| 钟楚铭 |
2008-09-30.17:33:12 |
73 |
0819141530 |
35784 |
| 蔡丹晓 |
2008-09-30.17:37:01 |
62 |
0819141215 |
61141 |
| 钟楚铭 |
2008-09-30.17:37:58 |
73 |
0819141529 |
90361 |
| 钟楚铭 |
2008-09-30.17:41:04 |
73 |
0819141482 |
89612 |
| 蔡松浩 |
2008-09-30.17:42:13 |
289 |
0819141201 |
58324 |
| 钟楚铭 |
2008-09-30.17:47:59 |
73 |
0819141490 |
15362 |
| 邱孙仔 |
2008-09-30.17:49:47 |
154 |
0819141308 |
38127 |
| 钟楚铭 |
2008-09-30.17:50:22 |
73 |
0819141483 |
54972 |
| 邱孙仔 |
2008-09-30.17:50:58 |
154 |
0819141307 |
46086 |
| 蔡立年 |
2008-09-30.17:52:01 |
167 |
0819141360 |
62802 |
| 邱孙仔 |
2008-09-30.17:52:47 |
154 |
0819141521 |
20763 |
| 钟悦勤 |
2008-09-30.17:57:52 |
27 |
0819141500 |
42079 |
| 谢仕深 |
2008-09-30.18:03:36 |
100 |
0819141110 |
38033 |
| 蔡霖 |
2008-09-30.18:04:19 |
218 |
0819141138 |
71283 |
| 方维恭 |
2008-09-30.18:09:39 |
212 |
0819141410 |
26179 |
| 蔡霖 |
2008-09-30.18:17:33 |
218 |
0819141318 |
71283 |
| 陈永德 |
2008-09-30.18:21:33 |
257 |
0819141263 |
12708 |
| 王旭彬 |
2008-09-30.18:37:43 |
210 |
0819141038 |
30852 |
| |
2008-09-30.19:11:03 |
|
1111112222 |
00000 |
Sub buildDoc(name,intTableRows,save_name)
Dim Table1
set Table1 = document.all.myData
row = Table1.rows.length
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Visible=True
Dim theArray(6,100000)
'Redim Preserve theArray(4,row)
colnum = Table1.rows(1).cells.length
for i=0 to row-1
for j=0 to colnum-1
theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML
next
next
intNumrows = intTableRows+1
'objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("本次归巢报到情况")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(name)
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "Arial"
.Font.Size = 12
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,6) '设置6列
for i = 1 to colnum
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
tabRow = 2
For j = 2 to intNumrows
'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1
'资金形式objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j))
'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter theArray(3,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j)
'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(5).Range.InsertAfter theArray(5,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(5).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(6).Range.InsertAfter theArray(6,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(6).Range.ParagraphFormat.alignment=1
tabRow = tabRow + 1
Next
' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate")
'objWordDoc.Application.ActiveDocument.Envelope.Insert Address
' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由汕头电信信息中心设计")
objWordDoc.Application.ActiveDocument.SaveAs save_name, 0,False,"",True,"",False,False,False, False,False
objWordDoc.Application.printout()
End Sub
| 幼鸽多关赛归巢报到情况300 |
请选择以
时间
鸽棚号
为顺序
|
| 姓名 |
时间 |
鸽棚号 |
足环号 |
暗印号 |
| 伟利昌 |
2008-09-30.10:34:35 |
299 |
0819000000 |
00000 |
| 谢仕深 |
2008-09-30.11:03:06 |
100 |
0819141111 |
76648 |
| 蔡永忠 |
2008-09-30.11:09:36 |
166 |
0819141232 |
99325 |
| 蔡镇波 |
2008-09-30.11:16:10 |
28 |
0819141459 |
61979 |
| 钟楚铭 |
2008-09-30.11:16:44 |
73 |
0819141504 |
28059 |
| 蔡镇波 |
2008-09-30.11:20:20 |
28 |
0819141457 |
83155 |
| 陈永长 |
2008-09-30.11:21:41 |
103 |
0819141279 |
71476 |
| 张毅 |
2008-09-30.11:32:15 |
157 |
0819141286 |
38942 |
| 陈建安 |
2008-09-30.11:40:35 |
135 |
0819141165 |
89737 |
| 林本贵 |
2008-09-30.12:07:17 |
36 |
0819141414 |
18553 |
| 林壮桐 |
2008-09-30.12:09:47 |
145 |
0819141178 |
27194 |
| 谢仕深 |
2008-09-30.12:30:30 |
100 |
0819141112 |
59088 |
| 严锐鸿 |
2008-09-30.12:37:06 |
273 |
0819141278 |
88259 |
| 林俊鹏 |
2008-09-30.12:51:52 |
124 |
0819141124 |
20317 |
| 王良锋 |
2008-09-30.13:55:24 |
32 |
0819141443 |
86627 |
| 谢迪长 |
2008-09-30.14:06:35 |
65 |
0819141260 |
94538 |
| 谢迪长 |
2008-09-30.14:07:38 |
65 |
0819141258 |
71311 |
| 蔡钿波 |
2008-09-30.14:34:15 |
131 |
0819141330 |
78882 |
| 蔡钿波 |
2008-09-30.14:35:12 |
131 |
0819141324 |
15267 |
| 蔡钿波 |
2008-09-30.14:35:59 |
131 |
0819141326 |
63516 |
| 蔡润昭 |
2008-09-30.15:28:32 |
276 |
0819141087 |
85156 |
| 余泽平 |
2008-09-30.15:29:38 |
130 |
0819141439 |
54255 |
| 陈锐通 |
2008-09-30.16:30:24 |
102 |
0819141019 |
99810 |
| 陈绩好 |
2008-09-30.16:36:00 |
272 |
0819141353 |
44136 |
| 炯利鸽舍 |
2008-09-30.16:44:33 |
67 |
0819141339 |
61696 |
| 徐隆喜 |
2008-09-30.17:11:07 |
38 |
0819141388 |
92129 |
| 炯利鸽舍 |
2008-09-30.17:12:10 |
67 |
0819141341 |
89680 |
| 许海良 |
2008-09-30.17:20:09 |
187 |
0819141200 |
10431 |
| 丁仪泉 |
2008-09-30.17:31:52 |
204 |
0819141056 |
54456 |
| 钟楚铭 |
2008-09-30.17:33:12 |
73 |
0819141530 |
35784 |
| 蔡丹晓 |
2008-09-30.17:37:01 |
62 |
0819141215 |
61141 |
| 钟楚铭 |
2008-09-30.17:37:58 |
73 |
0819141529 |
90361 |
| 钟楚铭 |
2008-09-30.17:41:04 |
73 |
0819141482 |
89612 |
| 蔡松浩 |
2008-09-30.17:42:13 |
289 |
0819141201 |
58324 |
| 钟楚铭 |
2008-09-30.17:47:59 |
73 |
0819141490 |
15362 |
| 邱孙仔 |
2008-09-30.17:49:47 |
154 |
0819141308 |
38127 |
| 钟楚铭 |
2008-09-30.17:50:22 |
73 |
0819141483 |
54972 |
| 邱孙仔 |
2008-09-30.17:50:58 |
154 |
0819141307 |
46086 |
| 蔡立年 |
2008-09-30.17:52:01 |
167 |
0819141360 |
62802 |
| 邱孙仔 |
2008-09-30.17:52:47 |
154 |
0819141521 |
20763 |
| 钟悦勤 |
2008-09-30.17:57:52 |
27 |
0819141500 |
42079 |
| 谢仕深 |
2008-09-30.18:03:36 |
100 |
0819141110 |
38033 |
| 蔡霖 |
2008-09-30.18:04:19 |
218 |
0819141138 |
71283 |
| 方维恭 |
2008-09-30.18:09:39 |
212 |
0819141410 |
26179 |
| 蔡霖 |
2008-09-30.18:17:33 |
218 |
0819141318 |
71283 |
| 陈永德 |
2008-09-30.18:21:33 |
257 |
0819141263 |
12708 |
| 王旭彬 |
2008-09-30.18:37:43 |
210 |
0819141038 |
30852 |
| |
2008-09-30.19:11:03 |
|
1111112222 |
00000 |
Sub buildDoc(name,intTableRows,save_name)
Dim Table1
set Table1 = document.all.myData
row = Table1.rows.length
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Visible=True
Dim theArray(6,100000)
'Redim Preserve theArray(4,row)
colnum = Table1.rows(1).cells.length
for i=0 to row-1
for j=0 to colnum-1
theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML
next
next
intNumrows = intTableRows+1
'objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("本次归巢报到情况")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(name)
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "Arial"
.Font.Size = 12
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,6) '设置6列
for i = 1 to colnum
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
tabRow = 2
For j = 2 to intNumrows
'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1
'资金形式objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j))
'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter theArray(3,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j)
'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(5).Range.InsertAfter theArray(5,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(5).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(6).Range.InsertAfter theArray(6,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(6).Range.ParagraphFormat.alignment=1
tabRow = tabRow + 1
Next
' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate")
'objWordDoc.Application.ActiveDocument.Envelope.Insert Address
' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由汕头电信信息中心设计")
objWordDoc.Application.ActiveDocument.SaveAs save_name, 0,False,"",True,"",False,False,False, False,False
objWordDoc.Application.printout()
End Sub
| 100鸽赛归巢报到情况 |
请选择以
时间
鸽棚号
为顺序
|
| 姓名 |
时间 |
鸽棚号 |
足环号 |
暗印号 |
| 陈锐昭 |
2008-09-30.09:55:46 |
95 |
########## |
12345 |
| 蔡钿波 |
2008-09-30.10:47:06 |
131 |
0819140803 |
49981 |
| 蔡钿波 |
2008-09-30.11:34:17 |
131 |
0819140804 |
30252 |
| 郭奇平 |
2008-09-30.11:40:24 |
31 |
0819140827 |
95724 |
| 钟楚铭 |
2008-09-30.11:58:55 |
73 |
0819140871 |
76520 |
Sub buildDoc(name,intTableRows,save_name)
Dim Table1
set Table1 = document.all.myData
row = Table1.rows.length
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Visible=True
Dim theArray(6,100000)
'Redim Preserve theArray(4,row)
colnum = Table1.rows(1).cells.length
for i=0 to row-1
for j=0 to colnum-1
theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML
next
next
intNumrows = intTableRows+1
'objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("本次归巢报到情况")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(name)
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "Arial"
.Font.Size = 12
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,6) '设置6列
for i = 1 to colnum
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
tabRow = 2
For j = 2 to intNumrows
'ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1
'资金形式objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j))
'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter theArray(3,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j)
'objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(5).Range.InsertAfter theArray(5,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(5).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(6).Range.InsertAfter theArray(6,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(6).Range.ParagraphFormat.alignment=1
tabRow = tabRow + 1
Next
' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum")
'objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate")
'objWordDoc.Application.ActiveDocument.Envelope.Insert Address
' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由汕头电信信息中心设计")
objWordDoc.Application.ActiveDocument.SaveAs save_name, 0,False,"",True,"",False,False,False, False,False
objWordDoc.Application.printout()
End Sub