编程在VBA多行的在Word 2014表格

我想改变所有偶数行的字体在Microsoft Word中一个大桌子的选择（大多数版本的，我用2014）红编程在VBA多行的在Word 2014表格

我尝试了简单的循环：

For ii=2 to ActiveDocument.Tables(1).Rows.Count step 2 
    ActiveDocument.Tables(1).Rows(ii).Select 
    Selection.Font.ColorIndex = wdRed 
Next

这有时会挂起，有时它的工作原理，但需要时间（我的表有14000行...）

然后我有了想法：手动，我可以选择左边的一排在其左侧单击，然后通过按Ctrl左键单击左侧添加其他行。然后我可以修改一次选择的所有行的字体。

让我们来看看以编程方式做同样的事情是否更快！我想是这样

ActiveDocument.Tables(1).Rows(2).Select 
For ii=4 to ActiveDocument.Tables(1).Rows.Count step 2 
    Selection.Add (ActiveDocument.Tables(1).Rows(ii)) 
Next 
Selection.Font.ColorIndex = wdRed

但增加了不被接受为一个有效的选择对象成员

有人能帮忙吗？

来源

2017-07-20 GentilBarbuLux

我不知道这是否会有所作为...用你的代码的两行代替'ActiveDocument .Tables（1）.Rows（ii）.Font.ColorIndex = wdRed' – jsotola

定义新的风格并将其应用到表...没有VBA需要

这是一个例子风格变化的宏录制...如果你想使用VBA

Selection.Tables(1).Style = "Grid Table 5 Dark - Accent 2"

还记录了一个做新风格定义的宏....很多好东西在里面

来源

2017-07-20 18:10:10 jsotola

编程在VBA多行的在Word 2014表格

回答

相关问题