老師，Word版本不一樣，rectangles返回的值不一樣嗎？Word1007返回的是一頁，不是一頁中的一段
  學習達人
|
苦澀的酒
展開
|
 學習達人
|
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 |
承擔因您的行為而導致的法律責任，
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。