怎样通过VBA控制 word表格

7144889

能否通过VBA控制word表格，就象VBA控制Excel表格一样。

守柔

以下是引用7144889在2005-8-15 18:08:14的发言： 能否通过VBA控制word表格，就象VBA控制Excel表格一样。

务实一点，好吗？大哥！

你想怎么控制WORD表格啊？

7144889

我只是想知道WORD表格中的单元格能否象Excel表格一样有具体的代码,如Sheets("sheet1").cells(1,1)

守柔

如，在遍历每个表格的每个单元格：

Sub Example() Dim oTable As Table, oCell As Cell, i As Byte On Error Resume Next Application.ScreenUpdating = False With ActiveDocument For Each oTable In .Tables For Each oCell In oTable.Range.Cells With oCell If Len(.Range) > 2 Then .Shading.BackgroundPatternColor = wdColorGray20 For i = 1 To 4 With .Borders(-i) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth150pt End With Next End If End With Next Next End With Application.ScreenUpdating = True End Sub 使用表格中的单元格：

ThisDocument.Tables(1).Cell(1, 1).Range = "HELLO!7144889"

hajbl2002

能把代码解释一下吗？谢谢守柔了！

konggs

老大不在,小弟糊弄顶一下.

Sub Example() Dim oTable As Table, oCell As Cell, i As Byte On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 With ActiveDocument For Each oTable In .Tables '在文档的表格间循环 For Each oCell In oTable.Range.Cells '在表格的单元格间循环 With oCell If Len(.Range) > 2 Then '如果有文字(没有的话就=2,注意不是1) .Shading.BackgroundPatternColor = wdColorGray20 '底纹20%的灰度 For i = 1 To 4 '在单元格的上下左右,四个边循环.我们通常用形如这样的wdBorderRight等表示四边,无疑老大比我们走得更远,更高,更强. With .Borders(-i) .LineStyle = wdLineStyleSingle '单线条 .LineWidth = wdLineWidth150pt '宽度1.5磅 End With Next End If End With Next Next End With Application.ScreenUpdating = True '开启屏幕更新 End Sub

'----------------------------------------

另:用这个

For Each borderLoop In .Borders .......

Next borderLoop

好像可以在边框边上加对角线上循环.

[此贴子已经被作者于2005-10-6 12:27:44编辑过]

liweibird

终于找到了,牛!