QTP基本使用——WORD

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: 基本上分为三步走， 第一打开对象， 第二创建或者打开实例， 第三修改或者保存实例