編程在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表格

回答

相關問題