VBScript生成Word,并添加表格及书签代码,VBS代码库,德仔网

代码语言

代码分类

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

作者:Dezai.CN / 发布于2011/8/22/ 2251

<div>'/*=========================================================================
' * Intro VBScript生成Word,并添加表格及书签
' * FileName VBScript-Word-Table-Bookmarks.vbs
' * Author yongfa365
' * Version v1.0
' * WEB <a href="http://www.yongfa365.com">http://www.yongfa365.com</a>
' * Email yongfa365[at]qq.com
' * FirstWrite <a href="http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html">http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html</a>
' * MadeTime 2008-10-18 22:15:40
' * LastModify 2008-10-18 22:15:40
' *==========================================================================*/</div>
<div>Set objWord = CreateObject("Word.Application")</div>
<div>objWord.Visible = True
'Set objDoc = objWord.Documents.Open("<a href="http://www.yongfa365.com/Test.doc">http://www.yongfa365.com/Test.doc</a>")
'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)</div>
<div>'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</div>

试试其它关键字

　VBScript生成Word　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)