轉發：VB程序操做word表格（文字、圖片）

     不少人都知道，用vb操做excel的表格很是簡單，可是恰恰項目中碰到了VB操做word表格的部分，google、baidu搜爆了，都沒有找到我須要的東西。到是搜索到了不少問這個問題的記錄。沒辦法，索性只有本身去嘗試了。下面把一些代碼發上來，給須要的朋友一點提示。 打開一個已經存在的wrod文件（這個文件包含了表格）

Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open("c:\record.dot")
         知道了就很簡單了，下面是選定某一個表格的一個單元格，並修改其內容
Word.Tables(1).cell(1, 2)="內容"
         VBA中的這些數組元素下標都是從1開始的，好比excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是這樣，不信本身試一下就知道了。因此上面那句話的意思就是對整個word文檔中的第一個表格的第一行第二列的內容改變爲「內容」。很簡單吧？網上有些人在問是否是
Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。試一下就發現這2種都不對。
         插入圖片其實也很簡單，代碼以下：
Word.Tables(1).cell(1, 3).Range.InlineShapes.AddPicture ("c:\photo.jpg")
         微軟的那一套東西集成得很不錯，其之間任意調用很是方便，你們若是想用VB對WORD作更多的應用，卻又不知道怎麼實現，我想最好的辦法就是錄製宏了，你把你想完成的功能操做一遍，而後查看宏，一目瞭然了吧？呵呵。。。（完）