能选中表格的奇数行？

菜菜行者

比如选中表格中的第1、3、5、7....行

duquancai

用循环来处理，这个问题不是在你另外一个问贴中（好像还有你问的其它贴中也提到了）说了吗？你也表示：“哦！哦！哦！”了？怎么；老是纠缠这个问题啊？

菜菜行者

duquancai 发表于 2016-9-11 10:46
用循环来处理，这个问题不是在你另外一个问贴中（好像还有你问的其它贴中也提到了）说了吗？你也表示：“哦 ...

谢谢出手相助。

这不是同个问题的，对象也不一样
这次问的是表格，如你所说的，循环选择表格的行。

另外一个贴是在这里
http://club.excelhome.net/thread-1299420-1-1.html
问的是手动选择文本，把换段符改为换行符。


用循环怎么做呢？

duquancai

菜菜行者 发表于 2016-9-11 11:00
谢谢出手相助。

这不是同个问题的，对象也不一样

1. Sub shishi()
   
2.     With ActiveDocument.Tables(1)
   
3.         For i = 1 To .Rows.Count Step 2
   
4.             .Rows(i).Select
   
5.         Next
   
6.     End With
   
7. End Sub

复制代码

菜菜行者

duquancai 发表于 2016-9-11 11:27

只选中了表中奇数的最后一个。
比如一共10行，只选了第9行，希望能选中1、3、5、7、9

duquancai

菜菜行者 发表于 2016-9-11 11:37
只选中了表中奇数的最后一个。
比如一共10行，只选了第9行，希望能选中1、3、5、7、9

哎！果然不出我所料！说你一直在纠缠同一个问题！你还争辩。请你回到2楼去看看！只有   呵呵了！

菜菜行者

duquancai 发表于 2016-9-11 11:43
哎！果然不出我所料！说你一直在纠缠同一个问题！你还争辩。请你回到2楼去看看！只有   呵呵了！

谢谢你一直帮忙！

duquancai

菜菜行者 发表于 2016-9-11 11:37
只选中了表中奇数的最后一个。
比如一共10行，只选了第9行，希望能选中1、3、5、7、9

为了让你看清楚循环过程：请执行以下代码

1. Sub shishi()
   
2.     With ActiveDocument.Tables(1)
   
3.         For i = 1 To .Rows.Count Step 2
   
4.             .Rows(i).Select
   
5.             MsgBox "目前选中了第" & i & "行"
   
6.         Next
   
7.     End With
   
8. End Sub

复制代码

菜菜行者

duquancai 发表于 2016-9-11 11:59
为了让你看清楚循环过程：请执行以下代码

既然能逐行选中，那是不是就可以应该字体和段落格式？

duquancai

菜菜行者 发表于 2016-9-11 12:41
既然能逐行选中，那是不是就可以应该字体和段落格式？

当然了！选中不是目的，目的在于对选中的区域进行操控，选中只是中间过程（选中的目的大多数时候只是查看循环过程是否如你的期望），因此大多数情况是不必要选中的，只需要循环所想要的区域（也就是range区域），大多数时候不必选中，只需要逐一这个循环区域进行操控就行了！