Sub EditWord(filepath)
' 设置总行数及列数变量
Dim rowCount,colCount
rowCount=0
colCount=0
' 创建word对象
Set WordApp=createobject("word.application")
' 设置可见
WordApp.Visible=true
' 打开已经存在的word文档
Set WordDoc=WordApp.Documents.Open(filepath)
' 选中文档区域
WordDoc.Range.Select
' 选中word对象区域
Set WordSel=WordApp.Selection
With WordSel
' 设置表格对象,add中三个参数为表格区域、行数、列数
Set NewTable=WordSel.Tables.Add(WordSel.Range,5,3)
' 设置字体的大小
NewTable.Range.Font.Size=10
' 去表格总行数
rowCount=NewTable.Rows.Count
' 取总列数
colCount=NewTable.Columns.Count
For i = 1 To rowCount
For j = 1 To colCount
If i=1 Then
' 设置表格中的内容
NewTable.Cell(i,j).Range.Text="i*"&j
else
NewTable.Cell(i,j).Range.Text=(i-1)*j
End If
Next
Next
NewTable.Rows.Add
rowCount=NewTable.Rows.Count
For i = 1 To colCount Step 1
NewTable.Cell(rowCount,i).Range.Text=(rowCount-1)*i
Next
End With
WordDoc.Save
WordDoc.Close
WordApp.Quit
Set WordDoc=nothing
Set WordApp=nothing
End Sub
EditWord("d:\test.doc")
- 浏览: 26038 次
- 性别:
- 来自: 上海
最新评论
发表评论
-
vbs class的调用及字典的应用代码
2014-03-17 12:07 608<!--StartFragment -->Cla ... -
QTP中利用DOM实现拖动浏览器滚动条
2014-01-10 16:48 523QTP中利用DOM实现拖动浏览器滚动条 有的时候需要在 ... -
QTP11使用DOM XPath以及CSS识别元素对象
2013-12-23 15:54 811我们知道,像DOM,Html,CSS,XPath等对对象的 ... -
QTP之有关富文本框赋值
2013-10-21 17:35 1157前段时间在做QTP脚本时,遇到一个问题,主要问题是给富文本框 ... -
QTP简单框架之EXCEL报表
2013-10-15 15:06 974Dim oReporterManager Set oRepo ... -
QTP如何检查WEB对象是否隐藏
2013-10-10 10:38 568在WEB页面中隐藏对象的3种方式1、使用display例如: ... -
QTP登录案例
2013-09-22 18:20 827SystemUtil.Run "http://1 ... -
判断datatable中的数据是否有重复数据
2013-09-13 12:06 1525rowcount= DataTable.GetSheet(&q ... -
QTP测试报告代码
2013-09-09 12:59 789自动化测试实际是将测 ... -
京东网:疯狂抢购、猜您喜欢等模块下的图片超链接自动化测试
2013-09-02 17:30 512SystemUtil.Run "http://ww ... -
测试自动化实现难点—Web对象的识别
2013-08-30 13:25 675静态Web对象的识别 序号 ... -
京东网京东快报超级链接验证
2013-08-30 12:37 986SystemUtil.Run "http://www ... -
获取背景颜色
2013-08-27 15:02 744Browser("ITeye Java编程 Spr ... -
Dictionary 字典对象
2013-08-23 11:32 832... -
Scripting.Dictionary对象
2013-08-23 11:08 1350[vb] view plaincopy ... -
测试自动化设计 - GUI层面向对象的扩展设计
2013-08-23 10:48 612测试自动化设计 - GUI层面向对象的扩展设计 ... -
对WebElement对象使用编程性描述
2013-08-08 18:18 2277对WebElement对象使用编程性描述(Using Pro ... -
vbs中get和set方法
2013-08-07 13:23 934Class User Private s_name ... -
TO&RO
2013-08-02 15:17 7631.GetTOProperty() ● 基本含义:获取 ... -
QTP关闭多余的browser窗口
2013-08-02 14:23 509要判断打开了几个浏览器窗口,我们使用description对 ...
相关推荐
QTP与word的链接,在QTP怎么进行操作word。
QTP实现两个Excel表格数据对比代码,Function导入,直接调用该Function就可实现数据对比
QTP插入检查点. 和循环实现
QTP中文教程.pdf
这是我找的QTP中文使用教程,希望能帮助开始着手学习QTP的伙伴。大家一起加油。
QTP安装过程中遇到的问题,安装QTP与LoadRunner时提示“安装程序已确定挂起重新启动”解决方案
QTP高级5_QTP中使用正则表达式,适合QTP(UFT)初级学习。
QTP QTP
QTP入门学习教程,由浅入深,中文帮助文档大全
qtp资料qtp资料
QTP安装和使用教程; QTP自动化测试; QTP安装过程中的注意事项;
qtp中参数化数据时可以直接从excel中读取。
QTP对象库简介
QTP自动化测试权威指南word版 测试界公认的自动化测试QTP第一书 获得最佳自动化测试图书大奖 权威性讲解了QTP的基础知识和高级技巧 讨论了针对创建一个复杂的自动化测试框架的几乎所有内容。
QTP在软件开发中的应用难得的QTP毕业论文学习例子,千万别错过了物超所值
QTP中批量运行脚本有四种方法: 使用TD,生成测试集,一个测试集可以包含若干个测试脚本; 使用QTP自带工具Test Batch Runner,但是运行完没有报告; 使用MI的另外一款工具Muti-test Manager; 编写VB...
提供QTP下载地址
QTPweb软件测试工具中QTP数据库检查和WEB表格数据检查一、前提使用QTP测试数据输入是否成功。在本例中使用三个办法:1、检查页面显示的记录条数;2、根据关键字检查数据库中数据;3、检查页面显示的最后一行数据是否...
QTP的中文帮助文档全集,不是所有的帮助都是中文,对于英文不好的童鞋,还是有很大帮助的