QTP基本使用——WORD
来源:互联网 发布:论坛群发软件下载 编辑:程序博客网 时间:2024/06/05 22:51
1. '创建word的对象
Set oWordApp = CreateObject("Word.Application") '此处亦可使用Excel.Application
'将word对象设置为可见
oWordApp.Visible = True
'关闭word对象
oWordApp.Quit
'对象清空
Set oWordApp = Nothing
2. 创建文档
Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
'增加一个新文档
Set oWordDoc = oWordApp.Documents.Add
'另存为testbbk.doc
'问题:为什么不直接save, 而用saveas呢
oWordDoc.SaveAs "d:/testbbk.doc"
msgbox "文件创建成功!"
oWordDoc.Close
oWordApp.Quit
Set oWordDoc = Nothing
Set oWordApp = Nothing
3. '打开一个已经存在的文档
Set oWordDoc = GetObject("d:/testbbk.doc")
Set oWordApp = oWordDoc.Application
oWordApp.Visible =True
msgbox "打开这个文档, 请检查"
'理论上应该先退出Doc, 然后再退出程序的,但是在这里确实相反的, 有待于研究
oWordDoc.Close
oWordApp.Quit
Set oWordDoc = Nothing
Set oWordApp = Nothing
4, 打开文档的另外一种方法
Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
'打开一个已知的文件
Set oWordDoc = oWordApp.Documents.Open("d:/testbbk.doc")
msgbox "打开这个文档, 请检查"
5:‘向一个文档中插入表格
EditWord "d:/testbbk.doc"
Function EditWord(filepath)
Set oWordApp = CreateObject("Word.application")
oWordApp.visible = True
Set oWordDoc = oWordApp.Documents.Open(filepath)
oWordDoc.Range.Select
Set oWordSet = oWordApp.Selection
With oWordSet
Set oNewTable = .Tables.Add(.range, 5, 3)
oNewTable.Range.Font.size = 8
i = 1
oNewTable.Cell(i, 1).Range.Text = "i"
oNewTable.Cell(i, 2).Range.Text = "i*2"
oNewTable.Cell(i, 3).Range.Text = "i*3"
For i =2 to 5
oNewTable.Cell(i, 1).Range.Text = i-1
oNewTable.Cell(i, 2).Range.Text = (i-1)*2
oNewTable.Cell(i, 3).Range.Text = (i-1)*3
Next
oNewTable.Rows.Add
i = oNewTable.Rows.Count
oNewTable.Cell(i, 1).Range.Text = i-1
oNewTable.Cell(i, 2).Range.Text = (i-1)*2
oNewTable.Cell(i, 3).Range.Text = (i-1)*3
End with
end function
6: ’向word中插入图片
EditWord "d:/testbbk.doc","d:/test.bmp"
Function EditWord(filepath, filepic)
Set oWordApp = CreateObject("Word.application")
oWordApp.visible = True
Set oWordDoc = oWordApp.Documents.Open(filepic)
oWordDoc.Range.Select
Set oWordSet = oWordApp.Selection
With oWordSet
Set oImg = .InlineShapes.AddPicture(filepic, False, True)
oImg.Width = oImg.Width*0.50
oImg.Height = oImg.Height*0.50
'中间对齐
oImg.Range.ParagraphFormat.Alignment = 1
.TypeParagraph
.TypeText "qtp学习之对word的基本操作"
.TypeParagraph
End with
end function
7. ‘向word中插入文本
EditWord "C:/testbbo.doc", "QTP学习之word"
Function EditWord(filepath, content)
Set oWordApp = CreateObject(Word.Application)
oWordApp.Visible = True
Set doc = oWordApp.Documents.Open(filepath)
doc.Content = content
doc.save
Set doc = Nothing
Set oWordApp = Nothing
ReadWord = True
End Function
PS: 基本上分为三步走, 第一打开对象, 第二创建或者打开实例, 第三修改或者保存实例
- QTP基本使用——WORD
- QTP基本使用——WORD
- QTP基本使用——associate actions
- QTP基本使用——Recovery Scenarios
- QTP基本使用——Excel
- QTP基本使用——检查焦点
- qtp的基本使用
- [QTP]基本使用
- 使用QTP检查页面中的基本异常
- QTP测试工具的基本使用
- Word 2003的基本使用
- QTP使用心得1——新的开始
- 《QTP使用说明书》——修改测试对象…
- QTP与word、excel、txt
- QTP——QTP不支持开发人员自定义属性
- [唐胡璐]QTP技巧 - QTP使用小提示
- word的使用——邮件合并
- “FreeTextBox”控件使用——Word编辑器
- overload-override-hide 的区别
- BMP与DPI
- 关于 getch 的使用
- 关于 getch 的使用
- 《Microsoft Sql server 2008 Internals》读书笔记--第九章Plan Caching and Recompilation(2)
- QTP基本使用——WORD
- CTO和CIO有什么不同
- MS-SQL 行列转换
- Ojbective-c 入门总结2
- 【转】使用VI编辑器写C语言程序
- 总结一下网站注入与防范的方法
- 图解windows2008无法使用无线网络的解决方法
- QT VS2005环境搭建链接
- iphone开发的流程