轉發：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做更多的應用，卻又不知道怎么實現，我想最好的辦法就是錄制宏了，你把你想完成的功能操作一遍，然后查看宏，一目了然了吧？呵呵。。。（完）