VBScript生成Word,并添加表格及书签

'/*=========================================================================   

1. ' * Intro       VBScript生成Word,并添加表格及书签   
2. ' * FileName    VBScript-Word-Table-Bookmarks.vbs   
3. ' * Author      yongfa365   
4. ' * Version     v1.0   
5. ' * WEB         http://www.yongfa365.com   
6. ' * Email       yongfa365[at]qq.com   
7. ' * FirstWrite  http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html   
8. ' * MadeTime    2008-10-18 22:15:40   
9. ' * LastModify  2008-10-18 22:15:40   
10. ' *==========================================================================*/   
11.   
12. Set objWord = CreateObject("Word.Application")   
13.   
14. objWord.Visible = True  
15. 'Set objDoc = objWord.Documents.Open("http://www.yongfa365.com/Test.doc")   
16. 'Set objDoc = objWord.Documents.Open("C:/Test.doc")   
17. Set objDoc = objWord.Documents.Add()   
18. Set objSelection = objWord.Selection   
19. '在Word里添加一个二行四列的表格   
20. Set table1 = objSelection.Tables.Add(objSelection.Range, 2, 4)   
21.   
22. 'Set Table1 = objDoc.Tables(1)   
23. rowcount = Table1.Rows.Count  
24. For i = 1 To Table1.Rows.Count  
25.     For j = 1 To Table1.Columns.Count  
26.         '在单元格i,j里填充内容   
27.         Table1.Cell(i, j).Range.Text = "第" & i & "行" & j & "列"  
28.         '为单元格i,j添加书签   
29.         Table1.Cell(i, j).Range.Bookmarks.Add "书签" & i & "行，" & j & "列"  
30.     Next  
31. Next  

引用地址：http://www.yongfa365.com/item/VBScript-Word-Table-Bookmarks.vbs.html