'/*=========================================================================
' * Intro       VBScript生成Word,并添加表格及書簽
' * FileName    VBScript-Word-Table-Bookmarks.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html
' * MadeTime    2008-10-18 22:15:40
' * LastModify  2008-10-18 22:15:40
' *==========================================================================*/

Set objWord = CreateObject("Word.Application")

objWord.Visible = True
'Set objDoc = objWord.Documents.Open("http://www.yongfa365.com/Test.doc")
'Set objDoc = objWord.Documents.Open("C:\Test.doc")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
'在Word里添加一個(gè)二行四列的表格
Set table1 = objSelection.Tables.Add(objSelection.Range, 2, 4)

'Set Table1 = objDoc.Tables(1)
rowcount = Table1.Rows.Count
For i = 1 To Table1.Rows.Count
    For j = 1 To Table1.Columns.Count
        '在單元格i,j里填充內(nèi)容
        Table1.Cell(i, j).Range.Text = "第" & i & "行" & j & "列"
        '為單元格i,j添加書簽
        Table1.Cell(i, j).Range.Bookmarks.Add "書簽" & i & "行，" & j & "列"
    Next
Next