关于word表格中合并单元格的判断

buxiaodea

群里的大神，因工作需要，小弟想用vba 代码实现以下功能：

1.判断某一word表格是否包含合并单元格
2.合并单元格包含的行数和列数
3.纵向合并单元格所在列共有几行，横向合并单元格所在行共有几列
谢谢，请大神指导一下！

jiangxiaoyun

很复杂和麻烦，没有直接判断的方法。只能是遍历遍历来判断。
以上就是我知道的。

buxiaodea

jiangxiaoyun 发表于 2024-7-7 14:59
很复杂和麻烦，没有直接判断的方法。只能是遍历遍历来判断。
以上就是我知道的。

感谢，我网上查了以下 好像也说很麻烦   好像有个思路，也许不一定严谨，我代码不会写，通过求某一列（行）单元格的数量和一张表格原有的数量进行比较。折代码你会吗

3190496160

关键是要知道最终目的是什么？也许没你想的这么复杂的

buxiaodea

3190496160 发表于 2024-7-7 15:49
关键是要知道最终目的是什么？也许没你想的这么复杂的

大神好，我是想把wordz中的菜谱信息提取到excel中，自己也写了点代码，现在就是对word表中的合并单元格需要进行特殊处理（实际工作中有很多表，所以需要自动判断）：

1.如果是节假日，当天的菜谱信息为空
2.如果主食只有一种菜，则在提取信息时，只录入一种

过客fppt

我以前写的代码，但是不完善，你可以拿去修改一下：

1. Sub 找出拆分的单元格且合并()
   
2.     Dim tbl As Table
   
3.     Dim cell As cell
   
4.     Dim i, j, errorCount, 开始错误的行号, zonghang, zonglie As Integer
   
5.     Dim a As Double
   
6.    
   
7.     Set tbl = ActiveDocument.Tables(1)
   
8.    
   
9.     zonghang = ActiveDocument.Tables(1).Rows.count
   
10.     zonglie = ActiveDocument.Tables(1).Rows.count
    
11.     For j = 1 To zonglie
    
12.         On Error Resume Next ' 启用错误处理
    
13. 
    
14.         For i = 1 To zonghang
    
15.             tbl.cell(i, j).Select
    
16. 
    
17.             If Err.Number <> 0 Then
    
18.                 If errorCount = 0 Then
    
19.                     开始错误的行号 = i - 1
    
20.                 End If
    
21.                 ' 错误计数器 +1
    
22.                 errorCount = errorCount + 1
    
23.                 ' 清除错误
    
24.                 Err.Clear
    
25.             End If
    
26.         Next i
    
27. 
    
28.         On Error GoTo 0 ' 禁用错误处理
    
29. 
    
30.         If 开始错误的行号 <> 0 Then
    
31.             MsgBox ("合并的单元格在：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,而且合并了" & errorCount + 1 & "行")
    
32.             tbl.cell(开始错误的行号, j).Select
    
33. 
    
34.             Call 拆分单元格(errorCount + 1, 1)
    
35. 
    
36. '            MsgBox ("已经合并：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,合并了" & errorCount + 1 & "行")
    
37.         Else
    
38. '            MsgBox ("在第" & j & "列中未找到合并的单元格")
    
39.         End If
    
40.         errorCount = 0
    
41.     Next j
    
42. 
    
43. End Sub
    
44. Function 拆分单元格(Rows, Coluns)
    
45.     Selection.Cells.Split NumRows:=Rows, NumColumns:=Coluns, MergeBeforeSplit:=False
    
46. End Function

复制代码

perfect131

buxiaodea 发表于 2024-7-7 15:09
感谢，我网上查了以下 好像也说很麻烦   好像有个思路，也许不一定严谨，我代码不会写，通过求某一列（行 ...

这个用wordopenxml最准

buxiaodea

过客fppt 发表于 2024-7-7 17:10
我以前写的代码，但是不完善，你可以拿去修改一下：

谢谢，我要研究一下，想请问一下 想求 word 文档的表格的某一列的单元格数量  这个代码怎么写

wang-way

buxiaodea 发表于 2024-7-7 19:49
谢谢，我要研究一下，想请问一下 想求 word 文档的表格的某一列的单元格数量  这个代码怎么写

表格是按行、每行多少格设计的。 你这个要求只能间接想办法得到

buxiaodea

wang-way 发表于 2024-7-7 20:37
表格是按行、每行多少格设计的。 你这个要求只能间接想办法得到

如果想计算表格含有的单元格数 可以用  tables(1).range.cells.count，那求某一列的单元格数，是不是前面的限定范围改一下就行了，不知道有没有办法，谢谢!