中山智能设备网站建设,网站开发凭证做什么科目,德州企业网站建设,做淘宝一样的网站有哪些Word中的合并表格如下#xff0c;现在需要根据子类#xff08;例如#xff1a;果汁#xff09;查找对应的品类#xff0c;如果这是Excel表格#xff0c;那么即使包含合并单元格#xff0c;也很容易处理#xff0c;但是使用Word VBA进行查找#xff0c;就需要一些技巧。…Word中的合并表格如下现在需要根据子类例如果汁查找对应的品类如果这是Excel表格那么即使包含合并单元格也很容易处理但是使用Word VBA进行查找就需要一些技巧。 示例代码如下
Sub Demo()Dim oTab As Table, oCell As CellDim Cat1 As String, Cat2 As StringConst TARGET 果汁Set oTab ThisDocument.Tables(1)For Each oCell In oTab.Range.CellsIf oCell.ColumnIndex 2 ThenCat2 Left(oCell.Range.Text, Len(oCell.Range.Text) - 2)If Cat2 TARGET ThenoCell.SelectSelection.MoveLeft wdCellCat1 SelectionDebug.Print Cat1 vbTab Cat2Exit ForEnd IfEnd IfNext
End Sub【代码解析】 第4行代码定义要查找的子类名称。 第5行代码获取文档中的第一个表格对象。 第6~16行代码循环遍历表格单元格。 第7行代码判断单元格的列号。 第8行代码读取第二列单元格的值使用Left去除单元格的结束标志字符。 第9行代码判断是否为待查找的子类。 第10行代码选中第二列单元格。 第11行代码向左移动一个单元格此时将选中对应的第一列单元格。 第12行代码读取类目名称。 第13行代码输出结果。 第14行代码结束For循环。
输出结果如下所示 饮料 果汁
