office365，循环“l in lines”最后一个数据是 nothing。好像在所有文本内容的最后面还有有一行 nothing，就导致了 字体颜色 设置的错误，该属性无法作用于那个对象
  打卡Lv3
|
马作德1208
展开
|
  学习达人
|
苦涩的酒
展开
|
 学习达人
|
najieguo
展开
老师这段代码不能用，报错，是什么原因 Sub test1（） Dim rec As Rectangle, l As Line, intNum As Integer On Error GoTo 100 For Each rec In ThisDocument.Windows（1）.Panes（1）.Pages（2）.Selection.ShapeRange（1） For Each l In rec.Lines intNum = intNum + 1 If intNum Mod 2 Then l.Range.Font.ColorIndex = wdBlue End If Next Next |
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。