展示word表格行列号

zorsite · 发表于 2017-12-21 21:25

本帖最后由 zorsite 于 2017-12-21 21:42 编辑

很多朋友会在其他程序中提取word文档中的表格数据，但是又对word表格的行列规则不甚了解。
下面这段代码可以在每个单元格后面加上行列号。

Sub 展示单元格行列号()
Dim tbl As Table
Dim cel As Cell
For Each tbl In Me.Tables
For Each cel In tbl.Range.Cells
With cel
.Range.Text = .Range.Text & "(" & .RowIndex & "," & .ColumnIndex & ")"
End With
Next
Next
End Sub

复制代码

duquancai · 发表于 2017-12-21 21:57

Sub shishi()
Dim c As Cell, t As Table, doc As Document
Set doc = ActiveDocument
If doc.Tables.Count < 1 Then Exit Sub
For Each t In doc.Tables
      For Each c In t.Range.Cells
         With c.Range
            .Text = "(" & c.RowIndex & "," & c.ColumnIndex & ")"
         End With
      Next
Next
End Sub

413191246se · 发表于 2017-12-21 22:58

楼主：提示”编译错误：无效使用ME关键字“，这个ME是否声明？一般是 ActiveDocument。
杜先生代码 OK！（杜先生为什么在计算表格数目时，要和 1 较劲呢？我一直和 0 较劲，呵呵！）

zorsite · 发表于 2017-12-22 10:37

duquancai 发表于 2017-12-21 21:57
Sub shishi()
Dim c As Cell, t As Table, doc As Document
Set doc = ActiveDocument

有了for each似乎不用再做tables.count判断了，如果没有表格的话直接就跳出循环。当然做个判断更严谨。

zorsite · 发表于 2017-12-22 10:38

413191246se 发表于 2017-12-21 22:58
楼主：提示”编译错误：无效使用ME关键字“，这个ME是否声明？一般是 ActiveDocument。
杜先生代码 OK！ ...

你用的word是什么版本？我自己测试的时候没问题啊。

我的电子表1516 · 发表于 2017-12-27 11:23

顶起来，楼主这个代码解决合并单元格计数问题，高！收藏了

		自动登录	找回密码
密码			免费注册

[分享] 展示word表格行列号