js实现word生成书签_VBScript生成Word,并添加表格及书签

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

' * 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里添加一个二行四列的表格

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里填充内容

Table1.Cell(i, j).Range.Text = "第" & i & "行" & j & "列"

'为单元格i,j添加书签

Table1.Cell(i, j).Range.Bookmarks.Add "书签" & i & "行，" & j & "列"

Next

Next