VB程序操作word表格(文字、图片)
2008-01-12 16:20:40| 分类: Visual Basic | 标签: |字号大中小 订阅
打开一个已经存在的wrod文件(这个文件包含了表格)
Dim Word
Set WordApp = CreateObject ( " Word.Application " )
WordApp.Visible = True
Set Word = WordApp.Documents.Open( " c:\record.dot " )
Word.Tables(1).cell(1, 2 ).range.text或者Word.Tables(1).cell(1, 2).text。试一下就发现这2种都不对。
插入图片其实也很简单,代码如下:
如果你的程序里涉及到合并及拆分单元格,那么你可能试一下这段代码:
dim Table
set Table = wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRows:=27, NumColumns _
:=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)
Set mySelection = wdApp.Documents.Application.Selection
mySelection.Cells.Borders(-7).LineStyle = 1
'选中表格的第2行第3列
table.Cell(2, 3).Select
'向下移动6格,第1个参数和第3个是常数
Call wdBook.Application.Selection.MoveDown(5, 6, 1)
'合并
wdBook.Application.Selection.Cells.Merge
'拆分成7行2列
Call wdBook.Application.Selection.Cells.Split(7, 2, True)
如果大家碰到了更复杂的程序,用程序生成起来比较麻烦,那么你就可以用模板来实现了?你可以先用word做一个模板,把表格什么的全都先写好,然后保存成模板文件。然后你再用程序加载这个模板,然后往模板里填写数据。这样难度要低一些。不过具体情况具体分析。word这些集合的下标都是从1开始,然后只要找到表格那个集合,然后选取第一个表格就是要操作的表格了(假设你想操作的表格是模板中的第一个表格)。 代码如下:
dim table
set table=wdApp.ActiveDocument.Tables(1)