VBA如何选中WORD中符合条件的表进行操作

teshia

我想把 WORD中 符合条件的表格变成18CM宽本例中就是最后一个 表格，二行三列为 点击率的表，变成18CM

不知 如何写判断语句
副本.rar (14.96 KB, 下载次数: 15)

2018-7-15 11:26 上传

点击文件名下载附件

下面代码这样的全部变成18CM

1. Sub select_alltables调整18厘米表格()
   
2.     Dim mytable As Table
   
3.     Application.ScreenUpdating = False
   
4.       
   
5.     For Each mytable In ActiveDocument.Tables
   
6. mytable.Range.Editors.Add wdEditorEveryone '选中整个表格
   
7.         With mytable
   
8.         mytable.Rows.Alignment = wdAlignRowCenter            '整个表格水平居中
   
9.         mytable.PreferredWidth = CentimetersToPoints(18)     '整个表格宽度为18CM
   
10.             End With
    
11. Next
    
12.         
    
13.     ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) '必须要的：选中全部表格区域
    
14.     ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) '必须要的：删除区域选中状态
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

加上判断语句
If mytable.Cell(2, 3).Range.Text = "点击率" Then
判断表格就不执行

If mytable.Cell(2, 3).Range = "点击率" Then
判断表格就不执行


换成 下面，就显示 类型不匹配
If mytable.Cell(2, 3) = "点击率" Then

1. Sub select_alltables调整18厘米表格()
   
2.     Dim mytable As Table
   
3.     Application.ScreenUpdating = False
   
4.       
   
5.     For Each mytable In ActiveDocument.Tables
   
6.         If mytable.Cell(2, 3).Range.Text = "点击率" Then
   
7.         mytable.Range.Editors.Add wdEditorEveryone '选中整个表格
   
8.         With mytable
   
9.         mytable.Rows.Alignment = wdAlignRowCenter            '整个表格水平居中
   
10.         mytable.PreferredWidth = CentimetersToPoints(18)     '整个表格宽度为18CM
    
11.             End With
    
12.            End If
    
13.     Next
    
14.         
    
15.     ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) '必须要的：选中全部表格区域
    
16.     ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) '必须要的：删除区域选中状态
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

182197315

If instr(mytable.Cell(2, 3).Range.Text, "点击率" ) Then

teshia

182197315 发表于 2018-7-15 11:33
If instr(mytable.Cell(2, 3).Range.Text, "点击率" ) Then

very good。完美解决。。。不过 能否解释下。为什么要用instr，直接读不可以了

182197315

teshia 发表于 2018-7-15 11:40
very good。完美解决。。。不过 能否解释下。为什么要用instr，直接读不可以了

每个单元格里面还有个换行符

teshia

182197315 发表于 2018-7-15 12:59
每个单元格里面还有个换行符

哦
知晓了，谢谢