能选中表格的奇数行？

菜菜行者

duquancai 发表于 2016-9-11 12:51
当然了！选中不是目的，目的在于对选中的区域进行操控，选中只是中间过程（选中的目的大多数时候只是查看 ...

怎么给字号？

duquancai

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

可以对它进行一系列的操控：举例如下：

1. Sub shishi()
   
2.     With ActiveDocument.Tables(1)
   
3.         For i = 1 To .Rows.Count Step 2
   
4.             .Rows(i).Shading.BackgroundPatternColor = RGB(35 * i, 3 * i, 3)
   
5.             .Range.Bold = 1
   
6.         Next
   
7.     End With
   
8. End Sub

复制代码

菜菜行者

duquancai 发表于 2016-9-11 13:17
可以对它进行一系列的操控：举例如下：

经过测试，2003版本可以通过，但2010版本的，底色出错，加粗没反应

duquancai

菜菜行者 发表于 2016-9-11 13:22
经过测试，2003版本可以通过，但2010版本的，底色出错，加粗没反应

估计是不支持简写吧！总之可进行一系列的操控！！！

1. Sub shishi()
   
2.     With ActiveDocument.Tables(1)
   
3.         For i = 1 To .Rows.Count Step 2
   
4.             .Rows(i).Shading.BackgroundPatternColor = wdColorGray05
   
5.             .Rows(i).Range.Bold = True
   
6.             .Rows(i).Range.Font.Size = 18
   
7.         Next
   
8.     End With
   
9. End Sub

复制代码

菜菜行者

duquancai 发表于 2016-9-11 13:32
估计是不支持简写吧！总之可进行一系列的操控！！！

厉害！！！！！


谢谢啦！



如果能定义单无格的属性就更好了，如下图：

菜菜行者

似乎我搞错方向了

这个功能可以直接套用表格样式


老师，最开始我的表格是这样的
多行多列
1奇数行：中文1
2偶数行：英文1（上面中文1的译文）
3奇数行：中文2
4偶数行：英文2（上面中文2的译文）

之前想让英文1和中文2行距拉大，然后就想用宏，没想到慢慢在你的指引下，想到用表格样式。
既然能轻松达到要求，那不如直接来最想要的效果：
就是把中文1和英文1合并，中文2和英文2合并，使英文归到中文的段落下面，一起在一个单元格里。
这是我最终想要的。
麻烦了